From 543a890b3de87c2535072c894035996661bf106c Mon Sep 17 00:00:00 2001
From: "simonmar@microsoft.com" <unknown>
Date: Thu, 1 Jun 2006 11:52:47 +0000
Subject: [PATCH] commented-out debugging code

---
 compiler/parser/Lexer.x |    2 ++
 1 file changed, 2 insertions(+)

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
-- 
1.7.10.4