Fix #11287.
[ghc.git] / testsuite / tests / th / TH_repUnboxedTuples.stderr
1 CaseE (UnboxedTupE [LitE (CharL 'b'),ConE GHC.Types.False]) [Match (UnboxedTupP [LitP (CharL 'a'),ConP GHC.Types.True []]) (NormalB (UnboxedTupE [LitE (StringL "One"),LitE (IntegerL 1)])) [],Match (UnboxedTupP [LitP (CharL 'b'),ConP GHC.Types.False []]) (NormalB (UnboxedTupE [LitE (StringL "Two"),LitE (IntegerL 2)])) [],Match (UnboxedTupP [WildP,WildP]) (NormalB (UnboxedTupE [LitE (StringL "Three"),LitE (IntegerL 3)])) []]
2 case (# 'b', GHC.Types.False #) of
3     (# 'a', GHC.Types.True #) -> (# "One", 1 #)
4     (# 'b', GHC.Types.False #) -> (# "Two", 2 #)
5     (# _, _ #) -> (# "Three", 3 #)
6
7 TH_repUnboxedTuples.hs:18:13: warning:
8     Pattern match(es) are redundant
9     In a case alternative: (# 'a', True #) -> ...