fork download
copy 
  1. [1 of 1] Compiling Main             ( show.hs, show.o )
  2.  
  3. ==================== Tidy Core ====================
  4. Result size of Tidy Core = {terms: 36, types: 47, coercions: 12}
  5.  
  6. Main.main3 :: Char -> Int
  7. [GblId,
  8.  Arity=1,
  9.  Caf=NoCafRefs,
  10.  Str=DmdType,
  11.  Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
  12.          WorkFree=True, Expandable=True, Guidance=IF_ARGS [20] 21 20}]
  13. Main.main3 =
  14.   \ (x_aMe [OS=ProbOneShot] :: Char) ->
  15.     case x_aMe of _ [Occ=Dead] { GHC.Types.C# c#_a1to ->
  16.     GHC.Types.I# (GHC.Prim.-# (GHC.Prim.ord# c#_a1to) 48)
  17.     }
  18.  
  19. Main.main4 :: Integer
  20. [GblId,
  21.  Caf=NoCafRefs,
  22.  Str=DmdType,
  23.  Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
  24.          WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 100 0}]
  25. Main.main4 = __integer 1
  26.  
  27. Main.main2 :: [Int]
  28. [GblId,
  29.  Str=DmdType,
  30.  Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
  31.          WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 90 0}]
  32. Main.main2 =
  33.   case GHC.Show.$w$cshowsPrec1 0 Main.main4 (GHC.Types.[] @ Char)
  34.   of _ [Occ=Dead] { (# ww3_a1uH, ww4_a1uI #) ->
  35.   map @ Char @ Int Main.main3 (GHC.Types.: @ Char ww3_a1uH ww4_a1uI)
  36.   }
  37.  
  38. Main.main1
  39.   :: GHC.Prim.State# GHC.Prim.RealWorld
  40.      -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Int] #)
  41. [GblId,
  42.  Arity=1,
  43.  Str=DmdType <L,U>,
  44.  Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
  45.          WorkFree=True, Expandable=True,
  46.          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
  47. Main.main1 =
  48.   \ (s_a1ut [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
  49.     (# s_a1ut, Main.main2 #)
  50.  
  51. main :: IO [Int]
  52. [GblId,
  53.  Arity=1,
  54.  Str=DmdType <L,U>,
  55.  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
  56.          WorkFree=True, Expandable=True,
  57.          Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
  58.          Tmpl= Main.main1
  59.                `cast` (Sym (GHC.Types.NTCo:IO[0] <[Int]>_R)
  60.                        :: (GHC.Prim.State# GHC.Prim.RealWorld
  61.                            -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Int] #))
  62.                           ~R# IO [Int])}]
  63. main =
  64.   Main.main1
  65.   `cast` (Sym (GHC.Types.NTCo:IO[0] <[Int]>_R)
  66.           :: (GHC.Prim.State# GHC.Prim.RealWorld
  67.               -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Int] #))
  68.              ~R# IO [Int])
  69.  
  70. Main.main5
  71.   :: GHC.Prim.State# GHC.Prim.RealWorld
  72.      -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Int] #)
  73. [GblId,
  74.  Arity=1,
  75.  Str=DmdType,
  76.  Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
  77.          WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 20 60}]
  78. Main.main5 =
  79.   GHC.TopHandler.runMainIO1
  80.     @ [Int]
  81.     (Main.main1
  82.      `cast` (Sym (GHC.Types.NTCo:IO[0] <[Int]>_R)
  83.              :: (GHC.Prim.State# GHC.Prim.RealWorld
  84.                  -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Int] #))
  85.                 ~R# IO [Int]))
  86.  
  87. :Main.main :: IO [Int]
  88. [GblId,
  89.  Arity=1,
  90.  Str=DmdType,
  91.  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
  92.          WorkFree=True, Expandable=True,
  93.          Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
  94.          Tmpl= Main.main5
  95.                `cast` (Sym (GHC.Types.NTCo:IO[0] <[Int]>_R)
  96.                        :: (GHC.Prim.State# GHC.Prim.RealWorld
  97.                            -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Int] #))
  98.                           ~R# IO [Int])}]
  99. :Main.main =
  100.   Main.main5
  101.   `cast` (Sym (GHC.Types.NTCo:IO[0] <[Int]>_R)
  102.           :: (GHC.Prim.State# GHC.Prim.RealWorld
  103.               -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Int] #))
  104.              ~R# IO [Int])
  105.  
  106.  
  107.  
  108. Linking show.exe ...
  109.  
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/7CbZ2y
language:
Text (text 6.10)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!