testsuite/tests/ghc-regress/rename/should_fail/rnfail015.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

module ShouldFail where

-- !!! duplicate constructors in datatype
-- (bug report from Alex Ferguson, c. 2.06)

data Token
     =  TokNewline
     |  TokLiteral
     |  TokCount
     |  TokCheck
     |  TokIs
     |  TokDeref
     |  TokFind
     |  TokLiteral		-- Duplicated!
     |  TokThe

      deriving Show

main = print TokCount