diff options
Diffstat (limited to 'projects/10/JackParser.hs')
| -rw-r--r-- | projects/10/JackParser.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/projects/10/JackParser.hs b/projects/10/JackParser.hs index 990e3ec..6f83070 100644 --- a/projects/10/JackParser.hs +++ b/projects/10/JackParser.hs @@ -1,6 +1,6 @@ -- Jack Parser, as the coursework of Project 10 of Nand2Tetris course. -- Author: Yuchen Pei (me@ypei.me) --- Date: January 2018 +-- Date: 2018-01-11 {-# LANGUAGE FlexibleContexts #-} import Text.Parsec.Prim import Text.Parsec.Char @@ -292,10 +292,12 @@ someArgs = do many jSpace >> char ')' return exps +{-- replCrWithNl :: [Char] -> [Char] replCrWithNl = fmap cr2nl where cr2nl '\r' = '\n' cr2nl c = c + --} -- IO |