Work around regex-tdfa not handling newlines

haskell-hvr/regex-tdfa#11
radian-software · May 12, 2020 · 40520f3 · 40520f3
1 parent c0bda83
commit 40520f3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Lexer.hs b/src/Lexer.hs
@@ -25,10 +25,10 @@ patterns =
   , ("\\]"                     , const $ Just RBRACKET)
   , ("[0-9]+|0[xX][0-9a-fA-F]+", Just . INTEGER . read)
   , ("[^" ++ nonSymbol ++ "0-9][^" ++ nonSymbol ++ "]*", Just . SYMBOL)
-  , ( "\"([^\\\\\"]|\\\\[\\\\\"0abfnrtv]|\\\\x[0-9a-zA-Z]{2})*\""
+  , ( "\"([^\\\\\"]|\\\\[\\\\\"0abfnrtv]|\\\\x[0-9a-zA-Z]{2}|\n)*\""
     , Just . STRING . readString
     )
-  , ( "'([^\\\\\']|\\\\[\\\\\'0abfnrtv]|\\\\x[0-9a-zA-Z]{2})'"
+  , ( "'([^\\\\\']|\\\\[\\\\\'0abfnrtv]|\\\\x[0-9a-zA-Z]{2}|\n)'"
     , \s ->
       let s' = readString s
       in  if length s' == 1