From 432e4142e53dc10ff3ba1527cacb7d833c0ebb77 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <me@ypei.me>
Date: Thu, 11 Jan 2018 16:36:38 +0100
Subject: checkpoint.

---
 projects/10/JackParser.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'projects/10')

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
 
-- 
cgit v1.2.3