如何在绑定操作中使用非monadic函数

Question

我觉得我应该已经知道了这一点,但是如何fromMaybe在一行中使用而不是将其分成2行let？

main = do
    maybePort <- lookupEnv "PORT"
    let port = fromMaybe "4020" maybePort
    putStrLn $ "Listening on:" ++ port

Answer 1

你可以使用fmap或<$>喜欢这个:

import Control.Applicative ((<$>))

main = do
    port <- fromMaybe "4020" <$> lookupEnv "PORT"
    putStrLn $ "Listening on:" ++ port