Allow snap-server command-line options

haskellfoundation · Jun 1, 2021 · 24d08dd · 24d08dd
1 parent dd9d184
commit 24d08dd
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -1,7 +1,11 @@
 module Main (main) where
 
 import Shields.Api (api)
-import Snap.Http.Server (defaultConfig, httpServe)
+import Snap.Http.Server
+  ( commandLineConfig,
+    emptyConfig,
+    httpServe,
+  )
 
 main :: IO ()
-main = httpServe defaultConfig api
+main = commandLineConfig emptyConfig >>= flip httpServe api