GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

refresh compilation phase in the new format

Browse Source
This commit is contained in:
aarne
2007-12-07 10:23:18 +00:00
parent f7b3c218cf
commit 091f9f0c1b
7 changed files with 81 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Infra/CompactPrint.hs
View File

@@ -5,7 +5,9 @@ compactPrint = compactPrintCustom keywordGF (const False)
compactPrintGFCC = compactPrintCustom (const False) keywordGFCC
compactPrintCustom pre post = tail . concat . map (spaceIf pre post) . words
compactPrintCustom pre post = dps . concat . map (spaceIf pre post) . words
dps = dropWhile isSpace
spaceIf pre post w = case w of
_ | pre w -> "\n" ++ w