src/Templates.hs Modified

@@ -108,7 +108,7 @@
     parseGingerFile includeResolver path >>= \case
         Right parsed -> return . Just . Template path $ parsed
         Left err -> do
-            print . peErrorMessage $ err
+            putStrLn . peErrorMessage $ err
             return Nothing
 
 {-

src/Repositories.hs Modified

@@ -72,7 +72,7 @@
 
     resolveReference "HEAD" >>= \case
         Nothing -> do
-            liftIO . print $ "gitserve: " <> name <> ": Failed to resolve HEAD."
+            liftIO . putStrLn $ "gitserve: " <> name <> ": Failed to resolve HEAD."
             return repo
         Just commitID -> do
             let gitHead = Tagged commitID
@@ -243,6 +243,6 @@
     let output' = output </> category target </> identify target
     exists <- liftIO . doesFileExist $ output'
     when (force || not exists) $ do
-        liftIO $ putStrLn $ "Writing " <> output'
+        liftIO . putStrLn $ "Writing " <> output'
         let scope' = scope <> HashMap.fromList [(pack . category $ target, toGVal target)]
         generate output' scope' template