From d82e37c1116dd8031683529f7ee5e48add2a4ff9 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Wed, 4 Oct 2006 22:44:25 +0000
Subject: [PATCH] Don't actually strip indentation off the source code

---
 fco/Parse.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fco/Parse.hs b/fco/Parse.hs
index 2239648..de8c56e 100644
--- a/fco/Parse.hs
+++ b/fco/Parse.hs
@@ -755,8 +755,8 @@ flatten ls = concat $ intersperse "\n" $ flatten' ls 0
       | newLevel < level = (rep (level - newLevel) '}' ++ stripped) : rest
       | otherwise        = stripped : rest
       where newLevel = countIndent s
-            stripped' = stripIndent $ stripComment s
-            stripped = if stripped' == "" then "" else (stripped' ++ "@")
+            stripped' = stripComment s
+            stripped = if stripIndent stripped' == "" then "" else (stripped' ++ "@")
             rest = flatten' ss newLevel
 
 -- -------------------------------------------------------------