diff options
Diffstat (limited to 'hsm-web')
| -rw-r--r-- | hsm-web/Hsm/Web.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/hsm-web/Hsm/Web.hs b/hsm-web/Hsm/Web.hs index a99ba5b..79e007d 100644 --- a/hsm-web/Hsm/Web.hs +++ b/hsm-web/Hsm/Web.hs @@ -19,6 +19,7 @@ import Effectful.Dispatch.Static , getStaticRep , unEff , unsafeEff + , unsafeEff_ ) import Effectful.Dispatch.Static.Primitive (Env) import Effectful.Exception (finally) @@ -109,8 +110,10 @@ runServer runServer = finally startServer stopServer where startServer = do + dist <- unsafeEff_ $ getDataFileName "Client/dist/" Web options <- getStaticRep logMsg @"web" Info "Starting scotty web server" + logMsg @"web" Info $ "Serving static files from: " <> dist unsafeEff $ server options stopServer = logMsg @"web" Info "Stopping scotty web server" |