import Control.Arrow.ArrowList
import Control.Concurrent.STM
import Control.Monad
-import qualified Data.ByteString.Lazy.Char8 as B
+import qualified Data.ByteString.Char8 as C8
+import qualified Data.ByteString.Lazy.Char8 as L8
import Data.Maybe
import Network
import Network.HTTP.Lucu.Config
-- Content-Type が正しくなければ補完できない。
res <- readItr itr itrResponse id
- when (getHeader "Content-Type" res == Just defaultPageContentType)
+ when (getHeader (C8.pack "Content-Type") res == Just defaultPageContentType)
$ do reqM <- readItr itr itrRequest id
let conf = itrConfig itr
- page = B.pack $ getDefaultPage conf reqM res
+ page = L8.pack $ getDefaultPage conf reqM res
writeTVar (itrBodyToSend itr)
$ page
mkDefaultPage conf status msgA
= conf `seq` status `seq` msgA `seq`
let (# sCode, sMsg #) = statusCode status
- sig = cnfServerSoftware conf
+ sig = C8.unpack (cnfServerSoftware conf)
++ " at "
- ++ cnfServerHost conf
+ ++ C8.unpack (cnfServerHost conf)
++ ( case cnfServerPort conf of
Service serv -> ", service " ++ serv
PortNumber num -> ", port " ++ show num
uriPath uri
loc :: String
- loc = fromJust $! getHeader "Location" res
+ loc = C8.unpack $! fromJust $! getHeader (C8.pack "Location") res
{-# SPECIALIZE getMsg :: Maybe Request -> Response -> IOSArrow b XmlTree #-}
\ No newline at end of file