TH_repUnboxedTuples.stderr 967 Bytes
Newer Older
1
CaseE (UnboxedTupE [Just (LitE (CharL 'b')),Just (ConE GHC.Types.False)]) [Match (UnboxedTupP [LitP (CharL 'a'),ConP GHC.Types.True []]) (NormalB (UnboxedTupE [Just (LitE (StringL "One")),Just (LitE (IntegerL 1))])) [],Match (UnboxedTupP [LitP (CharL 'b'),ConP GHC.Types.False []]) (NormalB (UnboxedTupE [Just (LitE (StringL "Two")),Just (LitE (IntegerL 2))])) [],Match (UnboxedTupP [WildP,WildP]) (NormalB (UnboxedTupE [Just (LitE (StringL "Three")),Just (LitE (IntegerL 3))])) []]
2 3 4 5
case (# 'b', GHC.Types.False #) of
    (# 'a', GHC.Types.True #) -> (# "One", 1 #)
    (# 'b', GHC.Types.False #) -> (# "Two", 2 #)
    (# _, _ #) -> (# "Three", 3 #)
Ben Gamari's avatar
Ben Gamari committed
6

7
TH_repUnboxedTuples.hs:18:13: warning: [-Woverlapping-patterns (in -Wdefault)]
8
    Pattern match is redundant
Ben Gamari's avatar
Ben Gamari committed
9
    In a case alternative: (# 'a', True #) -> ...
10 11 12 13

TH_repUnboxedTuples.hs:18:13: warning: [-Woverlapping-patterns (in -Wdefault)]
    Pattern match is redundant
    In a case alternative: (# _, _ #) -> ...