fix(ava): initialize tool_traces table on web server startup

The table creation was in Memory.initMemoryDb but Web.hs opened the
database directly without calling it. Now Trace.hs has its own
initTraceDb function that Web.startWebServer calls on startup.

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