aboutsummaryrefslogtreecommitdiff
path: root/projects/10
diff options
context:
space:
mode:
Diffstat (limited to 'projects/10')
-rw-r--r--projects/10/JackParser.hs4
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