partially implemented page updating

[Rakka.git] / Rakka / Storage / DefaultPage.hs

diff --git a/Rakka/Storage/DefaultPage.hs b/Rakka/Storage/DefaultPage.hs
index 2cc02c3549b29d1b925068ad883d95f2fddc94f7..bba22798d4597a15442ecf762517169d140ca76f 100644 (file)
--- 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
                    }