diff --git a/app/Main.hs b/app/Main.hs
index 43dbedd..facfcaa 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -123,7 +123,7 @@ showSide side = do
   promptContinue "--> Continue"
 
 displaySide :: String -> InputT IO ()
-displaySide side = lift (putStrLn side)
+displaySide side = outputStr side
 
 {-
  - Display stats