haskell - 在 Haskell 中调试时打印时间戳

Question

我仍在学习 Haskell 并调试一些函数，并且通常有一个时间戳函数来了解某些操作何时开始和停止:

doSomeAction :: String -> IO ()
doSomeAction arg1 = do
  putStrLn =<< makeTime
  theThingthatTakesAwhile arg1
  putStrLn =<< makeTime
  where
    makeTime = (formatTime defaultTimeLocale "%Y%m%d%H%M%S") <$> getZonedTime

是我的=<<和where包含 <$> 的子句与 IO 交互的合理方式 getZonedTime ？

λ> :t getZonedTime
getZonedTime :: IO ZonedTime

或者这是否会误导我或读者或者不符合惯用语？

输出是:

20170114152312
Doing some long function....
20170114152336

这正是我想看到的——它告诉我我需要什么。 putStrLn =<< something 看起来很奇怪以获得这种效果。

Answer 1

你的代码完全没问题。任何精通 Haskell 的程序员都应该很快就能理解它。

不过，按照我自己的风格，我更喜欢在 do block 中使用 let:

doSomeAction :: String -> IO ()
doSomeAction arg1 = do
  let makeTime = formatTime defaultTimeLocale "%Y%m%d%H%M%S" <$> getZonedTime
  putStrLn =<< makeTime
  theThingthatTakesAwhile arg1
  putStrLn =<< makeTime

或者可能是一些变化

doSomeAction :: String -> IO ()
doSomeAction arg1 = do
  let printTime = putStrLn . formatTime defaultTimeLocale "%Y%m%d%H%M%S" =<< getZonedTime
  printTime
  theThingthatTakesAwhile arg1
  printTime

但是，这只是个人喜好问题。