X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FPage.hs;h=607a0a81b9035b76104b4d87fd677eb190da0266;hp=5647c8e1481d61df62cf49828164e302cbdb3923;hb=484e15845d9c06d0fa62044d3b6b3ff8c78a6e04;hpb=35f9c2ec3c1e81e42737c54f3f1a8230427691c6

diff --git a/Rakka/Page.hs b/Rakka/Page.hs
index 5647c8e..607a0a8 100644
--- 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