From 53afb9c96904ab226ccee754419569da16c59871 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 23:25:44 +0200
Subject: Setting up the monthly job

---
 src/server/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/server/Main.hs')

diff --git a/src/server/Main.hs b/src/server/Main.hs
index c3d285e..1c2bc08 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -4,6 +4,9 @@ import Web.Scotty
 
 import Network.Wai.Middleware.Static
 
+import Control.Concurrent (forkIO)
+import MonthlyPaymentJob (monthlyPaymentJobListener)
+
 import Data.Text (Text)
 import qualified Data.Text.IO as TIO
 
@@ -19,6 +22,7 @@ import Config
 
 main :: IO ()
 main = do
+  _ <- forkIO monthlyPaymentJobListener
   eitherConfig <- getConfig "config.txt"
   case eitherConfig of
     Left errorMessage ->
-- 
cgit v1.2.3