diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-16 15:15:59 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-18 14:19:47 +0100 |
| commit | 4a9f2162380bc57842945f219e88cf9778c2c0df (patch) | |
| tree | b003129f3604498fc9c9685b7a3d01255d24faf0 /testsuite/tests/simplCore/should_compile/T4930.stderr | |
| parent | eca30442817caebab0adee66594cec5316538dd0 (diff) | |
| download | haskell-4a9f2162380bc57842945f219e88cf9778c2c0df.tar.gz | |
Follow changes in comparison primops (see #6135)
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T4930.stderr')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T4930.stderr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T4930.stderr b/testsuite/tests/simplCore/should_compile/T4930.stderr index fcc1d1c32f..54529900a6 100644 --- a/testsuite/tests/simplCore/should_compile/T4930.stderr +++ b/testsuite/tests/simplCore/should_compile/T4930.stderr @@ -19,7 +19,7 @@ T4930.foo :: GHC.Types.Int -> GHC.Types.Int Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) Tmpl= \ (n [Occ=Once!] :: GHC.Types.Int) -> case n of _ { GHC.Types.I# x -> - case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# x 5) of _ { + case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<# x 5) of _ { GHC.Types.False -> GHC.Types.I# (GHC.Prim.+# x 5); GHC.Types.True -> T4930.foo1 } @@ -27,7 +27,7 @@ T4930.foo :: GHC.Types.Int -> GHC.Types.Int T4930.foo = \ (n :: GHC.Types.Int) -> case n of _ { GHC.Types.I# x -> - case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# x 5) of _ { + case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<# x 5) of _ { GHC.Types.False -> GHC.Types.I# (GHC.Prim.+# x 5); GHC.Types.True -> T4930.foo1 } |