src/Templates.hs Modified

@@ -15,7 +15,7 @@
 import Data.Text (unpack, Text)
 import qualified Data.HashMap.Strict as HashMap
 import System.Directory (doesFileExist, getDirectoryContents)
-import System.FilePath ((</>))
+import System.FilePath ((</>), takeFileName)
 import System.IO.Error (tryIOError)
 import qualified Text.Ginger.AST as G
 import Text.Ginger.Parse (SourcePos, parseGingerFile, peErrorMessage)
@@ -91,15 +91,18 @@
 {-
 This function gets the output HTML data and is responsible for saving it to file.
 -}
-writeTo :: Html -> IO ()
-writeTo = putStr . unpack . htmlSource
+writeTo :: FilePath -> Html -> IO ()
+writeTo path html = appendFile path . unpack . htmlSource $ html
 
 {-
 This is the generator function that receives repository-specific variables and uses
 Ginger to render templates using them.
 -}
 generate
-    :: HashMap.HashMap Text (GVal (Run SourcePos IO Html))
+    :: FilePath
+    -> HashMap.HashMap Text (GVal (Run SourcePos IO Html))
     -> Template
     -> IO (Either (RuntimeError SourcePos) (GVal (Run SourcePos IO Html)))
-generate context template = easyRenderM writeTo context (templateGinger template)
+generate output context template = easyRenderM writeToPath context (templateGinger template)
+  where
+    writeToPath = writeTo $ output </> (takeFileName . templatePath $ template)

src/Repositories.hs Modified

@@ -54,7 +54,8 @@
 processRepo' :: [Template] -> Config -> FilePath -> ReaderT LgRepo IO ()
 processRepo' templates config path = do
     let name = takeFileName path
-    liftIO $ createDirectoryIfMissing True $ outputDirectory config </> name
+    let output = outputDirectory config </> name
+    liftIO $ createDirectoryIfMissing True output
     resolveReference "HEAD" >>= \case
         Nothing -> liftIO . print $ "gitserve: " <> name <> ": Failed to resolve HEAD."
         Just commitID -> do
@@ -73,7 +74,7 @@
 
             -- Run the generator --
             let repo = package config name description commits tree
-            liftIO . mapM (generate repo) $ templates
+            liftIO . mapM (generate output repo) $ templates
             return ()
 
 {-