diff options
Diffstat (limited to 'testsuite/tests/th/TH_repUnboxedTuples.stderr')
| -rw-r--r-- | testsuite/tests/th/TH_repUnboxedTuples.stderr | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/th/TH_repUnboxedTuples.stderr b/testsuite/tests/th/TH_repUnboxedTuples.stderr new file mode 100644 index 0000000000..d5bfa68bec --- /dev/null +++ b/testsuite/tests/th/TH_repUnboxedTuples.stderr @@ -0,0 +1,5 @@ +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)])) []] +case (# 'b', GHC.Types.False #) of + (# 'a', GHC.Types.True #) -> (# "One", 1 #) + (# 'b', GHC.Types.False #) -> (# "Two", 2 #) + (# _, _ #) -> (# "Three", 3 #) |