--- -*- Coding: utf-8 -*-
+{-# LANGUAGE
+ UnicodeSyntax
+ #-}
module Rakka.Resource.Object
( resObject
)
where
-
import qualified Codec.Binary.UTF8.String as UTF8
+import Control.Monad.Unicode
+import qualified Data.Text as T
import Network.HTTP.Lucu
+import Prelude.Unicode
import Rakka.Environment
import Rakka.Page
import Rakka.Storage
import Rakka.SystemConfig
import System.FilePath.Posix
-
-resObject :: Environment -> ResourceDef
+resObject ∷ Environment → ResourceDef
resObject env
= ResourceDef {
resUsesNativeThread = False
, resIsGreedy = True
- , resGet = Just $ getPathInfo >>= handleGet env . toPageName
+ , resGet = Just $ getPathInfo ≫= handleGet env ∘ toPageName
, resHead = Nothing
, resPost = Nothing
, resPut = Nothing
, resDelete = Nothing
}
where
- toPageName :: [String] -> PageName
- toPageName = UTF8.decodeString . joinPath
-
+ toPageName ∷ [String] → PageName
+ toPageName = T.pack ∘ UTF8.decodeString . joinPath
handleGet :: Environment -> PageName -> Resource ()
handleGet env name