Refactor

helvm · Jan 14, 2021 · 9403517 · 9403517
1 parent 302742f
commit 9403517
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main/eta/Main.hs b/src/main/eta/Main.hs
@@ -27,7 +27,7 @@ eval EAS    dir file = putExcept $ EAS.assemblyIO dir file
 eval HAPAPL dir file = hapapl dir file
 
 putExcept :: IO (Either String String) -> IO ()
-putExcept io = putStrLn =<< (output <$> io)
+putExcept io = putStrLn . output =<< io
 
 output :: Either String String -> String
 output (Right result) = result