Haskell mapM_不打印

所以我写了一个程序来查询一个外汇API(外汇),它工作起来很有魅力,但是当我想查询每一个可用的货币对时,它会计算所有的API调用,因为它需要很长时间来执行,但不会打印任何内容。

import Data.Functor ((<&>))

supportedPairs :: IO (Maybe [(String, String)])
forex :: String -> String -> IO (Maybe (Scientific, UnixTime))


main :: IO ()
main = do
    x <- supportedPairs
    mapM_ (flip (<&>) print . uncurry forex) (fromJust x)
    -- this prints nothing at all

单打电话的工作原理如下:

main = do
    x <- supportedPairs    
    u <- (uncurry forex . (flip (!!) 10 . fromJust)) x
    print u
    -- this prints "Just (438.685041,UnixTime {utSeconds = 1649588583, utMicroSeconds = 0})"

为什么 mapM_ 尽管结果已被评估,但是否打印结果?如果我正确理解哈斯凯尔的懒惰,那么如果结果不被打印出来,就不应该首先对其进行评估?