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

diff --git a/Rakka/Wiki/Interpreter/PageList.hs b/Rakka/Wiki/Interpreter/PageList.hs
index fd4d364..3d5ce24 100644
--- a/Rakka/Wiki/Interpreter/PageList.hs
+++ b/Rakka/Wiki/Interpreter/PageList.hs
@@ -85,12 +85,11 @@ recentUpdatesInterp
       mkListItem :: Bool -> HitPage -> IO ListItem
       mkListItem showSummary page
           = do lastMod <- utcToLocalZonedTime (hpLastMod page)
-               return ( [ Inline ( PageLink {
-                                     linkPage     = Just (hpPageName page)
-                                   , linkFragment = Nothing
-                                   , linkText     = Nothing
-                                   }
-                                 )
+               return ( [ Inline PageLink {
+                                       linkPage     = Just (hpPageName page)
+                                     , linkFragment = Nothing
+                                     , linkText     = Nothing
+                                     }
                         , Block ( Div [("class", "date")]
                                   [Inline (Text (formatRFC1123DateTime lastMod))]
                                 )