( resRender
)
where
-
import Control.Arrow
import Control.Arrow.ArrowIO
import Control.Arrow.ArrowList
import Control.Monad.Trans
import qualified Data.ByteString.Lazy as Lazy
import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Utils
import OpenSSL.EVP.Base64
import Rakka.Environment
import Rakka.Page
import Rakka.Utils
import Rakka.Wiki.Engine
+import System.FilePath.Posix
import Text.XML.HXT.Arrow.Namespace
import Text.XML.HXT.Arrow.WriteDocument
import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
import Text.XML.HXT.DOM.TypeDefs
import Text.XML.HXT.DOM.XmlKeywords
}
where
toPageName :: [String] -> PageName
- toPageName = decodePageName . joinWith "/"
+ toPageName = UTF8.decodeString . joinPath
{-