 :: ServerOptions -> (ByteString -> ByteString) -> IO ()
server opts@(ServerOptions { port, logFile }) =
  (≫) serverInit . run port . app opts
  where
    serverInit = do
      logLine $ "Server starting on port " ++ show port
      logLine $ "Logging: " ++ maybe "disabled" ((++) "enbled, logging to " . show) logFile

server :: ServerOptions -> (ByteString -> ByteString) -> IO ()
server opts@(ServerOptions { port, logFile }) =
  (≫) serverInit . run port . app opts
  where
    serverInit = do
      logLine $ "Server starting on port " ++ show port
      logLine $ "Logging: " ++ maybe "disabled" ((++) "enbled, logging to " . show) logFile
server opts@(ServerOptions { port, logFile }) =
  (≫) serverInit . run port . app opts
  where
    serverInit = do
      logLine $ "Server starting on port " ++ show port
      logLine $ "Logging: " ++ maybe "disabled" ((++) "enbled, logging to " . show) logFile