Still in early development...

[Rakka.git] / Rakka / Page.hs

diff --git a/Rakka/Page.hs b/Rakka/Page.hs
index 5647c8e1481d61df62cf49828164e302cbdb3923..607a0a81b9035b76104b4d87fd677eb190da0266 100644 (file)
--- a/Rakka/Page.hs
+++ b/Rakka/Page.hs
@@ -11,6 +11,7 @@ import           Data.Encoding
 import           Data.Encoding.UTF8
 import           Network.HTTP.Lucu
 import           Network.URI
+import           Subversion.Types
 
 
 type PageName = String
@@ -19,11 +20,13 @@ type PageName = String
 data Page
     = Redirect PageName
     | Page {
-        pageType      :: MIMEType
+        pageName      :: PageName
+      , pageType      :: MIMEType
       , pageIsTheme   :: Bool     -- text/css 以外では無意味
       , pageIsFeed    :: Bool     -- text/x-rakka 以外では無意味
       , pageIsLocked  :: Bool
       , pageIsBoring  :: Bool
+      , pageRevision  :: Maybe RevNum
       , pageSummary   :: Maybe String
       , pageOtherLang :: [(String, PageName)]
       , pageContent   :: LazyByteString