Ticket #1483: ghci.log

File ghci.log, 4.9 KB (added by guest, 6 years ago)
Line 
1GHCi, version 6.7.20070816: http://www.haskell.org/ghc/  :? for help
2
3==================== Parser ====================
4Just let __cmCompileExpr = System.IO.stdout
5
6
7
8==================== Desugared ====================
9__letrec {
10  __cmCompileExpr_a1 :: GHC.IOBase.Handle
11  []
12  __cmCompileExpr_a1 = GHC.Handle.stdout;
13  __cmCompileExpr_akT :: GHC.IOBase.Handle
14  []
15  __cmCompileExpr_akT = __cmCompileExpr_a1;
16} in
17  GHC.IOBase.returnIO
18    @ [()]
19    (GHC.Base.:
20       @ ()
21       (GHC.Prim.unsafeCoerce# @ GHC.IOBase.Handle @ () __cmCompileExpr_a1)
22       (GHC.Base.[] @ ()))
23
24
25
26==================== Simplified expression ====================
27GHC.IOBase.returnIO
28  @ [()]
29  (GHC.Base.:
30     @ ()
31     (GHC.Handle.stdout
32      `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
33     (GHC.Base.[] @ ()))
34
35
36
37==================== CorePrep ====================
38let {
39  sat_skV :: [()]
40  []
41  sat_skV =
42    GHC.Base.:
43      @ ()
44      (GHC.Handle.stdout
45       `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
46      (GHC.Base.[] @ ())
47} in  GHC.IOBase.returnIO @ [()] sat_skV
48
49
50
51==================== Proto-BCOs ====================
52ProtoBCO ExprTopLevel_E0#0 []:
53      bitmap:  0 []
54      PUSH_G   GHC.Base.[]
55      PUSH_G   GHC.Handle.stdout
56      PACK     : 2
57      PUSH_L   0
58      PUSH_APPLY_P
59      PUSH_G   GHC.IOBase.returnIO
60      SLIDE    3 1
61      ENTER
62let {
63  sat_skV :: [()]
64  []
65  sat_skV =
66    GHC.Base.:
67      @ ()
68      (GHC.Handle.stdout
69       `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
70      (GHC.Base.[] @ ())
71} in  GHC.IOBase.returnIO @ [()] sat_skV
72
73
74Loading package base ... linking ... done.
75
76==================== Parser ====================
77Just let __cmCompileExpr = System.IO.stderr
78
79
80
81==================== Desugared ====================
82__letrec {
83  __cmCompileExpr_akX :: GHC.IOBase.Handle
84  []
85  __cmCompileExpr_akX = GHC.Handle.stderr;
86  __cmCompileExpr_al0 :: GHC.IOBase.Handle
87  []
88  __cmCompileExpr_al0 = __cmCompileExpr_akX;
89} in
90  GHC.IOBase.returnIO
91    @ [()]
92    (GHC.Base.:
93       @ ()
94       (GHC.Prim.unsafeCoerce# @ GHC.IOBase.Handle @ () __cmCompileExpr_akX)
95       (GHC.Base.[] @ ()))
96
97
98
99==================== Simplified expression ====================
100GHC.IOBase.returnIO
101  @ [()]
102  (GHC.Base.:
103     @ ()
104     (GHC.Handle.stderr
105      `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
106     (GHC.Base.[] @ ()))
107
108
109
110==================== CorePrep ====================
111let {
112  sat_sl2 :: [()]
113  []
114  sat_sl2 =
115    GHC.Base.:
116      @ ()
117      (GHC.Handle.stderr
118       `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
119      (GHC.Base.[] @ ())
120} in  GHC.IOBase.returnIO @ [()] sat_sl2
121
122
123
124==================== Proto-BCOs ====================
125ProtoBCO ExprTopLevel_E0#0 []:
126      bitmap:  0 []
127      PUSH_G   GHC.Base.[]
128      PUSH_G   GHC.Handle.stderr
129      PACK     : 2
130      PUSH_L   0
131      PUSH_APPLY_P
132      PUSH_G   GHC.IOBase.returnIO
133      SLIDE    3 1
134      ENTER
135let {
136  sat_sl2 :: [()]
137  []
138  sat_sl2 =
139    GHC.Base.:
140      @ ()
141      (GHC.Handle.stderr
142       `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
143      (GHC.Base.[] @ ())
144} in  GHC.IOBase.returnIO @ [()] sat_sl2
145
146
147
148==================== Parser ====================
149Just let __cmCompileExpr = System.IO.stdin
150
151
152
153==================== Desugared ====================
154__letrec {
155  __cmCompileExpr_al4 :: GHC.IOBase.Handle
156  []
157  __cmCompileExpr_al4 = GHC.Handle.stdin;
158  __cmCompileExpr_al7 :: GHC.IOBase.Handle
159  []
160  __cmCompileExpr_al7 = __cmCompileExpr_al4;
161} in
162  GHC.IOBase.returnIO
163    @ [()]
164    (GHC.Base.:
165       @ ()
166       (GHC.Prim.unsafeCoerce# @ GHC.IOBase.Handle @ () __cmCompileExpr_al4)
167       (GHC.Base.[] @ ()))
168
169
170
171==================== Simplified expression ====================
172GHC.IOBase.returnIO
173  @ [()]
174  (GHC.Base.:
175     @ ()
176     (GHC.Handle.stdin
177      `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
178     (GHC.Base.[] @ ()))
179
180
181
182==================== CorePrep ====================
183let {
184  sat_sl9 :: [()]
185  []
186  sat_sl9 =
187    GHC.Base.:
188      @ ()
189      (GHC.Handle.stdin
190       `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
191      (GHC.Base.[] @ ())
192} in  GHC.IOBase.returnIO @ [()] sat_sl9
193
194
195
196==================== Proto-BCOs ====================
197ProtoBCO ExprTopLevel_E0#0 []:
198      bitmap:  0 []
199      PUSH_G   GHC.Base.[]
200      PUSH_G   GHC.Handle.stdin
201      PACK     : 2
202      PUSH_L   0
203      PUSH_APPLY_P
204      PUSH_G   GHC.IOBase.returnIO
205      SLIDE    3 1
206      ENTER
207let {
208  sat_sl9 :: [()]
209  []
210  sat_sl9 =
211    GHC.Base.:
212      @ ()
213      (GHC.Handle.stdin
214       `cast` (CoUnsafe GHC.IOBase.Handle () :: GHC.IOBase.Handle ~ ()))
215      (GHC.Base.[] @ ())
216} in  GHC.IOBase.returnIO @ [()] sat_sl9
217