fix warning wrt static site config

2024-11-05 18:56:12 +00:00 · 2024-11-05 18:56:12 +00:00 · fa123b7c9a
commit fa123b7c9a
parent 2fae769bb9
1 changed files with 1 additions and 2 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -124,6 +124,5 @@ main = runStderrLoggingT $ withPostgresqlPool connStr 10 $ \pool -> liftIO $ do

    p1 : _ <- liftIO $ Track.parseFile "track.gpx"
    Store.save p1
-  static'@(Static settings) <- static "frontend"
-  -- putStrLn ("loaded " ++ show (List.length points) ++ " points from GPX")
+  static' <- static "frontend"
  warp 3000 $ Souplesse static'