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

This commit is contained in:
David Lazar
2013-04-04 23:01:15 -07:00
parent 7e4290561d
commit 100f8df43e
+1 -1
View File
@@ -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)