tkyprof-0.0.1: bin/tkyprof.hs

{-# LANGUAGE CPP #-}
import Controller (withTKYProf)
#if PRODUCTION
import Network.Wai.Handler.Webkit (run)

main :: IO ()
main = withTKYProf $ run "Devel.TKYProf"
#elif WEB
import Network.Wai.Handler.Warp (run)

main :: IO ()
main = withTKYProf $ run 3000
#else
import System.IO (hPutStrLn, stderr)
import Network.Wai.Middleware.Debug (debug)
import Network.Wai.Handler.Warp (run)

main :: IO ()
main = do
  let port = 3000
  hPutStrLn stderr $ "Application launched, listening on port " ++ show port
  withTKYProf $ run port . debug
#endif