--================================================================================ Typechecked: {- nonrec -} deq{-r3G,x-} = _/\_ a{-r3E-} -> \ tpl_B1 -> tpl_B1 {- nonrec -} AbsBinds [a{-aoL-}] [d.Eq1_aoE] [([a{-aoL-}], $mdeq{-rnK,x-}, deq_aoG)] AbsBinds [] [] [([], deq_aoG, deq_aoI)] deq_aoI = GHCerr.noDefaultMethodError{-8k,p-} (a{-aoL-} -> a{-aoL-} -> PrelBase.Bool{-34,p-}) "Class Eq1 Method deq" {- rec -} AbsBinds [a{-ao9-}] [d.Eq1_aol] [([a{-ao9-}], $d1{-roM,x-}, d.Eq1_anZ)] d.Eq1_aop = d.Eq1_aol deq_aoP = deq{-r3G,x-} a{-ao9-} d.Eq1_aop deq_aoO = deq_aoN AbsBinds [] [] [([], deq_aoN, deq_ao2)] deq_ao2 (a_r3p PrelBase.:{-55,p-}{i} as_r3q) (b_r3s PrelBase.:{-55,p-}{i} bs_r3t) = if deq_aoP a_r3p b_r3s then deq_aoO as_r3q bs_r3t else PrelBase.False{-58,p-}{i} d.Eq1_anZ = ({-dict-} [] [deq_aoN]) {- rec -} AbsBinds [] [] [([], $d2{-roQ,x-}, d.Eq1_aov)] AbsBinds [] [] [([], deq_aoR, deq_aoy)] deq_aoy x_r3z y_r3B = PrelBase.True{-5E,p-}{i} d.Eq1_aov = ({-dict-} [] [deq_aoR]) {- nonrec -} {- nonrec -} AbsBinds [t{-anH-}] [d.Eq1_anT] [([t{-anH-}], f{-r3F,x-}, f_anB)] d.Eq1_anR = $d1{-roM,x-} t{-anH-} d.Eq1_anT deq_aoS = deq{-r3G,x-} [t{-anH-}] d.Eq1_anR f_anB x_r3f (y_r3h PrelBase.:{-55,p-}{i} ys_r3i) = deq_aoS x_r3f ys_r3i {- nonrec -} tc062.hs:10: Warning: Possibly incomplete patterns in the definition of function `deq' tc062.hs:12: Warning: Possibly incomplete patterns in the definition of function `f' ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ ArrBase IO PrelNum _exports_ ShouldSucceed f Eq1(deq); _instances_ instance _forall_ [a] {Eq1 a} => {Eq1 [a]} = $d1; instance {Eq1 PrelBase.Int} = $d2; _declarations_ 1 $d1 _:_ _forall_ [a] {Eq1 a} => {Eq1 [a]} ;; 1 $d2 _:_ {Eq1 PrelBase.Int} ;; 1 $mdeq _:_ _forall_ [a] {Eq1 a} => a -> a -> PrelBase.Bool ;; 1 class Eq1 r3E where {deq :: r3E -> r3E -> PrelBase.Bool} ; 1 f _:_ _forall_ [a] {Eq1 a} => [a] -> [a] -> PrelBase.Bool ;;