Haskell 在Scotty do块中添加打印

我是Haskell的新手，如果这个问题很愚蠢，我会提前道歉，但我无法在google中找到解决方案

假设我有一个使用web框架的程序：

responseUserByName :: ActionM ()
responseUserByName = do name <- param "name"
                        user <- liftAndCatchIO $ getUserByUserName name
                        json user

responseUserByName:：ActionM（）
responseUserByName=do name我猜，
ActionM
来自。在这种情况下，您可以简单地使用
liftIO
提升IO操作，就像您已经使用
liftAndCatchIO
一样：

responseUserByName :: ActionM ()
responseUserByName =
    do name <- param "name"
       user <- liftAndCatchIO $ getUserByUserName name
       liftIO $ putStrLn "this is a log message"
       json user

responseUserByName:：ActionM（）
响应塞尔维亚名称=
命名