import Network.HTTP.Lucu.Utils
import Rakka.Environment
import Rakka.Page
+import Rakka.Utils
import Rakka.Wiki
import Rakka.Wiki.Engine
import Rakka.Wiki.Parser
-}
handleRender :: Environment -> PageName -> Resource ()
handleRender env name
- = do cType <- guessTypeIfNeeded =<< getContentType
- bin <- inputLBS defaultLimit
+ = do bin <- inputLBS defaultLimit
+ cTypeM <- getContentType
+
+ let cType = case cTypeM of
+ Just t -> t
+ Nothing -> guessMIMEType bin
setContentType $ read "text/xml"
[xmlStr] <- liftIO $ runX ( setErrorMsgHandler False fail
writeDocumentToString [ (a_indent, v_1) ]
)
output xmlStr
- where
- guessTypeIfNeeded :: Maybe MIMEType -> Resource MIMEType
- guessTypeIfNeeded (Just t) = return t
- guessTypeIfNeeded Nothing = fail "not impl"
render :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>