dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix warning wrt static site config

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-05 18:56:12 +00:00
parent 2fae769bb9
commit fa123b7c9a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -124,6 +124,5 @@ main = runStderrLoggingT $ withPostgresqlPool connStr 10 $ \pool -> liftIO $ do
p1 : _ <- liftIO $ Track.parseFile "track.gpx" p1 : _ <- liftIO $ Track.parseFile "track.gpx"
Store.save p1 Store.save p1
static'@(Static settings) <- static "frontend" static' <- static "frontend"
-- putStrLn ("loaded " ++ show (List.length points) ++ " points from GPX")
warp 3000 $ Souplesse static' warp 3000 $ Souplesse static'