aboutsummaryrefslogtreecommitdiff
path: root/Toks.hs
diff options
context:
space:
mode:
authorMirek Kratochvil <exa.exa@gmail.com>2025-07-13 10:24:23 +0200
committerMirek Kratochvil <exa.exa@gmail.com>2025-07-13 10:24:23 +0200
commitbc5d7a6915af2774f17f31641ed249d20311f9ee (patch)
treee0615bfd375c20ba3bf4eaa436a216aeb8eb3722 /Toks.hs
parent96a623ac0766df9d6427419c1c8a8e799798d825 (diff)
downloadwerge-bc5d7a6915af2774f17f31641ed249d20311f9ee.tar.gz
werge-bc5d7a6915af2774f17f31641ed249d20311f9ee.tar.bz2
fine-grained space merging
Diffstat (limited to 'Toks.hs')
-rw-r--r--Toks.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/Toks.hs b/Toks.hs
index c8ec567..3a27715 100644
--- a/Toks.hs
+++ b/Toks.hs
@@ -23,6 +23,9 @@ unmarkSpace ('.':s) = s
unmarkSpace ('|':s) = s
unmarkSpace _ = error "wat"
+space ('.':_) = True
+space _ = False
+
split =
unlines
. map (concatMap escape . markSpace)