X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FStorage%2FDefaultPage.hs;h=bba22798d4597a15442ecf762517169d140ca76f;hb=b4a3d2cf3854b10d923cb4c546bf1fe32b021a68;hp=2cc02c3549b29d1b925068ad883d95f2fddc94f7;hpb=9681bedbfde02fa1bcda4fbbacba941378c7a57a;p=Rakka.git

diff --git a/Rakka/Storage/DefaultPage.hs b/Rakka/Storage/DefaultPage.hs
index 2cc02c3..bba2279 100644
--- a/Rakka/Storage/DefaultPage.hs
+++ b/Rakka/Storage/DefaultPage.hs
@@ -89,14 +89,14 @@ loadPageFileA
          page    <- parseXmlizedPage -< (name, tree)
 
          case page of
-           Redirection _ _ _ _
+           Redirection _ _ _ _ _
                -> returnA -< page {
                      redirRevision = 0
                    , redirLastMod  = lastMod
                    }
 
-           Entity _ _ _ _ _ _ _ _ _ _ _ _ _ _
+           Entity _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
                -> returnA -< page {
-                     pageRevision = 0
-                   , pageLastMod  = lastMod
+                     entityRevision = 0
+                   , entityLastMod  = lastMod
                    }