Add login function

2022-08-24 11:54:54 +02:00
parent 96bafd4dca
commit c8591dc07b
7 changed files with 95 additions and 32 deletions
@@ -1,8 +1,10 @@
 module Main where

-import Web.Scotty (scotty)
+import Web.Spock (spock, runSpock)

-import Lisa (app)
+import Lisa (mkConfig, app)

 main :: IO ()
-main = scotty 8080 app
+main = do
+    cfg <- mkConfig
+    runSpock 8080 $ spock cfg app