From 55f393b4f126899ed662d2678777946eb4ff351d Mon Sep 17 00:00:00 2001 From: darkf Date: Thu, 1 Jun 2017 21:30:58 +0000 Subject: [PATCH] Add \0 escape sequence --- Parser.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Parser.hs b/Parser.hs index 186e399..010f40d 100644 --- a/Parser.hs +++ b/Parser.hs @@ -129,6 +129,7 @@ escChar :: Char / 'n' { '\n' } / 'r' { '\r' } / 't' { '\t' } + / '0' { '\0' } identifier ::: T.Text = [a-zA-Z_] [a-zA-Z0-9_'?!]* { T.pack ($1 : $2) }