From 940351730a93a1a3e637717490f0918dd05ec2f6 Mon Sep 17 00:00:00 2001
From: Kamil Adam <kamil.adam.zabinski@gmail.com>
Date: Thu, 14 Jan 2021 18:06:13 +0100
Subject: [PATCH] Refactor

---
 src/main/eta/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/main/eta/Main.hs b/src/main/eta/Main.hs
index 346318fd..d694eabc 100644
--- 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