GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 03:09:33 -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 64ebc4f167
commit e013138f0c
6 changed files with 80 additions and 60 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