Permalink
Browse files

Haddock reader: derive Show for Token, making debugging easier.

  • Loading branch information...
1 parent 7e42905 commit 100f8df43eb2dcef9ccbc02fbcca576d77467740 @davidlazar davidlazar committed Apr 5, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Text/Pandoc/Readers/Haddock/Lex.x
View
2 src/Text/Pandoc/Readers/Haddock/Lex.x
@@ -131,7 +131,7 @@ data Token
| TokExamplePrompt String
| TokExampleExpression String
| TokExampleResult String
--- deriving Show
+ deriving Show
tokenPos :: LToken -> (Int, Int)
tokenPos t = let AlexPn _ line col = snd t in (line, col)

0 comments on commit 100f8df

Please sign in to comment.