4b4d5fc1c2c83a9afb3ae32fd19e5fe3f8f4a700
[ghc-hetmet.git] / ghc / tests / stranal / should_compile / fact.stderr
1
2
3 ================================================================================
4 Simplified:
5 Rec {
6 `$g0'  ::  `GHC.Int# -> PrelBase.Int'
7 `$g0' =
8     \ `$x0'  ::  `GHC.Int#'
9       `$x0' ->
10         case# `$x0' of {
11           0 -> `PrelBase.I#' {2};
12           `$x1' ->
13               case `$g0' `$x0' of { `PrelBase.I#' `$x2'  ->
14               case# *#! `$x2' `$x0' of { `$x3' -> `PrelBase.I#' {`$x3'};};};
15         }
16 end Rec }
17 `fact'  ::  `PrelBase.Int -> PrelBase.Int'
18 `fact' =
19     \ `$x0'  ::  `PrelBase.Int'
20       `$x0' ->
21         case `$x0' of { `PrelBase.I#' `$x1'  -> `$g0' `$x1';}