Haskell初学者：这太像了吗？

Question

*对于非常基本的问题感到抱歉，但我刚开始使用Haskell。

我有一个带有处理程序handleUsernameCheck的Snap Web应用程序。我试图获取username作为参数并使用它来查询Postgresql。

我提出的代码看起来像这样：

handleUsernameCheck :: Handler App App ()
handleUsernameCheck = do
    username <- getParam "username"
    case username of
        Nothing -> writeBS "Capout"
        Just name -> do
            usernames <- query "SELECT username FROM users WHERE username = ?" [(name)]
            case usernames of
                [] -> writeBS "Capout again"
                (h:_) -> writeBS $ theName (h :: Username)

这看起来与我在C或python中编写的内容非常相似，所以我想知道什么是Haskell更好的方法。

谢谢！