X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FWiki%2FInterpreter%2FTrackback.hs;h=b5e5cf0270d9aa2acd50368af0dec79a9588fa83;hp=485c46f1d6e343b48eece25ae6dc384ae146d36f;hb=43113f26d3e61c96d896724c5509abe67b6a99e7;hpb=9c2fc861f3ed609ebb4d0f135aea38ca055bbea8

diff --git a/Rakka/Wiki/Interpreter/Trackback.hs b/Rakka/Wiki/Interpreter/Trackback.hs
index 485c46f..b5e5cf0 100644
--- 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]