( resObject
)
where
-
import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Utils
import Rakka.Environment
import Rakka.Page
import Rakka.Storage
import Rakka.SystemConfig
+import System.FilePath.Posix
resObject :: Environment -> ResourceDef
}
where
toPageName :: [String] -> PageName
- toPageName = decodePageName . joinWith "/"
+ toPageName = UTF8.decodeString . joinPath
handleGet :: Environment -> PageName -> Resource ()