如何減少樣本處理Maybe和列表？

Question

有沒有一種更清潔的方式來編寫與其他生產清單Maybe s？

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 ]