Configurable path

src/MyLib.hs

@@ -67,9 +67,9 @@ amqpPublisher sqlConn channel exchange = Publish $ \msg -> do
       , msgDeliveryMode = Just Persistent
       }
 
-defaultMain :: IO ()
-defaultMain = do
-  conf <- readConfig "./config.dhall"
+defaultMain :: FilePath -> IO ()
+defaultMain path = do
+  conf <- readConfig path
   let rabbitConnect = openConnection
                   (conf ^. amqp . host . T.unpacked)
                   (conf ^. amqp . vhost)