Commit caf4456d authored by Marc Coiffier's avatar Marc Coiffier
Browse files

Successful build (on Tue Apr 30 21:04:42 CEST 2019)

parent 4a43a8e4
......@@ -35,6 +35,7 @@ instance StackSymbol JS.JSString where
'$' | JSS.length c==2 && c JSS.! 1 == '{' -> Open (Splice CloseExec)
'}' | JSS.length c==1 -> Close
'\'' -> Quoted (drop 1 c)
'\8217' -> Quoted (drop 1 c)
'"' -> Quoted (take (JSS.length c-2) (drop 1 c))
':' -> Comment (TextComment $ drop 1 c)
_ -> maybe (Other c) Number $ matches Just readable (toString c)
......
......@@ -135,8 +135,7 @@ instance StackSymbol String where
atomClass "${" = Open (Splice CloseExec)
atomClass "}" = Close
atomClass ('\'':t) = Quoted t
atomClass ('\x8217':t) = Quoted t
atomClass ('\x82':'\x17':t) = Quoted t
atomClass ('\8217':t) = Quoted t
atomClass ('"':t) = Quoted (init t)
atomClass (':':t) = Comment (TextComment t)
atomClass x = maybe (Other x) Number (matches Just readable x)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment