From: simonmar@microsoft.com <unknown>
Date: Thu, 1 Jun 2006 11:52:47 +0000 (+0000)
Subject: commented-out debugging code
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=543a890b3de87c2535072c894035996661bf106c

commented-out debugging code
---

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 1ede5f6..5015ca7 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1210,6 +1210,7 @@ alexGetChar :: AlexInput -> Maybe (Char,AlexInput)
 alexGetChar (AI loc ofs s) 
   | atEnd s   = Nothing
   | otherwise = adj_c `seq` loc' `seq` ofs' `seq` s' `seq` 
+		--trace (show (ord c)) $
 		Just (adj_c, (AI loc' ofs' s'))
   where (c,s') = nextChar s
         loc'   = advanceSrcLoc loc c
@@ -1259,6 +1260,7 @@ alexGetChar' :: AlexInput -> Maybe (Char,AlexInput)
 alexGetChar' (AI loc ofs s) 
   | atEnd s   = Nothing
   | otherwise = c `seq` loc' `seq` ofs' `seq` s' `seq` 
+		--trace (show (ord c)) $
 		Just (c, (AI loc' ofs' s'))
   where (c,s') = nextChar s
         loc'   = advanceSrcLoc loc c