From 4811e2508d7ae1a3a0c982f06850c41b04732f6f Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Tue, 15 Oct 2024 09:54:41 +1100 Subject: add | as delimiter --- jterm.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3