A web handler threw an exception. Details:
" writeBS "\n"
writeText $ XH.escape t
writeBS "\n"
}
commandLineConfig :: IO ServerConfig
commandLineConfig = do
args <- getArgs
let conf = case args of
[] -> emptyServerConfig
(port':_) -> emptyServerConfig { port = read port' }
locale' <- getEnv "LANG"
return $ case locale' of
Nothing -> conf
Just l -> conf {locale = takeWhile (\c -> isAlpha c || c == '_') l}
server :: ServerConfig -> Snap () -> IO ()
server config handler = do
putStrLn $ "Listening on " ++ (B.unpack $ interface config)
++ ":" ++ show (port config)
setUTF8Locale (locale config)
try $ httpServe
(interface config)
(port config)
(hostname config)
(accessLog config)
(errorLog config)
(catch500 $ compress $ handler)
:: IO (Either SomeException ())
threadDelay 1000000
putStrLn "Shutting down"
where
catch500 = (`catch` (error500Handler config))
compress = if compression config then withCompression else id
quickServer :: Snap () -> IO ()
quickServer = (commandLineConfig >>=) . flip server
setUTF8Locale :: String -> IO ()
setUTF8Locale locale' = do
mapM_ (\k -> setEnv k (locale' ++ ".UTF-8") True)
[ "LANG"
, "LC_CTYPE"
, "LC_NUMERIC"
, "LC_TIME"
, "LC_COLLATE"
, "LC_MONETARY"
, "LC_MESSAGES"
, "LC_PAPER"
, "LC_NAME"
, "LC_ADDRESS"
, "LC_TELEPHONE"
, "LC_MEASUREMENT"
, "LC_IDENTIFICATION"
, "LC_ALL" ]