diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-19 20:38:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-19 20:38:26 +0100 |
| commit | 7f164839d8b0b6e53fa0f15d2a6810ca310e337d (patch) | |
| tree | 34a2bdeb25673b73d3a6935ab5d4170f94bc11a0 /src/Haddock/Lex.x | |
| parent | 4dc9ecd3905f75adb6bcfb818fbc163c724d4545 (diff) | |
| parent | 6e8bc1dca77bbbc5743f63a2e8ea5b1eab0ed80c (diff) | |
Merge branch 'master' of darcs.haskell.org:/srv/darcs//haddock
Diffstat (limited to 'src/Haddock/Lex.x')
| -rw-r--r-- | src/Haddock/Lex.x | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Lex.x b/src/Haddock/Lex.x index f65aee8c..b9ebe688 100644 --- a/src/Haddock/Lex.x +++ b/src/Haddock/Lex.x @@ -34,6 +34,7 @@ import Data.Char import Data.Word (Word8) import Numeric import System.IO.Unsafe +import Debug.Trace } $ws = $white # \n @@ -181,7 +182,7 @@ tokenise dflags str (line, col) = let toks = go (posn, '\n', eofHack str) para i go inp@(pos, _, str) sc = case alexScan inp sc of AlexEOF -> [] - AlexError _ -> error "lexical error" + AlexError _ -> [] AlexSkip inp' _ -> go inp' sc AlexToken inp'@(pos',_,_) len act -> act pos (take len str) sc (\sc -> go inp' sc) dflags |