From f4b680d0376395b06a758c054894c4ab9211fe12 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Tue, 15 Oct 2024 07:25:03 +1100 Subject: remove . from expansion search --- jterm.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/jterm.hs b/jterm.hs index e492959..c089e35 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