haskell - 如何在绑定(bind)操作中使用非一元函数

Question

我觉得我应该已经知道这一点，但我如何在一行中使用 fromMaybe 而不是用 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