Remove extra Show TokenData definition

This commit is contained in:
Edwin Brady 2020-05-16 19:03:30 +01:00
parent c7f893f6aa
commit f0a87e88c2

View File

@ -48,10 +48,6 @@ Show Token where
dotSep [x] = x
dotSep (x :: xs) = x ++ concat ["." ++ y | y <- xs]
export
Show (TokenData Token) where
show t = show (line t, col t, tok t)
||| In `comment` we are careful not to parse closing delimiters as
||| valid comments. i.e. you may not write many dashes followed by
||| a closing brace and call it a valid comment.