)
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))