:: Javascript.Base.String.FromJSString = <{Javascript.Base.String.D:FromJSString}> a1 a2 Javascript.Base.String.fromJSStringUnsafe tpl_s8bi_s8bi = select tpl_s8bi_s8bi (<{Javascript.Base.String.D:FromJSString}> tpl_s8bm_s8bm tpl_s8j2_s8j2 -> tpl_s8bm_s8bm) Javascript.Base.String.fromJSString tpl_s8bo_s8bo = select tpl_s8bo_s8bo (<{Javascript.Base.String.D:FromJSString}> tpl_s8j7_s8j7 tpl_s8bs_s8bs -> tpl_s8bs_s8bs) Javascript.Base.String.toJSString tpl_s8bu_s8bu = tpl_s8bu_s8bu Javascript.Base.String.jsFromString x_s8bw = select x_s8bw (GHC.Ptr.Ptr ds1_s8bA -> let !wild_s8jg = ffi_wrapper3 jsFromString ds1_s8bA GHC.Prim.realWorld# in select wild_s8jg (<{GHC.Tuple.(,)}> ds2_s8jf ds3_s8bF -> let !wild1_s8je = GHC.Ptr.Ptr ds3_s8bF in select wild1_s8je (Javascript.Base.Types.FakePtr val_s8bI -> val_s8bI))) Javascript.Base.String.fromCharCode ds_s8bK = select ds_s8bK (GHC.Types.I# ds2_s8bO -> let !wild_s8jr = ffi_wrapper3 fromCharCode ds2_s8bO GHC.Prim.realWorld# in select wild_s8jr (<{GHC.Tuple.(,)}> ds3_s8jq ds4_s8bT -> GHC.Ptr.Ptr ds4_s8bT)) Javascript.Base.String.concatJSString ds_s8bW ds1_s8bZ = select ds_s8bW (GHC.Ptr.Ptr ds3_s8c3 -> select ds1_s8bZ (GHC.Ptr.Ptr ds5_s8c4 -> let !wild_s8jy = ffi_wrapper4 _Javascript_Base_String_concatJSString ds3_s8c3 ds5_s8c4 GHC.Prim.realWorld# in select wild_s8jy (<{GHC.Tuple.(,)}> ds6_s8jx ds7_s8c9 -> GHC.Ptr.Ptr ds7_s8c9))) Javascript.Base.String.jsHashString ds_s8cb = select ds_s8cb (GHC.Ptr.Ptr ds2_s8cf -> let !wild_s8jD = ffi_wrapper3 hashString ds2_s8cf GHC.Prim.realWorld# in select wild_s8jD (<{GHC.Tuple.(,)}> ds3_s8jC ds4_s8ck -> GHC.Types.I# ds4_s8ck)) <{Javascript.Base.String.$fEqPtr_$c==}> a_s8cn b_s8cq = select a_s8cn (GHC.Ptr.Ptr ds1_s8cu -> select b_s8cq (GHC.Ptr.Ptr ds3_s8cv -> let !wild_s8jI = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ds1_s8cu ds3_s8cv GHC.Prim.realWorld# in select wild_s8jI (<{GHC.Tuple.(,)}> ds4_s8jH ds5_s8cA -> select ds5_s8cA (_ -> false) (0 -> true)))) <{Javascript.Base.String.$fEqPtr_$c/=}> eta_s8cE eta1_s8cH = select eta_s8cE (GHC.Ptr.Ptr ds1_s8cL -> select eta1_s8cH (GHC.Ptr.Ptr ds3_s8cM -> let !wild_s8jO = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ds1_s8cL ds3_s8cM GHC.Prim.realWorld# in select wild_s8jO (<{GHC.Tuple.(,)}> ds4_s8jN ds5_s8cR -> select ds5_s8cR (_ -> true) (0 -> false)))) Javascript.Base.String.$fEqPtr =: <{GHC.Classes.D:Eq}> <{Javascript.Base.String.$fEqPtr_$c==}> <{Javascript.Base.String.$fEqPtr_$c/=}> <{Javascript.Base.String.$fOrdPtr_$c<=}> a_s8cY b_s8cV = select b_s8cV (GHC.Ptr.Ptr ds1_s8d2 -> select a_s8cY (GHC.Ptr.Ptr ds3_s8d3 -> let !wild_s8jV = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ds1_s8d2 ds3_s8d3 GHC.Prim.realWorld# in select wild_s8jV (<{GHC.Tuple.(,)}> ds4_s8jU ds5_s8d8 -> select ds5_s8d8 (_ -> false) (1 -> true)))) Javascript.Base.String.$fOrdPtr_$cmin x_s8df y_s8dc = select y_s8dc (GHC.Ptr.Ptr ds1_s8dj -> select x_s8df (GHC.Ptr.Ptr ds3_s8dk -> let !wild_s8k1 = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ds1_s8dj ds3_s8dk GHC.Prim.realWorld# in select wild_s8k1 (<{GHC.Tuple.(,)}> ds4_s8k0 ds5_s8dp -> select ds5_s8dp (_ -> y_s8dc) (1 -> x_s8df)))) Javascript.Base.String.$fOrdPtr_$cmax x_s8dy y_s8dv = select y_s8dv (GHC.Ptr.Ptr ds1_s8dC -> select x_s8dy (GHC.Ptr.Ptr ds3_s8dD -> let !wild_s8k5 = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ds1_s8dC ds3_s8dD GHC.Prim.realWorld# in select wild_s8k5 (<{GHC.Tuple.(,)}> ds4_s8k4 ds5_s8dI -> select ds5_s8dI (_ -> x_s8dy) (1 -> y_s8dv)))) Javascript.Base.String.$w$ccompare ww_s8dP ww1_s8dQ = let !wild_s8kc = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ww_s8dP ww1_s8dQ GHC.Prim.realWorld# in select wild_s8kc (<{GHC.Tuple.(,)}> ds_s8kb ds1_s8dV -> select ds1_s8dV (_ -> let !wild2_s8k9 = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ww1_s8dQ ww_s8dP GHC.Prim.realWorld# in select wild2_s8k9 (<{GHC.Tuple.(,)}> ds2_s8k8 ds3_s8e2 -> select ds3_s8e2 (_ -> GHC.Types.GT) (1 -> GHC.Types.LT))) (0 -> GHC.Types.EQ)) Javascript.Base.String.$fOrdPtr_$ccompare w_s8e6 w1_s8e9 = select w_s8e6 (GHC.Ptr.Ptr ww_s8ec -> select w1_s8e9 (GHC.Ptr.Ptr ww1_s8ed -> Javascript.Base.String.$w$ccompare ww_s8ec ww1_s8ed)) <{Javascript.Base.String.$fOrdPtr_$c<}> x_s8eg y_s8ej = select x_s8eg (GHC.Ptr.Ptr ww_s8em -> select y_s8ej (GHC.Ptr.Ptr ww1_s8en -> let !wild_s8kh = Javascript.Base.String.$w$ccompare ww_s8em ww1_s8en in select wild_s8kh (_ -> false) (GHC.Types.LT -> true))) <{Javascript.Base.String.$fOrdPtr_$c>=}> x_s8er y_s8eu = select x_s8er (GHC.Ptr.Ptr ww_s8ex -> select y_s8eu (GHC.Ptr.Ptr ww1_s8ey -> let !wild_s8kl = Javascript.Base.String.$w$ccompare ww_s8ex ww1_s8ey in select wild_s8kl (_ -> true) (GHC.Types.LT -> false))) <{Javascript.Base.String.$fOrdPtr_$c>}> x_s8eC y_s8eF = select x_s8eC (GHC.Ptr.Ptr ww_s8eI -> select y_s8eF (GHC.Ptr.Ptr ww1_s8eJ -> let !wild_s8kp = Javascript.Base.String.$w$ccompare ww_s8eI ww1_s8eJ in select wild_s8kp (_ -> false) (GHC.Types.GT -> true))) Javascript.Base.String.$fOrdPtr =: <{GHC.Classes.D:Ord}> Javascript.Base.String.$fEqPtr Javascript.Base.String.$fOrdPtr_$ccompare <{Javascript.Base.String.$fOrdPtr_$c<}> <{Javascript.Base.String.$fOrdPtr_$c>=}> <{Javascript.Base.String.$fOrdPtr_$c>}> <{Javascript.Base.String.$fOrdPtr_$c<=}> Javascript.Base.String.$fOrdPtr_$cmax Javascript.Base.String.$fOrdPtr_$cmin Javascript.Base.String.$fIsStringPtr_$ctoJSString x_s8eM = let !ds_s8kx = Javascript.Base.Types.FakePtr x_s8eM in select ds_s8kx (GHC.Ptr.Ptr ds1_s8eR -> let !tpl_s8kw = x_s8eM, !wild_s8kv = ffi_wrapper3 jsToString ds1_s8eR GHC.Prim.realWorld# in select wild_s8kv (<{GHC.Tuple.(,)}> ds2_s8ku ds3_s8eW -> GHC.Ptr.Ptr ds3_s8eW)) <{Javascript.Base.String.$fToJSString[]}> =: Javascript.Base.String.$fIsStringPtr_$ctoJSString Javascript.Base.String.$fToJSStringPtr =: GHC.Base.id Javascript.Base.String.$fIsStringPtr_$cfromString eta_B1_B1 = Javascript.Base.String.$fIsStringPtr_$ctoJSString eta_B1_B1 Javascript.Base.String.$fIsStringPtr =: Javascript.Base.String.$fIsStringPtr_$ctoJSString Javascript.Base.String.$fDefaultPtr_$cmempty =: let !ds_s8kF = Javascript.Base.Types.FakePtr <{GHC.Types.[]}> in select ds_s8kF (GHC.Ptr.Ptr ds1_s8f0 -> let !wild_s8kE = ffi_wrapper3 jsToString ds1_s8f0 GHC.Prim.realWorld# in select wild_s8kE (<{GHC.Tuple.(,)}> ds2_s8kD ds3_s8f5 -> GHC.Ptr.Ptr ds3_s8f5)) Javascript.Base.String.$fMonoidPtr_go ds_s8f7 = select ds_s8f7 (<{GHC.Types.[]}> -> Javascript.Base.String.$fDefaultPtr_$cmempty) (<{GHC.Types.:}> y_s8fb ys_s8fe -> select y_s8fb (GHC.Ptr.Ptr ds2_s8fi -> let !ds3_s8kL = Javascript.Base.String.$fMonoidPtr_go ys_s8fe in select ds3_s8kL (GHC.Ptr.Ptr ds4_s8fj -> let !wild1_s8kK = ffi_wrapper4 _Javascript_Base_String_concatJSString ds2_s8fi ds4_s8fj GHC.Prim.realWorld# in select wild1_s8kK (<{GHC.Tuple.(,)}> ds5_s8kJ ds6_s8fo -> GHC.Ptr.Ptr ds6_s8fo)))) Javascript.Base.String.$fMonoidPtr_$cmconcat eta_B1_B1 = Javascript.Base.String.$fMonoidPtr_go eta_B1_B1 Javascript.Base.String.$fMonoidPtr =: <{Data.Monoid.D:Monoid}> Javascript.Base.String.$fDefaultPtr_$cmempty Javascript.Base.String.concatJSString Javascript.Base.String.$fMonoidPtr_go Javascript.Base.String.$fDefaultPtr_$cdef =: Javascript.Base.String.$fDefaultPtr_$cmempty Javascript.Base.String.$fDefaultPtr =: Javascript.Base.String.$fDefaultPtr_$cmempty Javascript.Base.String.$fToJSStringChar_$ctoJSString x_s8fq = let !ds_s8kW = Javascript.Base.Types.FakePtr (<{GHC.Types.:}> x_s8fq <{GHC.Types.[]}>) in select ds_s8kW (GHC.Ptr.Ptr ds1_s8fv -> let !wild_s8kV = ffi_wrapper3 jsToString ds1_s8fv GHC.Prim.realWorld# in select wild_s8kV (<{GHC.Tuple.(,)}> ds2_s8kU ds3_s8fA -> GHC.Ptr.Ptr ds3_s8fA)) Javascript.Base.String.$fToJSStringChar =: Javascript.Base.String.$fToJSStringChar_$ctoJSString Javascript.Base.String.$fToJSStringInt_$ctoJSString x_s8fC = select x_s8fC (GHC.Ptr.Ptr ds2_s8fG -> let !wild_s8l0 = ffi_wrapper3 _Javascript_Base_Number_numberToString ds2_s8fG GHC.Prim.realWorld# in select wild_s8l0 (<{GHC.Tuple.(,)}> ds3_s8kZ ds4_s8fL -> GHC.Ptr.Ptr ds4_s8fL)) Javascript.Base.String.$fToJSStringInt =: Javascript.Base.String.$fToJSStringInt_$ctoJSString Javascript.Base.String.$fToJSStringFloat_$ctoJSString x_s8fN = select x_s8fN (GHC.Ptr.Ptr ds2_s8fR -> let !wild_s8l5 = ffi_wrapper3 _Javascript_Base_Number_numberToString ds2_s8fR GHC.Prim.realWorld# in select wild_s8l5 (<{GHC.Tuple.(,)}> ds3_s8l4 ds4_s8fW -> GHC.Ptr.Ptr ds4_s8fW)) Javascript.Base.String.$fToJSStringFloat =: Javascript.Base.String.$fToJSStringFloat_$ctoJSString Javascript.Base.String.$fToJSStringDouble_$ctoJSString x_s8fY = select x_s8fY (GHC.Ptr.Ptr ds2_s8g2 -> let !wild_s8la = ffi_wrapper3 _Javascript_Base_Number_numberToString ds2_s8g2 GHC.Prim.realWorld# in select wild_s8la (<{GHC.Tuple.(,)}> ds3_s8l9 ds4_s8g7 -> GHC.Ptr.Ptr ds4_s8g7)) Javascript.Base.String.$fToJSStringDouble =: Javascript.Base.String.$fToJSStringDouble_$ctoJSString Javascript.Base.String.$w$cfromJSString2 ww_s8ga = let !wild_s8lk = ffi_wrapper3 _Javascript_Base_TypeChecks_isJSString ww_s8ga GHC.Prim.realWorld# in select wild_s8lk (<{GHC.Tuple.(,)}> ds3_s8lj ds4_s8gf -> select ds4_s8gf (_ -> Data.Maybe.Just (Javascript.Base.String.$w$cfromJSString2$1 ww_s8ga)) (0 -> Data.Maybe.Nothing)) Javascript.Base.String.$w$cfromJSString2$1 ww_s8ga = let !wild2_s8lh = ffi_wrapper3 jsFromString ww_s8ga GHC.Prim.realWorld# in select wild2_s8lh (<{GHC.Tuple.(,)}> ds_s8lg ds1_s8gm -> let !wild3_s8lf = GHC.Ptr.Ptr ds1_s8gm in select wild3_s8lf (Javascript.Base.Types.FakePtr val_s8gp -> val_s8gp)) <{Javascript.Base.String.$fFromJSString[]_$cfromJSString}> w_s8gs = select w_s8gs (GHC.Ptr.Ptr ww_s8gv -> Javascript.Base.String.$w$cfromJSString2 ww_s8gv) <{Javascript.Base.String.$fFromJSString[]}> =: <{Javascript.Base.String.D:FromJSString}> Javascript.Base.String.jsFromString <{Javascript.Base.String.$fFromJSString[]_$cfromJSString}> Javascript.Base.String.$fFromJSStringPtr_$cfromJSString a_s8gx = select a_s8gx (GHC.Ptr.Ptr ds2_s8gB -> let !wild_s8lr = ffi_wrapper3 _Javascript_Base_TypeChecks_isJSString ds2_s8gB GHC.Prim.realWorld# in select wild_s8lr (<{GHC.Tuple.(,)}> ds3_s8lq ds4_s8gG -> select ds4_s8gG (_ -> Data.Maybe.Just a_s8gx) (0 -> Data.Maybe.Nothing))) Javascript.Base.String.$fFromJSStringPtr =: <{Javascript.Base.String.D:FromJSString}> GHC.Base.id Javascript.Base.String.$fFromJSStringPtr_$cfromJSString Javascript.Base.String.$w$cfromJSString1 ww_s8gL = let !wild_s8lz = ffi_wrapper3 _Javascript_Base_Number_parseFloat ww_s8gL GHC.Prim.realWorld# in select wild_s8lz (<{GHC.Tuple.(,)}> ds3_s8ly ds4_s8gR -> let !wild1_s8lx = ffi_wrapper3 _Javascript_Base_TypeChecks_isJSNumber ds4_s8gR GHC.Prim.realWorld# in select wild1_s8lx (<{GHC.Tuple.(,)}> ds1_s8lw ds2_s8gW -> select ds2_s8gW (_ -> Data.Maybe.Just (GHC.Ptr.Ptr ds4_s8gR)) (0 -> Data.Maybe.Nothing))) Javascript.Base.String.$fFromJSStringFloat_$cfromJSString w_s8h0 = select w_s8h0 (GHC.Ptr.Ptr ww_s8h3 -> Javascript.Base.String.$w$cfromJSString1 ww_s8h3) Javascript.Base.String.$fFromJSStringFloat_$cfromJSStringUnsafe eta_B1_B1 = Javascript.Base.Number.parseFloat eta_B1_B1 Javascript.Base.String.$fFromJSStringFloat =: <{Javascript.Base.String.D:FromJSString}> Javascript.Base.Number.parseFloat Javascript.Base.String.$fFromJSStringFloat_$cfromJSString Javascript.Base.String.$w$cfromJSString ww_s8h6 = let !wild_s8lK = ffi_wrapper3 _Javascript_Base_Number_parseDouble ww_s8h6 GHC.Prim.realWorld# in select wild_s8lK (<{GHC.Tuple.(,)}> ds3_s8lJ ds4_s8hc -> let !wild1_s8lI = ffi_wrapper3 _Javascript_Base_TypeChecks_isJSNumber ds4_s8hc GHC.Prim.realWorld# in select wild1_s8lI (<{GHC.Tuple.(,)}> ds1_s8lH ds2_s8hh -> select ds2_s8hh (_ -> Data.Maybe.Just (GHC.Ptr.Ptr ds4_s8hc)) (0 -> Data.Maybe.Nothing))) Javascript.Base.String.$fFromJSStringDouble_$cfromJSString w_s8hl = select w_s8hl (GHC.Ptr.Ptr ww_s8ho -> Javascript.Base.String.$w$cfromJSString ww_s8ho) Javascript.Base.String.$fFromJSStringDouble_$cfromJSStringUnsafe eta_B1_B1 = Javascript.Base.Number.parseDouble eta_B1_B1 Javascript.Base.String.$fFromJSStringDouble =: <{Javascript.Base.String.D:FromJSString}> Javascript.Base.Number.parseDouble Javascript.Base.String.$fFromJSStringDouble_$cfromJSString Javascript.Base.String.$fShowPtr_$cshow eta_B1_B1 = Javascript.Base.String.jsFromString eta_B1_B1 Javascript.Base.String.$fShowPtr_$cshowsPrec ds_s8hG x_s8hs s_s8hF = select x_s8hs (GHC.Ptr.Ptr ds2_s8hw -> let !wild_s8lT = ffi_wrapper3 jsFromString ds2_s8hw GHC.Prim.realWorld# in select wild_s8lT (<{GHC.Tuple.(,)}> ds3_s8lS ds4_s8hB -> let !wild1_s8lR = GHC.Ptr.Ptr ds4_s8hB in select wild1_s8lR (Javascript.Base.Types.FakePtr val_s8hE -> <{GHC.Base.++}> val_s8hE s_s8hF))) Javascript.Base.String.$wlvl ww_s8hK w_s8hT = let !wild_s8lY = ffi_wrapper3 jsFromString ww_s8hK GHC.Prim.realWorld# in select wild_s8lY (<{GHC.Tuple.(,)}> ds_s8lX ds1_s8hP -> let !wild1_s8lW = GHC.Ptr.Ptr ds1_s8hP in select wild1_s8lW (Javascript.Base.Types.FakePtr val_s8hS -> <{GHC.Base.++}> val_s8hS w_s8hT)) Javascript.Base.String.$fShowPtr1 w_s8hW w1_s8i0 = select w_s8hW (GHC.Ptr.Ptr ww_s8hZ -> Javascript.Base.String.$wlvl ww_s8hZ w1_s8i0) Javascript.Base.String.$fShowPtr_$cshowList ls_s8i3 s_s8i4 = GHC.Show.showList__ Javascript.Base.String.$fShowPtr1 ls_s8i3 s_s8i4 Javascript.Base.String.$fShowPtr =: <{GHC.Show.D:Show}> Javascript.Base.String.$fShowPtr_$cshowsPrec Javascript.Base.String.jsFromString Javascript.Base.String.$fShowPtr_$cshowList Javascript.Base.String.$fNFDataPtr_$crnf a_s8i6 = select a_s8i6 (GHC.Ptr.Ptr ipv_s8m4 -> <{GHC.Tuple.()}>) Javascript.Base.String.$fNFDataPtr =: Javascript.Base.String.$fNFDataPtr_$crnf Javascript.Base.String.$fHashablePtr_$chashWithSalt salt_s8ib x_s8ie = select salt_s8ib (GHC.Types.I# x1_s8in -> select x_s8ie (GHC.Ptr.Ptr ds1_s8ii -> let !wild1_s8mb = ffi_wrapper3 hashString ds1_s8ii GHC.Prim.realWorld# in select wild1_s8mb (<{GHC.Tuple.(,)}> ds2_s8ma ds3_s8ir -> let !sat_s8it_s8it = int2Word# ds3_s8ir, !sat_s8ip_s8ip = <{*#}> x1_s8in 16777619, !sat_s8m9_s8m9 = int2Word# sat_s8ip_s8ip, !sat_s8iv_s8iv = xor# sat_s8m9_s8m9 sat_s8it_s8it, !sat_s8m8_s8m8 = word2Int# sat_s8iv_s8iv in GHC.Types.I# sat_s8m8_s8m8))) Javascript.Base.String.$fHashablePtr =: <{Data.Hashable.Class.D:Hashable}> Javascript.Base.String.$fHashablePtr_$chashWithSalt Javascript.Base.String.jsHashString Javascript.Base.String.$w$cfromJSStringUnsafe ww_s8iz = let !wild_s8mj = ffi_wrapper3 _Javascript_Base_Number_parseInt ww_s8iz GHC.Prim.realWorld# in select wild_s8mj (<{GHC.Tuple.(,)}> ds3_s8mi ds4_s8iF -> let !wild1_s8mh = ffi_wrapper3 _Javascript_Base_Number_forceInt ds4_s8iF GHC.Prim.realWorld# in select wild1_s8mh (<{GHC.Tuple.(,)}> ds1_s8mg ds2_s8iK -> GHC.Ptr.Ptr ds2_s8iK)) Javascript.Base.String.$fFromJSStringInt_$cfromJSStringUnsafe w_s8iM = select w_s8iM (GHC.Ptr.Ptr ww_s8iP -> Javascript.Base.String.$w$cfromJSStringUnsafe ww_s8iP) Javascript.Base.String.$fFromJSStringInt_$cfromJSString x_s8iR = select x_s8iR (GHC.Ptr.Ptr ds2_s8iV -> let !wild_s8mo = ffi_wrapper3 _Javascript_Base_Number_parseInt ds2_s8iV GHC.Prim.realWorld# in select wild_s8mo (<{GHC.Tuple.(,)}> ds3_s8mn ds4_s8j0 -> Javascript.Base.Number.$w$cfromJSNumber ds4_s8j0)) Javascript.Base.String.$fFromJSStringInt =: <{Javascript.Base.String.D:FromJSString}> Javascript.Base.String.$fFromJSStringInt_$cfromJSStringUnsafe Javascript.Base.String.$fFromJSStringInt_$cfromJSString