Setting up the monthly job

1 files changed, 4 insertions, 0 deletions

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 ->