diff options
| author | simonmar@microsoft.com <unknown> | 2006-06-01 11:52:47 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2006-06-01 11:52:47 +0000 |
| commit | 543a890b3de87c2535072c894035996661bf106c (patch) | |
| tree | 172756c985c166accb856a31dd50a90062c71089 | |
| parent | 9e18e7e9673e7839458179db64503d9d31b34bd4 (diff) | |
| download | haskell-543a890b3de87c2535072c894035996661bf106c.tar.gz | |
commented-out debugging code
| -rw-r--r-- | compiler/parser/Lexer.x | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 1ede5f61c4..5015ca7059 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 |