testsuite/tests/simplStg/should_compile/T19717.stderr


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19


==================== Final STG: ====================
Foo.f :: forall {a}. a -> [GHC.Maybe.Maybe a]
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []] =
    {} \r [x]
        case x of x1 {
        __DEFAULT ->
        let {
          sat [Occ=Once1] :: GHC.Maybe.Maybe a
          [LclId] =
              CCCS GHC.Maybe.Just! [x1]; } in
        let {
          sat [Occ=Once1] :: [GHC.Maybe.Maybe a]
          [LclId] =
              CCCS :! [sat GHC.Types.[]];
        } in  : [sat sat];
        };