summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJustin Bedo <cu@cua0.org>2024-10-15 09:54:41 +1100
committerJustin Bedo <cu@cua0.org>2024-10-15 09:55:24 +1100
commit4811e2508d7ae1a3a0c982f06850c41b04732f6f (patch)
treed708920663abaee08d703c1d6faf8a9354566162
parentf4b680d0376395b06a758c054894c4ab9211fe12 (diff)
add | as delimiter
-rw-r--r--jterm.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/jterm.hs b/jterm.hs
index c089e35..170e195 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -61,7 +61,7 @@ expandAround rp p =
where
l = R.length rp
- ws x = x `elem` [" ", "\t", "(", ")", "[", "]", "{", "}", "\n", "'", "\"", ",", ";", ":"]
+ ws x = x `elem` [" ", "\t", "(", ")", "[", "]", "{", "}", "\n", "'", "\"", ",", ";", ":", "|"]
getc i
| i == 0 = let (sel, _) = R.splitAt 1 rp in R.toText sel