From bba047ae945ae7d7899d6e2c1610923bcedb0442 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 5 Dec 2022 12:42:21 +0200 Subject: Implement purity checking --- src/Tokenizer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Tokenizer.hs') diff --git a/src/Tokenizer.hs b/src/Tokenizer.hs index b38e568..96a1c5a 100644 --- a/src/Tokenizer.hs +++ b/src/Tokenizer.hs @@ -65,7 +65,7 @@ _tokenize fileName acc current (x:xs) tokenColumn = tColumn $ head cur, tokenFileName = fileName } in _tokenize fileName (token : acc) [] xs - | tChar x `elem` ['(', ')', '[', ']', '{', '}', '\\'] = + | tChar x `elem` ['(', ')', '[', ']', '{', '}'] = let cur = reverse current token1 = Token { tokenContent = [tChar x], -- cgit v1.3