Very minor refactoring

cdepillabout · Aug 23, 2020 · 389190a · 389190a
1 parent e05d071
commit 389190a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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