haskell - 如何减少处理 Maybe 和列表的样板文件？

Question

是否有一种更简洁的方法来将生成列表的函数与其他生成 Maybe 的函数组合在一起？

import Text.Feed.Query (getItemLink, getFeedItems)

s = getFeedItems >=> (maybeToList . getItemLink)

Answer 1

您可以使用 mapMaybe :: (a -> Maybe b) -> [a] -> [b]来自 Data.Maybe:

s = mapMaybe getItemLink . getFeedItems

该模块还包含另一个有用的函数，catMaybes:

catMaybes :: [Maybe a] -> [a] -- filter out all the Nothings

列表理解在这种情况下也很有用，尽管更冗长:

s feed = [ itemLink | Just itemLink <- map getItemLink (getFeedItems feed) ]
-- s feed = [ itemLink | item <- getFeedItems feed, Just itemLink <- return item ]