X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FWiki%2FInterpreter%2FPageList.hs;h=2fe9d305fc46509926a60aa6b1ddff9d22a5c403;hb=d717326c5f603dd140a0b5ee27b412e5e09685cd;hp=fd4d364ebde2ad6af3c7ae37f9bdfb72c935ad1d;hpb=9d86882fe1630c844e11cf2cf760110c04ea10d4;p=Rakka.git

diff --git a/Rakka/Wiki/Interpreter/PageList.hs b/Rakka/Wiki/Interpreter/PageList.hs
index fd4d364..2fe9d30 100644
--- a/Rakka/Wiki/Interpreter/PageList.hs
+++ b/Rakka/Wiki/Interpreter/PageList.hs
@@ -6,7 +6,7 @@ module Rakka.Wiki.Interpreter.PageList
 import           Control.Monad
 import           Data.Maybe
 import           Data.Time
-import           Network.HTTP.Lucu.RFC1123DateTime
+import qualified Data.Time.RFC1123 as RFC1123
 import           Network.URI
 import           Rakka.Storage
 import           Rakka.SystemConfig
@@ -85,14 +85,13 @@ 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))]
+                                  [Inline (Text (RFC1123.format lastMod))]
                                 )
                         ]
                         ++