From 3622810ea7ca5d42694313810b9f0c2557711475 Mon Sep 17 00:00:00 2001
From: Stephen Dolan <mu@netsoc.tcd.ie>
Date: Tue, 18 Sep 2012 17:29:56 +0100
Subject: Ancient Haskell version of jq. Might be useful someday. Maybe.

---
 Lexer.x | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Lexer.x')

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 }
-- 
cgit v1.2.3