import Data.Maybe
import Data.Time
import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Utils
import Network.URI hiding (path)
import Rakka.Environment
import Rakka.Page
import Rakka.Utils
import Rakka.W3CDateTime
import Rakka.Wiki.Engine
-import System.FilePath
+import System.FilePath.Posix
import Text.HyperEstraier hiding (getText)
import Text.XML.HXT.Arrow
-import Text.XML.HXT.DOM.TypeDefs
-import Text.XML.HXT.DOM.XmlKeywords
+import Text.XML.HXT.XPath
fallbackPageEntity :: Environment -> [String] -> IO (Maybe ResourceDef)
}
where
toPageName :: [String] -> PageName
- toPageName = decodePageName . dropExtension . joinWith "/"
+ toPageName = decodePageName . dropExtension . joinPath
handleGet :: Environment -> PageName -> Resource ()