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 }
_______________________________________________
Glasgow-haskell-users mailing list
Glasgow-haskell-users@haskell.org
http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
