Put errors to stderr

swarm-game · Aug 3, 2023 · 95cb9e7 · 95cb9e7
1 parent ed7d03a
commit 95cb9e7
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Swarm/Doc/Pedagogy.hs b/src/Swarm/Doc/Pedagogy.hs
@@ -161,9 +161,8 @@ loadScenarioCollection :: IO ScenarioCollection
 loadScenarioCollection = simpleErrorHandle $ do
   entities <- ExceptT loadEntities
   (failures, loadedScenarios) <- liftIO $ loadScenariosWithWarnings entities
-  when (notNull failures) $
-    liftIO $
-      hPutStrLn stderr "Loading failures: " >> mapM_ (T.putStrLn . prettyFailure) failures
+  when (notNull failures) . liftIO $
+    hPutStrLn stderr "Loading failures: " >> mapM_ (T.hPutStrLn stderr . prettyFailure) failures
   return loadedScenarios
 
 renderUsagesMarkdown :: CoverageInfo -> Text