From fa123b7c9ac5ecab544e066266d25a6fa4eb7bd0 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Tue, 5 Nov 2024 18:56:12 +0000
Subject: [PATCH] fix warning wrt static site config

---
 app/Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index fe00f13..918efb0 100644
--- 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'