Ancient Haskell version of jq. Might be useful someday. Maybe.haskell-version

1 files changed, 2 insertions, 1 deletions

diff --git a/Lexer.x b/Lexer.x
index 700c69e6..cd3b18c3 100644
--- a/Lexer.x
+++ b/Lexer.x
@@ -7,13 +7,14 @@ import Control.Monad.Error
 
 $digit = 0-9
 $alpha = [a-zA-Z_]
-@reserved = "."|"["|"]"|","|":"|"("|")"|"{"|"}"|"|"|"=="|"+"
+@reserved = "."|"["|"]"|","|":"|"("|")"|"{"|"}"|"|"|"=="|"+"|"="|"$"|"def"|";"|"else"|"and"|"or"|"as"
 @ident = $alpha [$alpha $digit]*
 @string = \" ($printable)* \"
 
 
 tokens :- 
 
+<0> "#" ($printable # [\n\r])* ;
 <0> $white+             ;
 <0> @reserved           { tok TRes }
 <0> @ident              { tok TIdent }