diff --git a/src-brittany/Main.hs b/src-brittany/Main.hs
index 527d2e8..423320b 100644
--- a/src-brittany/Main.hs
+++ b/src-brittany/Main.hs
@@ -325,7 +325,7 @@ coreIO putErrorLnIO config suppressOutput inputPathM outputPathM =
     case parseResult of
       Left left -> do
         putErrorLn "parse error:"
-        putErrorLn $ show left
+        putErrorLn left
         ExceptT.throwE 60
       Right (anns, parsedSource, hasCPP) -> do
         (inlineConf, perItemConf) <-
diff --git a/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs b/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs
index 1fabf9c..0273d85 100644
--- a/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs
+++ b/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs
@@ -123,7 +123,7 @@ parseModuleFromString args fp dynCheck str =
     dynCheckRes <- ExceptT.ExceptT $ liftIO $ dynCheck dflags1
     let res = ExactPrint.parseModuleFromStringInternal dflags1 fp str
     case res of
-      Left  (span, err) -> ExceptT.throwE $ show span ++ ": " ++ err
+      Left  (span, err) -> ExceptT.throwE $ showOutputable span ++ ": " ++ err
       Right (a   , m  ) -> pure (a, m, dynCheckRes)