Applied HLint

[Rakka.git] / Rakka / Wiki / Interpreter / Trackback.hs

diff --git a/Rakka/Wiki/Interpreter/Trackback.hs b/Rakka/Wiki/Interpreter/Trackback.hs
index 485c46f1d6e343b48eece25ae6dc384ae146d36f..b5e5cf0270d9aa2acd50368af0dec79a9588fa83 100644 (file)
--- a/Rakka/Wiki/Interpreter/Trackback.hs
+++ b/Rakka/Wiki/Interpreter/Trackback.hs
@@ -45,9 +45,8 @@ trackbacksInterp
                                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]