Avoiding CAF's

[Neil Mitchell]

Hi

> http://hpaste.org/1882 (replicated at the end of this message in case
> the hpaste is not around forever, but clearly layout and syntax
> colouring)

For completeness, the code in question is:

Main.$wccall [NEVER Nothing] :: GHC.Prim.State# GHC.Prim.RealWorld
				-> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Prim.Int# #)
[GlobalId]
[Arity 1
 NoCafRefs
 Str: DmdType S]
Main.$wccall =
  {__ccall getchar GHC.Prim.State# GHC.Prim.RealWorld
		 -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Prim.Int# #)}_d2af

Rec {
Main.$sprelude_942_ll107 :: GHC.Base.Int -> GHC.Prim.Int# -> GHC.Base.Int
[GlobalId]
[Arity 2
 NoCafRefs]
Main.$sprelude_942_ll107 =
  \ (v2_aVr :: GHC.Base.Int) (sc_s2VC :: GHC.Prim.Int#) ->
    case Main.$wccall GHC.Prim.realWorld# of wild_X28 { (# ds_d2ad,
ds1_d2ac #) ->
    case ds1_d2ac of wild1_X2b {
      __DEFAULT -> Main.$sprelude_942_ll107 v2_aVr (GHC.Prim.+# sc_s2VC 1);
      (-1) -> case v2_aVr of tpl_X3g { GHC.Base.I# a_s2QS ->
GHC.Base.I# sc_s2VC }
    }
    }
end Rec }