src/Templates.hs Modified

@@ -60,7 +60,7 @@
 loadTemplates config = do
     -- Custom templates
     files <- getFiles config
-    templates <- sequence . fmap loadTemplate $ files
+    templates <- mapM loadTemplate files
     -- Scoped templates
     indexT <- loadTemplate . indexTemplate $ config
     commitT <- loadTemplate . commitTemplate $ config

src/Repositories.hs Modified

@@ -132,7 +132,7 @@
 getTree :: CommitOid LgRepo -> ReaderT LgRepo IO [TreeFile]
 getTree commitID = do
     entries <- listTreeEntries =<< lookupTree . commitTree =<< lookupCommit commitID
-    contents <- sequence . fmap (gvalTreeEntry . snd) $ entries
+    contents <- mapM (gvalTreeEntry . snd) entries
     return $ zipWith TreeFile (fmap fst entries) contents
 
 gvalTreeEntry :: TreeEntry LgRepo -> ReaderT LgRepo IO TreeFileContents