ghc/tests/rename/should_fail/rnfail015.hs

   1 module ShouldFail where
   2
   3 --!!! duplicate constructors in datatype
   4 -- (bug report from Alex Ferguson, c. 2.06)
   5
   6 data Token
   7      =  TokNewline
   8      |  TokLiteral
   9      |  TokCount
  10      |  TokCheck
  11      |  TokIs
  12      |  TokDeref
  13      |  TokFind
  14      |  TokLiteral              -- Duplicated!
  15      |  TokThe
  16
  17       deriving Show
  18
  19 main = print TokCount
  20