Print 4 spaces instead of tabs in output. #71

statebox · Aug 9, 2019 · 8ba17a9 · 8ba17a9
1 parent 981b555
commit 8ba17a9
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Language/Common.hs b/src/Language/Common.hs
@@ -118,7 +118,10 @@ section :: String -> String -> String
 section heading body =  heading ++ "\n" ++ indentLines body
 
 indentLines :: String -> String
-indentLines = foldMap (\l -> "\t" <> l <> "\n"). lines
+indentLines = foldMap (\l -> tab <> l <> "\n"). lines
+
+tab :: String
+tab = "    "
 
 -- | A version of intercalate that works on Foldables instead of just List,
 -- | adapted from PureScript.