src/Repositories.hs Modified

@@ -1,7 +1,7 @@
 {-# Language OverloadedStrings #-}  -- Needed for repository paths.
 
 module Repositories (
-    getLog
+    run
 ) where
 
 import Control.Monad.IO.Class (liftIO)
@@ -9,6 +9,9 @@
 import Git
 import Git.Libgit2 (lgFactory)
 
+import Config (Config, repoPaths)
+
+getLog :: FilePath -> IO ()
 getLog path = withRepository lgFactory path $ do
     maybeObjID <- resolveReference "HEAD"
     case maybeObjID of
@@ -16,3 +19,6 @@
             headCommit <- lookupCommit (Tagged commitID)
             liftIO $ print $ commitLog headCommit
         _ -> liftIO (print "Couldn't resolve HEAD")
+
+run :: Config -> IO ()
+run = mconcat . fmap getLog . repoPaths

src/Main.hs Modified

@@ -2,10 +2,7 @@
 module Main where
 
 import Config (getConfig)
-import Repositories
+import Repositories (run)
 
 main :: IO ()
-main = do
-    config <- getConfig "./config.dhall"
-    print config
-    getLog "."
+main = getConfig "./config.dhall" >>= run

src/Config.hs Modified

@@ -1,6 +1,8 @@
 {-# LANGUAGE DeriveGeneric #-}
 
 module Config (
+    Config,
+    repoPaths,
     getConfig
 ) where