3 ================================================================================
5 E1{-r3D,x-}{i} = _/\_ a_tr3t -> E1{-r3D,x-}{i} {_@_ a_tr3t}
7 _/\_ a_tr3v b_tr3w -> \ tpl_B1 ->
8 C1{-r6,x-}{i} {_@_ a_tr3v _@_ b_tr3w tpl_B1}
10 _/\_ a_tr3v b_tr3w -> \ tpl_B1 ->
11 C2{-r5,x-}{i} {_@_ a_tr3v _@_ b_tr3w tpl_B1}
12 AbsBinds [ta13t] [] [([ta13t], $d3{-r13E,x-}, d.Eval_aYx)]
13 d.Eval_aYx = ({-dict-} [] [])
17 [([ta13u, ta13v], $d4{-r13F,x-}, d.Eval_aYE)]
18 d.Eval_aYE = ({-dict-} [] [])
22 [([taYZ, taZ0], $d5{-r13G,x-}, d.Read_aYL)]
24 d.Read_a10Q = $d1{-r13I,x-} taYZ d.Eq_a10S
26 PrelRead.readsPrec{-r6M,p-} (T{-r3B,x-} taYZ) d.Read_a10Q
28 d.Eq_a112 = PrelBase.$d28{-re2,p-} taYZ d.Eq_a114
29 d.Read_a110 = $d5{-r13G,x-} [[taYZ], [taZ0]] d.Eq_a112
31 PrelRead.readsPrec{-r6M,p-} (Z{-r3C,x-} [taYZ] [taZ0]) d.Read_a110
32 readsPrec_a13V = readsPrec_a13W
33 AbsBinds [] [] [([], readsPrec_a13W, readsPrec_aYP)]
38 return_a142 = return_a13P
40 readsPrec_aYP a_rWJ b_rWK
41 = ++_a13K (Z{-r3C,x-} taYZ taZ0, PrelBase.String{-r79,p-})
42 (PrelRead.readParen{-r72,p-} (Z{-r3C,x-} taYZ taZ0) a_rWJ
48 ("C1", d_rWO) <- PrelRead.lex{-r6P,p-} c_rWM, (a1_rWQ, b1_rWR) <- readsPrec_a13T PrelBase.I#{-5b,w-}{i} 10#
51 (PrelRead.readParen{-r72,p-} (Z{-r3C,x-} taYZ taZ0) a_rWJ
57 ("C2", d_rWV) <- PrelRead.lex{-r6P,p-} c_rWT, (a1_rWX, b1_rWY) <- readsPrec_a13U PrelBase.I#{-5b,w-}{i} 10#
60 AbsBinds [] [] [([], readList_a13X, readList_a10B)]
61 readList_a10B = PrelRead.readList__{-r3A,p-}
62 (Z{-r3C,x-} taYZ taZ0) readsPrec_a13V PrelBase.I#{-5b,w-}{i} 0#
63 d.Read_aYL = ({-dict-} [] [readsPrec_a13W, readList_a13X])
67 [([ta11m, ta11p], $d6{-r13H,x-}, d.Show_a11c)]
69 d.Show_a126 = $d2{-r13J,x-} ta11m d.Eq_a128
71 PrelBase.showsPrec{-rjf,p-} (T{-r3B,x-} ta11m) d.Show_a126
73 d.Eq_a12c = PrelBase.$d28{-re2,p-} ta11m d.Eq_a12e
74 d.Show_a12a = $d6{-r13H,x-} [[ta11m], [ta11p]] d.Eq_a12c
76 PrelBase.showsPrec{-rjf,p-} (Z{-r3C,x-} [ta11m] [ta11p])
78 showsPrec_a146 = showsPrec_a147
79 AbsBinds [] [] [([], showsPrec_a147, showsPrec_a11g)]
82 showsPrec_a11g a_rX6 (C1{-r6,x-}{i} b1_rX7)
83 = PrelBase.showParen{-rk3,p-} a_rX6 >=_a13R lit_a13S
85 [PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}] PrelBase.showString{-rk6,p-} "C1 "
86 showsPrec_a144 PrelBase.I#{-5b,w-}{i} 10#
88 showsPrec_a11g a_rX9 (C2{-r5,x-}{i} b1_rXa)
89 = PrelBase.showParen{-rk3,p-} a_rX9 >=_a149 lit_a14a
91 [PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}] PrelBase.showString{-rk6,p-} "C2 "
92 showsPrec_a145 PrelBase.I#{-5b,w-}{i} 10#
94 AbsBinds [] [] [([], showList_a148, showList_a11V)]
95 showList_a11V = PrelBase.showList__{-rk1,p-}
96 (Z{-r3C,x-} ta11m ta11p) showsPrec_a146 PrelBase.I#{-5b,w-}{i} 0#
97 d.Show_a11c = ({-dict-} [] [showsPrec_a147, showList_a148])
101 [([ta12s], $d1{-r13I,x-}, d.Read_a12l)]
102 d.Read_a12F = d.Read_a12l
104 PrelRead.$mreadList{-r6K,p-} (T{-r3B,x-} ta12s) d.Read_a12F
105 AbsBinds [] [] [([], readsPrec_a14c, readsPrec_a12p)]
107 = IOBase.error{-87,w-}
108 (PrelBase.Int{-3g,W-}
109 -> PrelBase.String{-r79,p-}
110 -> [(T{-r3B,x-} ta12s, PrelBase.String{-r79,p-})]) "read"
111 AbsBinds [] [] [([], readList_a14d, readList_a12y)]
112 readList_a12y = $mreadList_a14b
113 d.Read_a12l = ({-dict-} [] [readsPrec_a14c, readList_a14d])
117 [([ta12T], $d2{-r13J,x-}, d.Show_a12M)]
118 d.Show_a136 = d.Show_a12M
120 PrelBase.$mshowList{-riS,p-} (T{-r3B,x-} ta12T) d.Show_a136
121 AbsBinds [] [] [([], showsPrec_a14f, showsPrec_a12Q)]
123 = IOBase.error{-87,w-}
124 (PrelBase.Int{-3g,W-}
126 -> PrelBase.String{-r79,p-}
127 -> PrelBase.String{-r79,p-}) "show"
128 AbsBinds [] [] [([], showList_a14g, showList_a12Z)]
129 showList_a12Z = $mshowList_a14e
130 d.Show_a12M = ({-dict-} [] [showsPrec_a14f, showList_a14g])
131 d.MonadPlus_a139 = PrelBase.$d23{-rdX,p-}
132 ++_a13K = PrelBase.++{-rj3,p-} PrelBase.[]{-3j,W-} d.MonadPlus_a139
133 d.Ord_a13c = PrelBase.$d7{-reB,p-}
134 >_a13L = PrelBase.>{-rjc,p-} PrelBase.Int{-3g,W-} d.Ord_a13c
135 lit_a13M = PrelBase.I#{-5b,w-}{i} 9#
136 d.Eq_a13h = PrelBase.$d34{-re9,p-}
137 d.Eq_a13f = PrelBase.$d28{-re2,p-} PrelBase.Char{-38,W-} d.Eq_a13h
138 ==_a13N = PrelBase.=={-8Y,p-} [PrelBase.Char{-38,W-}] d.Eq_a13f
139 d.Monad_a13k = PrelBase.$d25{-rdZ,p-}
140 >>=_a13O = PrelBase.>>={-811,p-} PrelBase.[]{-3j,W-} d.Monad_a13k
141 d.Monad_a13n = d.Monad_a13k
143 PrelBase.return{-816,p-} PrelBase.[]{-3j,W-} d.Monad_a13n
144 d.MonadZero_a13p = PrelBase.$d24{-rdY,p-}
146 PrelBase.zero{-810,p-} PrelBase.[]{-3j,W-} d.MonadZero_a13p
147 d.Ord_a13s = d.Ord_a13c
148 >=_a13R = PrelBase.>={-8Z,p-} PrelBase.Int{-3g,W-} d.Ord_a13s
149 lit_a13S = PrelBase.I#{-5b,w-}{i} 10#
150 ghc: module version changed to 1; reason: no old .hi file
151 _interface_ ShouldSucceed 1
155 PrelBase 1 :: $d1 1 $d12 1 $d15 1 $d16 1 $d2 1 $d22 1 $d23 1 $d24 1 $d25 1 $d27 1 $d28 1 $d3 1 $d33 1 $d34 1 $d35 1 $d38 1 $d39 1 $d4 1 $d40 1 $d42 1 $d43 1 $d45 1 $d46 1 $d47 1 $d50 1 $d51 1 $d52 1 $d55 1 $d56 1 $d7 1 $d8 1 $d9 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 . 1 showList__ 1 showParen 1 showSpace 1 showString 1 Eq 1 Eval 1 Monad 1 MonadPlus 1 MonadZero 1 Num 1 Ord 1 Ordering 1 Show 1 ShowS 1 String 1;
156 PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
157 PrelRead 1 :: $d10 1 $d11 1 $d14 1 $d15 1 $d16 1 $d4 1 $d5 1 $d6 1 $d8 1 $mreadList 1 lex 1 readList__ 1 readParen 1 Read 1 ReadS 1;
158 PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
160 ShouldSucceed T(E1) Z(C1 C2);
162 instance _forall_ [a] {PrelBase.Eq a} => {PrelRead.Read (T a)} = $d1;
163 instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Show (T a)} = $d2;
164 instance _forall_ [a] => {PrelBase.Eval (T a)} = $d3;
165 instance _forall_ [a b] => {PrelBase.Eval (Z a b)} = $d4;
166 instance _forall_ [a b] {PrelBase.Eq a} => {PrelRead.Read (Z a b)} = $d5;
167 instance _forall_ [a b] {PrelBase.Eq a} => {PrelBase.Show (Z a b)} = $d6;
169 1 $d1 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelRead.Read (T a)} ;;
170 1 $d2 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Show (T a)} ;;
171 1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (T a)} ;;
172 1 $d4 _:_ _forall_ [a b] => {PrelBase.Eval (Z a b)} ;;
173 1 $d5 _:_ _forall_ [a b] {PrelBase.Eq a} => {PrelRead.Read (Z a b)} ;;
174 1 $d6 _:_ _forall_ [a b] {PrelBase.Eq a} => {PrelBase.Show (Z a b)} ;;
176 1 data Z a b = C1 (T a) | C2 (Z [a] [b]) ;