runServer :: Int -> IO ()
runServer port = httpServe config app
    where config = setPort port
                 . setAccessLog ConfigNoLog
                 . setErrorLog (ConfigIoLog B8.putStrLn)
                 $ mempty
runServer :: Int -> IO ()
runServer port = httpServe config app
    where config = setPort port
                 . setAccessLog ConfigNoLog
                 . setErrorLog (ConfigIoLog B8.putStrLn)
                 $ mempty
runServer port = httpServe config app
    where config = setPort port
                 . setAccessLog ConfigNoLog
                 . setErrorLog (ConfigIoLog B8.putStrLn)
                 $ mempty