From 389190a8257428b6efa8a45d1aeb1dfa0824df86 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Sun, 23 Aug 2020 14:53:27 +0100
Subject: [PATCH] Very minor refactoring

---
 src/Text/Pretty/Simple/Internal/OutputPrinter.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pretty/Simple/Internal/OutputPrinter.hs b/src/Text/Pretty/Simple/Internal/OutputPrinter.hs
index 86c065c..2539b87 100644
--- a/src/Text/Pretty/Simple/Internal/OutputPrinter.hs
+++ b/src/Text/Pretty/Simple/Internal/OutputPrinter.hs
@@ -200,6 +200,7 @@ layoutString opts =
   annotateStyle opts
     . layoutSmart defaultLayoutOptions
       {layoutPageWidth = AvailablePerLine (outputOptionsPageWidth opts) 1}
+    . indent (outputOptionsInitialIndent opts)
     . prettyExprs' opts
     . preprocess opts
     . expressionParse
@@ -209,8 +210,7 @@ layoutString opts =
 prettyExprs' :: OutputOptions -> [Expr] -> Doc Annotation
 prettyExprs' opts = \case
   [] -> mempty
-  x : xs -> indent (outputOptionsInitialIndent opts)
-    $ prettyExpr opts x <> prettyExprs opts xs
+  x : xs -> prettyExpr opts x <> prettyExprs opts xs
 
 -- | Construct a 'Doc' from multiple 'Expr's.
 prettyExprs :: OutputOptions -> [Expr] -> Doc Annotation