)
where
+import qualified Codec.Binary.UTF8.String as UTF8
import Control.Arrow
import Control.Arrow.ArrowList
import Control.Monad
return $ readString [ (a_validate , v_0)
, (a_check_namespaces , v_1)
, (a_remove_whitespace, v_0)
- ] req
+ ] (UTF8.decodeString req)
getFailingReader code headers msg
= return $ proc _ -> abortA -< (code, (headers, msg))
where
extMap :: [(String, MIMEType)]
extMap = [ ("html", read "application/xhtml+xml")
- , ( "rdf", read "application/rdf+xml" )
+ , ( "rdf", read "application/rss+xml" )
, ( "xml", read "text/xml" )
]