From 984356c796963bcba44dcbe261e460bd37385c35 Mon Sep 17 00:00:00 2001 From: Joris Date: Wed, 9 Sep 2015 21:35:29 +0200 Subject: Authorizing refunds (negative payments) but stop authorizing null payments --- src/server/Main.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/server/Main.hs') diff --git a/src/server/Main.hs b/src/server/Main.hs index 1c2bc08..1a151fc 100644 --- a/src/server/Main.hs +++ b/src/server/Main.hs @@ -22,15 +22,14 @@ import Config main :: IO () main = do + runMigrations _ <- forkIO monthlyPaymentJobListener eitherConfig <- getConfig "config.txt" case eitherConfig of Left errorMessage -> TIO.putStrLn errorMessage Right config -> do - runMigrations scotty (port config) $ do - middleware $ staticPolicy (noDots >-> addBase "public") -- cgit v1.2.3