diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/spec-inline.stderr')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/spec-inline.stderr | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/testsuite/tests/simplCore/should_compile/spec-inline.stderr b/testsuite/tests/simplCore/should_compile/spec-inline.stderr index 319eba03cb..2ba178e6bf 100644 --- a/testsuite/tests/simplCore/should_compile/spec-inline.stderr +++ b/testsuite/tests/simplCore/should_compile/spec-inline.stderr @@ -80,12 +80,12 @@ Roman.$wgo [InlPrag=[2]] :: Maybe Int -> Maybe Int -> GHC.Prim.Int# Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [61 30] 249 0}] Roman.$wgo - = \ (w :: Maybe Int) (w1 :: Maybe Int) -> - case w1 of { + = \ (u :: Maybe Int) (ds :: Maybe Int) -> + case ds of { Nothing -> case Roman.foo3 of wild1 { }; Just x -> case x of { GHC.Types.I# ipv -> - case w of { + case u of { Nothing -> Roman.foo_$s$wgo (GHC.Prim.*# 7# ipv) 10#; Just n -> case n of { GHC.Types.I# x2 -> @@ -116,14 +116,14 @@ Roman.foo_go [InlPrag=[2]] :: Maybe Int -> Maybe Int -> Int Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False) - Tmpl= \ (w [Occ=Once1] :: Maybe Int) - (w1 [Occ=Once1] :: Maybe Int) -> - case Roman.$wgo w w1 of ww [Occ=Once1] { __DEFAULT -> + Tmpl= \ (u [Occ=Once1] :: Maybe Int) + (ds [Occ=Once1] :: Maybe Int) -> + case Roman.$wgo u ds of ww [Occ=Once1] { __DEFAULT -> GHC.Types.I# ww }}] Roman.foo_go - = \ (w :: Maybe Int) (w1 :: Maybe Int) -> - case Roman.$wgo w w1 of ww { __DEFAULT -> GHC.Types.I# ww } + = \ (u :: Maybe Int) (ds :: Maybe Int) -> + case Roman.$wgo u ds of ww { __DEFAULT -> GHC.Types.I# ww } -- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} Roman.foo2 :: Int |