GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-17 13:01:31 +03:00
Code Issues Projects Releases Wiki Activity

Rename function "endComent" to "endComment"

Browse Source
This commit is contained in:
Brian Huffman 2016-09-19 15:20:33 -07:00
parent 22bb49b3b5
commit 7ccea5dd98
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Cryptol/Parser/Lexer.x
View File

@ -62,7 +62,7 @@ $unitick = \x7
} }
<comment> { <comment> {
\*+\/ { endComent } \*+\/ { endComment }
[^\*\/]+ { addToComment } [^\*\/]+ { addToComment }
\* { addToComment } \* { addToComment }
\/ { addToComment } \/ { addToComment }

4
src/Cryptol/Parser/LexerUtils.hs
View File

@ -62,8 +62,8 @@ startComment isDoc _ p txt s = (Nothing, InComment d p stack chunks)
InComment doc q qs cs -> (doc, q : qs, txt : cs) InComment doc q qs cs -> (doc, q : qs, txt : cs)
_ -> panic "[Lexer] startComment" ["in a string"] _ -> panic "[Lexer] startComment" ["in a string"]
endComent :: Action endComment :: Action
endComent cfg p txt s = endComment cfg p txt s =
case s of case s of
InComment d f [] cs -> (Just (mkToken d f cs), Normal) InComment d f [] cs -> (Just (mkToken d f cs), Normal)
InComment d _ (q:qs) cs -> (Nothing, InComment d q qs (txt : cs)) InComment d _ (q:qs) cs -> (Nothing, InComment d q qs (txt : cs))