diff options
Diffstat (limited to 'Omni/Ava/Web.hs')
| -rw-r--r-- | Omni/Ava/Web.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Omni/Ava/Web.hs b/Omni/Ava/Web.hs index 86a8280..4d4ece6 100644 --- a/Omni/Ava/Web.hs +++ b/Omni/Ava/Web.hs @@ -17,6 +17,7 @@ module Omni.Ava.Web ( startWebServer, app, defaultPort, + main, ) where @@ -33,12 +34,16 @@ import qualified Network.Wai.Handler.Warp as Warp import qualified Omni.Ava.Trace as Trace import qualified System.Environment as Environment +main :: IO () +main = putText "Use Omni.Ava for the main entry point" + defaultPort :: Int defaultPort = 8079 startWebServer :: Int -> FilePath -> IO () startWebServer port dbPath = do putText <| "Starting Ava web server on port " <> tshow port + SQL.withConnection dbPath Trace.initTraceDb Warp.run port (app dbPath) app :: FilePath -> Wai.Application |
