Commit 7789b037f5077906f66956ba66d675abc879eb13
Parent: 1e6f1f2da531d2e44bbb9f49b3d0484d705066ee
Author: mcol <mcol@posteo.net>
Date: 2022-05-29 16:51:13 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2022-05-29 16:51:13 +0100

also print regular repo files

src/Repositories.hs Modified

@@ -141,7 +141,7 @@
                         force = envForce env
                         gen = genTarget scope runInIO quiet force
 
-                    mapM_ (genRepo scope runInIO output) (envRepoTemplates env)
+                    mapM_ (genRepo scope runInIO quiet output) (envRepoTemplates env)
 
                     whenJust (envCommitTemplate env) \commitT -> do
                         output' <- fmap (output </>) . parseRelDir $ "commit"
@@ -352,12 +352,14 @@
 genRepo ::
     HashMap.HashMap T.Text (GVal RunRepo) ->
     (ReaderT LgRepo IO (GVal RunRepo) -> IO (GVal RunRepo)) ->
+    Bool ->
     Path Abs Dir ->
     Template ->
     IO ()
-genRepo scope runInIO output template =
+genRepo scope runInIO quiet output template = do
     let output' = toFilePath (output </> templatePath template)
-     in TL.writeFile output' =<< generate (cbRepoLookup scope runInIO) template
+    unless quiet . putStrLn $ "Writing " <> output'
+    TL.writeFile output' =<< generate (cbRepoLookup scope runInIO) template
 
 ----------------------------------------------------------------------------------------
 -- Targets -----------------------------------------------------------------------------