Nothing
-> return []
Just name
- -> getAttachment (ctxStorage ctx) name "trackbacks" Nothing
- >>=
- return . fromMaybe []
+ -> liftM (fromMaybe [])
+ (getAttachment (ctxStorage ctx) name "trackbacks" Nothing)
items <- mapM mkListItem trackbacks
let divElem = Div [("class", "trackbacks")] [list]