suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't actually strip indentation off the source code

Browse Source
This commit is contained in:
Adam Sampson 2006-10-04 22:44:25 +00:00
parent 29073f87ad
commit d82e37c111
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fco/Parse.hs
View File

@ -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
-- -------------------------------------------------------------