import Network.HTTP
import Network.HTTP.Lucu
import Network.HTTP.Lucu.Response
-import Network.HTTP.Lucu.Utils
import Network.URI
import Rakka.Environment
import Rakka.Page
}
where
toPageName :: [String] -> PageName
- toPageName = decodePageName . joinWith "/"
+ toPageName = UTF8.decodeString . joinPath
handlePost :: Environment -> PageName -> Resource ()
, (a_output_encoding, utf8)
, (a_no_xml_pi , v_0 ) ]
)
- output xmlStr
+ output $ UTF8.encodeString xmlStr
where
mkResponseTree :: ArrowXml a => a b XmlTree
mkResponseTree