Merge pull request #2445 from afcowie/fix-output-newline

Only call logWarn if there's anything to report
commercialhaskell · Aug 5, 2016 · de73854 · de73854
2 parents 8e61e9a + 5a00ac3
commit de73854
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Stack/Fetch.hs b/src/Stack/Fetch.hs
@@ -536,7 +536,9 @@ fetchPackages' mdistDir toFetchAll = do
                 S.writeFile cabalFP $ tfCabal toFetch
 
                 atomically $ modifyTVar outputVar $ Map.insert ident destDir
-            $logWarn $ mconcat $ map (\(path, entryType) -> "Unexpected entry type " <> entryType <> " for entry " <> T.pack path) unexpectedEntries
+
+            F.forM_ unexpectedEntries $ \(path, entryType) ->
+                $logWarn $ "Unexpected entry type " <> entryType <> " for entry " <> T.pack path
 
 -- | Internal function used to unpack tarball.
 --