MainGenGui.main eta_B1_B1 = MainGenGui.main1 eta_B1_B1 MainGenGui.main1 s_s1iGF = select MainGenGui.main3 (GHC.Ptr.Ptr ds1_s1iGy -> let !tpl_s1iTk = MainGenGui.main_x, !wild_s1iTj = ffi_wrapper3 jsToString ds1_s1iGy GHC.Prim.realWorld# in select wild_s1iTj (<{GHC.Tuple.(,)}> ds2_s1iTi ds3_s1iGE -> let !wild1_s1iTh = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_s1iGE s_s1iGF in select wild1_s1iTh (<{GHC.Tuple.(,)}> ds4_s1iGM ds5_s1iGK -> let !ds6_s1iTn = MainGenGui.main2 (GHC.Ptr.Ptr ds5_s1iGK) MainGenGui.DummyState ds4_s1iGM in select ds6_s1iTn (<{GHC.Tuple.(,)}> ipv_s1iGQ ipv1_s1iGR -> <{GHC.Tuple.(,)}> ipv_s1iGQ (MainGenGui.main1$28 ipv1_s1iGR))))) MainGenGui.main1$28 ipv1_s1iGR = select ipv1_s1iGR (<{GHC.Tuple.(,)}> a5_s1iGV ds7_s1iTg -> a5_s1iGV) :: <{GHC.Tuple.(,)}> = <{GHC.Tuple.(,)}> a1 a2 :: MainGenGui.DummyState = MainGenGui.DummyState :: GHC.Ptr.Ptr = GHC.Ptr.Ptr a1 MainGenGui.main2 body_s1iB4 eta_s1iAL eta1_s1iAr = let !ds1_s1iSf = FRP.Fursuit.Pipe.emptyPipe1 eta1_s1iAr in select ds1_s1iSf (<{GHC.Tuple.(,)}> ipv_s1iAI ipv1_s1iAv -> select ipv1_s1iAv (<{GHC.Tuple.(,)}> ds_s1iAz ds2_s1iAK -> select ds_s1iAz (FRP.Fursuit.Signal.P ref_s1iAE ds3_s1iSb ds4_s1iSc -> select ref_s1iAE (GHC.STRef.STRef var#_s1iAH -> let !s2#_s1iAM = writeMutVar# var#_s1iAH MainGenGui.lvl44 ipv_s1iAI, !ds5_s1iS9 = MainGenGui.lvl36 ds2_s1iAK eta_s1iAL s2#_s1iAM in select ds5_s1iS9 (<{GHC.Tuple.(,)}> ipv2_s1iFs ipv3_s1iAQ -> select ipv3_s1iAQ (<{GHC.Tuple.(,)}> a5_s1iAU <{s'_s1iBi}> -> select a5_s1iAU (Gui.Generic.Types.Input ww_s1iBW ww1_s1iFq -> select ww1_s1iFq (<{GHC.Types.[]}> -> MainGenGui.main2$1 body_s1iB4 <{s'_s1iBi}> ww_s1iBW ipv2_s1iFs) (<{GHC.Types.:}> y_s1iFv ys_s1iG1 -> select y_s1iFv (GHC.Ptr.Ptr ds7_s1iFB -> select body_s1iB4 (GHC.Ptr.Ptr ds9_s1iFC -> let !wild5_s1iSZ = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds7_s1iFB ds9_s1iFC ipv2_s1iFs in select wild5_s1iSZ (<{GHC.Tuple.(,)}> ds10_s1iG2 ds11_s1iRX -> let a112_s1iG0 = MainGenGui.main2$50 a112_s1iG0 ds9_s1iFC, !ds12_s1iT4 = a112_s1iG0 ys_s1iG1 ds10_s1iG2 in select ds12_s1iT4 (<{GHC.Tuple.(,)}> ipv4_s1iG6 ipv5_s1iRW -> MainGenGui.main2$1 body_s1iB4 <{s'_s1iBi}> ww_s1iBW ipv4_s1iG6)))))))))))) MainGenGui.main2$1 body_s1iB4 <{s'_s1iBi}> ww_s1iBW ipv4_s1iB0 = let !ds6_s1iS6 = Gui.Base.Text.plainText1 MainGenGui.lvl ipv4_s1iB0 in select ds6_s1iS6 (<{GHC.Tuple.(,)}> ipv5_s1iBd ipv6_s1iB7 -> select body_s1iB4 (GHC.Ptr.Ptr ds8_s1iBb -> select ipv6_s1iB7 (GHC.Ptr.Ptr ds10_s1iBc -> let !wild4_s1iS3 = ffi_wrapper4 _Javascript_JQuery_Basic_appendToJQuery ds8_s1iBb ds10_s1iBc ipv5_s1iBd in select wild4_s1iS3 (<{GHC.Tuple.(,)}> ds11_s1iBj ds12_s1iS2 -> let !ds13_s1iS1 = MainGenGui.lvl6 <{s'_s1iBi}> ds11_s1iBj in select ds13_s1iS1 (<{GHC.Tuple.(,)}> ipv7_s1iBQ ipv8_s1iBn -> select ipv8_s1iBn (<{GHC.Tuple.(,)}> a4_s1iBr <{s'1_s1iBZ}> -> select a4_s1iBr (Gui.Generic.Types.Input ww2_s1iBU ww3_s1iBP -> let a112_s1iBO = MainGenGui.main2$51 a112_s1iBO ds8_s1iBb, !ds14_s1iSi = a112_s1iBO ww3_s1iBP ipv7_s1iBQ in select ds14_s1iSi (<{GHC.Tuple.(,)}> ipv9_s1iC0 ipv10_s1iRU -> let !ds15_s1iSm = MainGenGui.lvl34 (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App MainGenGui.lvl35 ww2_s1iBU) ww_s1iBW) <{s'1_s1iBZ}> ipv9_s1iC0 in select ds15_s1iSm (<{GHC.Tuple.(,)}> ipv11_s1iCx ipv12_s1iC4 -> select ipv12_s1iC4 (<{GHC.Tuple.(,)}> a6_s1iC8 <{s'2_s1iDe}> -> select a6_s1iC8 (Gui.Generic.Types.Input ds16_s1iRS ds17_s1iCw -> let a7_s1iCv = MainGenGui.main2$52 a7_s1iCv ds8_s1iBb, !ds18_s1iSC = a7_s1iCv ds17_s1iCw ipv11_s1iCx in select ds18_s1iSC (<{GHC.Tuple.(,)}> ipv13_s1iCB ipv14_s1iRO -> let !ds19_s1iSB = FRP.Fursuit.Pipe.emptyPipe1 ipv13_s1iCB in select ds19_s1iSB (<{GHC.Tuple.(,)}> ipv15_s1iCS ipv16_s1iCF -> select ipv16_s1iCF (<{GHC.Tuple.(,)}> ds20_s1iCJ ds21_s1iDd -> select ds20_s1iCJ (FRP.Fursuit.Signal.P ref1_s1iCO ds22_s1iDI ds23_s1iDL -> select ref1_s1iCO (GHC.STRef.STRef var#1_s1iCR -> let !s2#1_s1iCU = writeMutVar# var#1_s1iCR MainGenGui.lvl33 ipv15_s1iCS, !ds24_s1iSx = FRP.Fursuit.Pipe.emptyPipe1 s2#1_s1iCU in select ds24_s1iSx (<{GHC.Tuple.(,)}> ipv17_s1iDb ipv18_s1iCY -> select ipv18_s1iCY (<{GHC.Tuple.(,)}> ds25_s1iD2 ds26_s1iDx -> select ds25_s1iD2 (FRP.Fursuit.Signal.P ref2_s1iD7 ds27_s1iDU ds28_s1iDX -> select ref2_s1iD7 (GHC.STRef.STRef var#2_s1iDa -> let !s2#2_s1iDf = writeMutVar# var#2_s1iDa MainGenGui.lvl28 ipv17_s1iDb, !ds29_s1iSt = MainGenGui.lvl21 MainGenGui.lvl8 ds21_s1iDd <{s'2_s1iDe}> s2#2_s1iDf in select ds29_s1iSt (<{GHC.Tuple.(,)}> ipv19_s1iDo ipv20_s1iDj -> select ipv20_s1iDj (<{GHC.Tuple.(,)}> a8_s1iDn <{s'3_s1iDs}> -> let !ds30_s1iSr = FRP.Fursuit.Signal.removableSink1 MainGenGui.a1 a8_s1iDn ipv19_s1iDo in select ds30_s1iSr (<{GHC.Tuple.(,)}> ipv21_s1iDt ipv22_s1iRP -> let !ds31_s1iSq = MainGenGui.$fToInputsTest_$ctoInput Control.Monad.IO.Class.$fMonadIOIO ds21_s1iDd <{s'3_s1iDs}> ipv21_s1iDt in select ds31_s1iSq (<{GHC.Tuple.(,)}> ipv23_s1iDE ipv24_s1iDy -> let !ds32_s1iSK = <{MainGenGui.$fToInputsTest'_$ctoInput}> Control.Monad.IO.Class.$fMonadIOIO ds26_s1iDx (MainGenGui.main2$24 ipv24_s1iDy) ipv23_s1iDE in select ds32_s1iSK (<{GHC.Tuple.(,)}> ipv25_s1iDQ ipv26_s1iEC -> select ds22_s1iDI (GHC.STRef.STRef ww6_s1iDO -> select ds23_s1iDL (GHC.STRef.STRef ww8_s1iDP -> let !ds33_s1iSH = FRP.Fursuit.Pipe.$wa1 var#1_s1iCR ww6_s1iDO ww8_s1iDP MainGenGui.lvl12 ipv25_s1iDQ in select ds33_s1iSH (<{GHC.Tuple.(,)}> ipv27_s1iE2 ipv28_s1iRK -> select ds27_s1iDU (GHC.STRef.STRef ww9_s1iE0 -> select ds28_s1iDX (GHC.STRef.STRef ww11_s1iE1 -> let !ds34_s1iSE = FRP.Fursuit.Pipe.$wa1 var#2_s1iDa ww9_s1iE0 ww11_s1iE1 MainGenGui.lvl18 ipv27_s1iE2 in select ds34_s1iSE (<{GHC.Tuple.(,)}> ipv29_s1iEx ipv30_s1iRL -> let t_s1iEb = MainGenGui.main2$25 ipv24_s1iDy, a9_s1iEv = MainGenGui.main2$53 a9_s1iEv ds8_s1iBb, !sat_s1iRF_s1iRF = Gui.Generic.Types.elems t_s1iEb, !ds35_s1iSP = a9_s1iEv sat_s1iRF_s1iRF ipv29_s1iEx in select ds35_s1iSP (<{GHC.Tuple.(,)}> ipv31_s1iF3 ipv32_s1iRH -> let t2_s1iEH = MainGenGui.main2$26 ipv26_s1iEC, a10_s1iF1 = MainGenGui.main2$54 a10_s1iF1 ds8_s1iBb, !sat_s1iRz_s1iRz = Gui.Generic.Types.elems t2_s1iEH, !ds36_s1iSW = a10_s1iF1 sat_s1iRz_s1iRz ipv31_s1iF3 in select ds36_s1iSW (<{GHC.Tuple.(,)}> ipv33_s1iF8 ipv34_s1iRB -> let !sat_s1iRy_s1iRy = Gui.Generic.Types.signal t_s1iEb, !ds37_s1iSV = FRP.Fursuit.Signal.removableSink1 MainGenGui.a2 sat_s1iRy_s1iRy ipv33_s1iF8 in select ds37_s1iSV (<{GHC.Tuple.(,)}> ipv35_s1iFd ipv36_s1iRC -> let !sat_s1iRx_s1iRx = Gui.Generic.Types.signal t2_s1iEH, !ds38_s1iSU = FRP.Fursuit.Signal.removableSink1 MainGenGui.a3 sat_s1iRx_s1iRx ipv35_s1iFd in select ds38_s1iSU (<{GHC.Tuple.(,)}> ipv37_s1iFh ipv38_s1iRD -> <{GHC.Tuple.(,)}> ipv37_s1iFh (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (MainGenGui.main2$27 ipv26_s1iEC))))))))))))))))))))))))))))))))))))) MainGenGui.main2$27 ipv26_s1iEC = select ipv26_s1iEC (<{GHC.Tuple.(,)}> a11_s1iRE <{s'4_s1iFl}> -> <{s'4_s1iFl}>) :: <{GHC.Tuple.()}> = <{GHC.Tuple.()}> MainGenGui.a3 x6_s1izk eta_s1izz = let !sat_s1iQH_s1iQH = <{GHC.Base.++}> MainGenGui.lvl20 (MainGenGui.a3$22 x6_s1izk) in Javascript.Utils.dumpString1 sat_s1iQH_s1iQH eta_s1izz Javascript.Utils.dumpString1 x_sfxH eta_sfxT = let !ds_sfzC = Javascript.Base.Types.FakePtr x_sfxH in select ds_sfzC (GHC.Ptr.Ptr ds1_sfxM -> let !tpl_sfzB = x_sfxH, !wild_sfzA = ffi_wrapper3 jsToString ds1_sfxM GHC.Prim.realWorld# in select wild_sfzA (<{GHC.Tuple.(,)}> ds2_sfzz ds3_sfxS -> let !wild1_sfzy = ffi_wrapper3 _Javascript_Utils_dump_ ds3_sfxS eta_sfxT in select wild1_sfzy (<{GHC.Tuple.()}> ds4_sfxX -> <{GHC.Tuple.(,)}> ds4_sfxX <{GHC.Tuple.()}>))) GHC.Prim.realWorld# =: "realWorld#" :: Javascript.Base.Types.FakePtr = Javascript.Base.Types.FakePtr a1 MainGenGui.a3$22 x6_s1izk = select x6_s1izk (Data.Maybe.Nothing -> GHC.Show.$fShowMaybe2) (Data.Maybe.Just x7_s1izn -> <{GHC.Base.++}> GHC.Show.$fShowMaybe1 (MainGenGui.a3$23 x7_s1izn)) MainGenGui.a3$23 x7_s1izn = select x7_s1izn (<{MainGenGui.Test'}> ww_s1izs ww1_s1izt ww2_s1izu -> MainGenGui.$w$cshowsPrec2 11 ww_s1izs ww1_s1izt ww2_s1izu <{GHC.Types.[]}>) :: <{GHC.Types.[]}> = <{GHC.Types.[]}> | <{GHC.Types.:}> a1 a2 MainGenGui.$w$cshowsPrec2 ww_s1iwX ww1_s1iwg ww2_s1iwt ww3_s1iwc = let p_s1iwW = MainGenGui.$w$cshowsPrec2$47 (MainGenGui.$w$cshowsPrec 0 ww3_s1iwc) ww1_s1iwg ww2_s1iwt, !wild_s1iPq = <{>=#}> ww_s1iwX 11 in if wild_s1iPq (MainGenGui.$w$cshowsPrec2$48 p_s1iwW) p_s1iwW MainGenGui.$w$cshowsPrec2$48 p_s1iwW x6_s1ix0 = <{GHC.Types.:}> GHC.Show.shows11 (p_s1iwW (<{GHC.Types.:}> GHC.Show.shows10 x6_s1ix0)) GHC.Show.shows10 =: GHC.Types.C# ')' :: GHC.Types.Char = GHC.Types.C# a1 GHC.Show.shows11 =: GHC.Types.C# '(' MainGenGui.$w$cshowsPrec ww_s1iue w_s1itT = select w_s1itT (<{MainGenGui.A'}> b1_s1itY -> let p_s1iud = MainGenGui.$w$cshowsPrec$38 b1_s1itY, !wild1_s1iOF = <{>=#}> ww_s1iue 11 in if wild1_s1iOF (MainGenGui.$w$cshowsPrec$39 p_s1iud) p_s1iud) (<{MainGenGui.B'}> b1_s1iuq -> let g_s1iuG = MainGenGui.$w$cshowsPrec$40 b1_s1iuq, !wild1_s1iOO = <{>=#}> ww_s1iue 11 in if wild1_s1iOO (MainGenGui.$w$cshowsPrec$42 g_s1iuG) (MainGenGui.$w$cshowsPrec$41 g_s1iuG)) (<{MainGenGui.C'}> b1_s1iv0 b2_s1iv4 -> let p_s1ivr = MainGenGui.$w$cshowsPrec$43 b1_s1iv0 b2_s1iv4, !wild1_s1iOY = <{>=#}> ww_s1iue 11 in if wild1_s1iOY (MainGenGui.$w$cshowsPrec$44 p_s1ivr) p_s1ivr) (<{MainGenGui.D'}> b1_s1ivC -> let g_s1ivG = MainGenGui.$w$cshowsPrec$16 b1_s1ivC, !wild1_s1iP2 = <{>=#}> ww_s1iue 11 in if wild1_s1iP2 (MainGenGui.$w$cshowsPrec$46 g_s1ivG) (MainGenGui.$w$cshowsPrec$45 g_s1ivG)) MainGenGui.$w$cshowsPrec$45 g_s1ivG x6_s1ivJ = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'2}> (g_s1ivG x6_s1ivJ) <{MainGenGui.$fShowABCD'2}> =: GHC.CString.unpackCString# "D\' " GHC.CString.unpackCString# str = _unpackAppendCString str <{GHC.Types.[]}> <{GHC.Base.++}> ds_s2es ys_s2eu = select ds_s2es (<{GHC.Types.[]}> -> ys_s2eu) (<{GHC.Types.:}> x_s2ex xs_s2ey -> <{GHC.Types.:}> x_s2ex (<{GHC.Base.++}> xs_s2ey ys_s2eu)) MainGenGui.$w$cshowsPrec$46 g_s1ivG x6_s1ivO = <{GHC.Types.:}> GHC.Show.shows11 (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'2}> (g_s1ivG (<{GHC.Types.:}> GHC.Show.shows10 x6_s1ivO))) MainGenGui.$w$cshowsPrec$16 b1_s1ivC = select b1_s1ivC (GHC.Types.D# ww1_s1ivF -> GHC.Float.$w$sshowSignedFloat GHC.Float.$fShowDouble_$sshowFloat <{MainGenGui.$fShowABCD'3}> ww1_s1ivF) <{MainGenGui.$fShowABCD'3}> =: GHC.Types.I# 11 :: GHC.Types.Int = GHC.Types.I# a1 GHC.Float.$fShowDouble_$sshowFloat x_szz8 = <{GHC.Base.++}> (GHC.Float.$fShowDouble_$sshowFloat$175 x_szz8) GHC.Float.$fShowDouble_$sshowFloat$175 x_szz8 = select x_szz8 (GHC.Types.D# ww_szzb -> GHC.Float.$w$sformatRealFloat GHC.Float.FFGeneric Data.Maybe.Nothing ww_szzb) :: Data.Maybe.Maybe = Data.Maybe.Nothing | Data.Maybe.Just a1 :: GHC.Float.FFFormat = GHC.Float.FFExponent | GHC.Float.FFFixed | GHC.Float.FFGeneric GHC.Float.$w$sformatRealFloat w_szbA w1_sz2x ww_sz2f = let !wild_sAiB = ffi_wrapper3 isDoubleNaN ww_sz2f GHC.Prim.realWorld# in select wild_sAiB (<{GHC.Tuple.(,)}> ds_sAiA ds1_sz2k -> select ds1_sz2k (_ -> GHC.Float.lvl29) (0 -> let !wild2_sAiF = ffi_wrapper3 isDoubleInfinite ww_sz2f GHC.Prim.realWorld# in select wild2_sAiF (<{GHC.Tuple.(,)}> ds2_sAiE ds3_sz2r -> select ds3_sz2r (_ -> let !wild4_sAiC = <{<##}> ww_sz2f 0.0 in if wild4_sAiC GHC.Float.lvl28 GHC.Float.lvl27) (0 -> let $wdoFmt_szbu = GHC.Float.$w$sformatRealFloat$196 (GHC.Float.$w$sformatRealFloat$195 w1_sz2x) (GHC.Float.$w$sformatRealFloat$194 w1_sz2x) w1_sz2x, a_szbD = GHC.Float.$w$sformatRealFloat$306 $wdoFmt_szbu w_szbA ww_sz2f, !wild4_sAm9 = <{<##}> ww_sz2f 0.0 in if wild4_sAm9 (<{GHC.Types.:}> GHC.Float.$fShowDouble4 a_szbD) (let !wild5_sAm8 = ffi_wrapper3 isDoubleNegativeZero ww_sz2f GHC.Prim.realWorld# in select wild5_sAm8 (<{GHC.Tuple.(,)}> ds4_sAiI ds5_szbK -> select ds5_szbK (_ -> <{GHC.Types.:}> GHC.Float.$fShowDouble4 a_szbD) (0 -> let !ww1_sAma = GHC.Float.$w$sfloatToDigits1 GHC.Float.expts4 ww_sz2f in select ww1_sAma (<{GHC.Tuple.(,)}> ww2_szbP ww3_szbQ -> $wdoFmt_szbu w_szbA ww2_szbP ww3_szbQ)))))))) GHC.Float.expts4 =: GHC.Integer.Type.S# 10 :: GHC.Integer.Type.Integer = GHC.Integer.Type.S# a1 | GHC.Integer.Type.J# a1 a2 GHC.Float.$w$sfloatToDigits1 w_syOB ww_syMG = let !wild_sAd5 = <{==##}> ww_syMG 0.0 in if wild_sAd5 (<{GHC.Tuple.(,)}> GHC.Float.lvl12 GHC.Float.minExpt) (let ds_syMP = GHC.Float.$w$sfloatToDigits1$277 ww_syMG, e0_syMV = GHC.Float.$w$sfloatToDigits1$24 ds_syMP, ds1_syNk = GHC.Float.$w$sfloatToDigits1$25 ds_syMP e0_syMV, e_syNq = GHC.Float.$w$sfloatToDigits1$26 ds1_syNk, f_syNw = GHC.Float.$w$sfloatToDigits1$27 ds1_syNk, ds2_syO5 = GHC.Float.$w$sfloatToDigits1$28 e_syNq f_syNw, s_syOd = GHC.Float.$w$sfloatToDigits1$29 ds2_syO5, mUp_syOl = GHC.Float.$w$sfloatToDigits1$30 ds2_syO5, r_syOt = GHC.Float.$w$sfloatToDigits1$31 ds2_syO5, k_syPw = GHC.Float.$w$sfloatToDigits1$278 e0_syMV e_syNq f_syNw mUp_syOl r_syOt s_syOd w_syOB in <{GHC.Tuple.(,)}> (GHC.Float.$w$sfloatToDigits1$32 ds2_syO5 k_syPw mUp_syOl r_syOt s_syOd w_syOB) k_syPw) GHC.Float.$w$sfloatToDigits1$32 ds2_syO5 k_syPw mUp_syOl r_syOt s_syOd w_syOB = select k_syPw (GHC.Types.I# x_syQ7 -> let gen_syPY = GHC.Float.$w$sfloatToDigits1$188 gen_syPY w_syOB, !wild2_sAdB = <{>=#}> x_syQ7 0 in if wild2_sAdB (select ds2_syO5 (<{GHC.Tuple.(,,,)}> r1_sAcu s1_sAcv mUp1_sAcw mDn_syQx -> let !sat_syQv_syQv = GHC.Float.$wexpt w_syOB x_syQ7, !sat_sAcr_sAcr = GHC.Integer.Type.timesInteger s_syOd sat_syQv_syQv, !sat_sAcs_sAcs = gen_syPY <{GHC.Types.[]}> r_syOt sat_sAcr_sAcr mUp_syOl mDn_syQx, !sat_sAct_sAct = GHC.List.reverse1 sat_sAcs_sAcs <{GHC.Types.[]}> in GHC.Base.map GHC.Real.fromIntegral_$sfromIntegral sat_sAct_sAct)) (select ds2_syO5 (<{GHC.Tuple.(,,,)}> r1_sAcx s1_sAcy mUp1_sAcz mDn_syQk -> let !sat_syQh_syQh = negateInt# x_syQ7, !bk_syQg = GHC.Float.$wexpt w_syOB sat_syQh_syQh, !sat_syQm_syQm = GHC.Integer.Type.timesInteger mDn_syQk bk_syQg, !sat_sAcj_sAcj = GHC.Integer.Type.timesInteger mUp_syOl bk_syQg, !sat_sAck_sAck = GHC.Integer.Type.timesInteger r_syOt bk_syQg, !sat_sAcl_sAcl = gen_syPY <{GHC.Types.[]}> sat_sAck_sAck s_syOd sat_sAcj_sAcj sat_syQm_syQm, !sat_sAcm_sAcm = GHC.List.reverse1 sat_sAcl_sAcl <{GHC.Types.[]}> in GHC.Base.map GHC.Real.fromIntegral_$sfromIntegral sat_sAcm_sAcm))) GHC.Real.fromIntegral_$sfromIntegral eta_shLJ = let !wild_shLL = GHC.Integer.Type.integerToInt eta_shLJ in GHC.Types.I# wild_shLL GHC.Integer.Type.integerToInt ds_s50G = select ds_s50G (GHC.Integer.Type.S# i_s50J -> i_s50J) (GHC.Integer.Type.J# s_s50M d_s50N -> GHC.Integer.GMP.Prim.integer2Int# s_s50M d_s50N) GHC.Integer.GMP.Prim.integer2Int# s_sig d_sii = select s_sig (_ -> let !v_sim = indexIntArray# d_sii 0, !wild1_sjt = <{<#}> s_sig 0 in if wild1_sjt (negateInt# v_sim) v_sim) (0 -> 0) GHC.Base.map ds_s2e6 ds1_s2e1 = select ds1_s2e1 (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> x_s2e5 xs_s2e8 -> <{GHC.Types.:}> (ds_s2e6 x_s2e5) (GHC.Base.map ds_s2e6 xs_s2e8)) GHC.List.reverse1 ds_s3AK a_s3AM = select ds_s3AK (<{GHC.Types.[]}> -> a_s3AM) (<{GHC.Types.:}> x_s3AQ xs_s3AP -> GHC.List.reverse1 xs_s3AP (<{GHC.Types.:}> x_s3AQ a_s3AM)) GHC.Integer.Type.timesInteger i1_s4OQ i2_s4OT = select i1_s4OQ (GHC.Integer.Type.S# i_s4OW -> select i2_s4OT (GHC.Integer.Type.S# j_s4OX -> let !wild2_s5fg = mulIntMayOflo# i_s4OW j_s4OX in select wild2_s5fg (_ -> let !ds_s5ff = integer_cmm_int2Integerzh i_s4OW in select ds_s5ff (<{GHC.Tuple.(,)}> ipv_s4P9 ipv1_s4Pa -> let !ds1_s5fe = integer_cmm_int2Integerzh j_s4OX in select ds1_s5fe (<{GHC.Tuple.(,)}> ipv2_s4Pc ipv3_s4Pd -> GHC.Integer.Type.timesInteger (GHC.Integer.Type.J# ipv_s4P9 ipv1_s4Pa) (GHC.Integer.Type.J# ipv2_s4Pc ipv3_s4Pd)))) (0 -> let !sat_s5fh_s5fh = <{*#}> i_s4OW j_s4OX in GHC.Integer.Type.S# sat_s5fh_s5fh)) (GHC.Integer.Type.J# ds_s5fk ds1_s5fl -> let !ds2_s5fj = integer_cmm_int2Integerzh i_s4OW in select ds2_s5fj (<{GHC.Tuple.(,)}> ipv_s4Pn ipv1_s4Po -> GHC.Integer.Type.timesInteger (GHC.Integer.Type.J# ipv_s4Pn ipv1_s4Po) i2_s4OT))) (GHC.Integer.Type.J# ds_s4PI ds1_s4PJ -> select i2_s4OT (GHC.Integer.Type.S# ds2_s4Pw -> let !ds3_s5fn = integer_cmm_int2Integerzh ds2_s4Pw in select ds3_s5fn (<{GHC.Tuple.(,)}> ipv_s4PC ipv1_s4PD -> GHC.Integer.Type.timesInteger i1_s4OQ (GHC.Integer.Type.J# ipv_s4PC ipv1_s4PD))) (GHC.Integer.Type.J# s2_s4PK d2_s4PL -> let !ds2_s5fp = integer_cmm_timesIntegerzh ds_s4PI ds1_s4PJ s2_s4PK d2_s4PL in select ds2_s5fp (<{GHC.Tuple.(,)}> ipv_s4PQ ipv1_s4PR -> GHC.Integer.Type.J# ipv_s4PQ ipv1_s4PR))) GHC.Float.$wexpt w_syAK ww_syAH = let n_syAI = GHC.Types.I# ww_syAH, $w$j2_syBf = GHC.Float.$wexpt$263 n_syAI w_syAK ww_syAH, !wild_sA7H = GHC.Integer.Type.eqInteger w_syAK GHC.Float.$fRealFloatDouble7 in if wild_sA7H (let !wild1_sA7I = <{>=#}> ww_syAH 0 in if wild1_sA7I (let !wild2_sA7J = <{<=#}> ww_syAH 1100 in if wild2_sA7J (select GHC.Float.expts (GHC.Arr.Array l_syBo u_syBr rb_sA7w ds_syBA -> select l_syBo (GHC.Types.I# m_syBu -> select u_syBr (GHC.Types.I# n1_syBy -> let !wild6_sA7K = <{<=#}> m_syBu ww_syAH in if wild6_sA7K (let !wild7_sA7M = <{<=#}> ww_syAH n1_syBy in if wild7_sA7M (let !sat_sA7v_sA7v = <{-#}> ww_syAH m_syBu, !ds1_sA7N = indexArray# ds_syBA sat_sA7v_sA7v in select ds1_sA7N (<{GHC.Tuple.()}> ipv_syBE -> ipv_syBE)) (GHC.Float.expt1 n_syAI l_syBo u_syBr)) (GHC.Float.expt1 n_syAI l_syBo u_syBr))))) $w$j2_syBf) $w$j2_syBf) $w$j2_syBf GHC.Float.expt1 n_syAA wild1_syAB wild2_syAC = GHC.Float.lvl11 n_syAA wild1_syAB wild2_syAC GHC.Float.lvl11 n_syAw wild1_syAt wild2_syAu = GHC.Arr.indexError GHC.Show.$fShowInt (<{GHC.Tuple.(,)}> wild1_syAt wild2_syAu) n_syAw GHC.Float.lvl6 GHC.Float.lvl6 =: GHC.CString.unpackCString# "Int" GHC.Show.$fShowInt =: <{GHC.Show.D:Show}> GHC.Show.showSignedInt GHC.Show.$fShowInt_$cshow GHC.Show.$fShowInt_$cshowList GHC.Show.$fShowInt_$cshowList ls_s6B2 s_s6B3 = GHC.Show.showList__ GHC.Show.shows17 ls_s6B2 s_s6B3 GHC.Show.shows17 w_s6yw w1_s6yA = select w_s6yw (GHC.Types.I# ww_s6yz -> GHC.Show.$wshowSignedInt 0 ww_s6yz w1_s6yA) GHC.Show.$wshowSignedInt ww_s6wY ww1_s6wV w_s6wX = let !wild_s7jT = <{<#}> ww1_s6wV 0 in if wild_s7jT (let !wild1_s7jU = <{>#}> ww_s6wY 6 in if wild1_s7jU (<{GHC.Types.:}> GHC.Show.shows11 (GHC.Show.itos ww1_s6wV (<{GHC.Types.:}> GHC.Show.shows10 w_s6wX))) (GHC.Show.itos ww1_s6wV w_s6wX)) (GHC.Show.itos ww1_s6wV w_s6wX) GHC.Show.itos n#_s6wA cs_s6wC = let !wild_s7jM = <{<#}> n#_s6wA 0 in if wild_s7jM (select n#_s6wA (_ -> <{GHC.Types.:}> GHC.Show.shows13 (GHC.Show.itos$81 cs_s6wC n#_s6wA)) (-2147483648 -> <{GHC.Types.:}> GHC.Show.shows13 (GHC.Show.itos$82 cs_s6wC))) (<{GHC.Show.shows_itos'}> n#_s6wA cs_s6wC) <{GHC.Show.shows_itos'}> x#_s6ty <{cs'_s6tK}> = let !wild_s7iO = <{<#}> x#_s6ty 10 in if wild_s7iO (let !sat_s6tO_s6tO = <{+#}> 48 x#_s6ty, !sat_s6tQ_s6tQ = chr# sat_s6tO_s6tO in <{GHC.Types.:}> (GHC.Types.C# sat_s6tQ_s6tQ) <{cs'_s6tK}>) (let !ds_s7iN = quotRemInt# x#_s6ty 10 in select ds_s7iN (<{GHC.Tuple.(,)}> ipv_s6tD ipv1_s6tE -> let !sat_s6tG_s6tG = <{+#}> 48 ipv1_s6tE, !sat_s6tI_s6tI = chr# sat_s6tG_s6tG in <{GHC.Show.shows_itos'}> ipv_s6tD (<{GHC.Types.:}> (GHC.Types.C# sat_s6tI_s6tI) <{cs'_s6tK}>))) GHC.Show.itos$82 cs_s6wC = let !ds_s7jR = quotRemInt# -2147483648 10 in select ds_s7jR (<{GHC.Tuple.(,)}> ipv_s6wL ipv1_s6wN -> let !sat_s7jP_s7jP = negateInt# ipv_s6wL in <{GHC.Show.shows_itos'}> sat_s7jP_s7jP (GHC.Show.itos$83 cs_s6wC ipv1_s6wN)) GHC.Show.itos$83 cs_s6wC ipv1_s6wN = let !sat_s6wP_s6wP = negateInt# ipv1_s6wN in <{GHC.Show.shows_itos'}> sat_s6wP_s6wP cs_s6wC GHC.Show.shows13 =: GHC.Types.C# '-' GHC.Show.itos$81 cs_s6wC n#_s6wA = let !sat_s6wG_s6wG = negateInt# n#_s6wA in <{GHC.Show.shows_itos'}> sat_s6wG_s6wG cs_s6wC GHC.Show.showList__ ds_s6sO ds1_s6sx s_s6sz = select ds1_s6sx (<{GHC.Types.[]}> -> GHC.CString.unpackAppendCString# "[]" s_s6sz) (<{GHC.Types.:}> x_s6sC xs_s6sS -> <{GHC.Types.:}> GHC.Show.showList__3 (GHC.Show.showList__$76 ds_s6sO s_s6sz x_s6sC xs_s6sS)) GHC.Show.showList__$76 ds_s6sO s_s6sz x_s6sC xs_s6sS = ds_s6sO x_s6sC (GHC.Show.showList__$77 ds_s6sO s_s6sz xs_s6sS) GHC.Show.showList__$77 ds_s6sO s_s6sz xs_s6sS = let showl_s6sN = GHC.Show.showList__$6 ds_s6sO s_s6sz showl_s6sN in showl_s6sN xs_s6sS GHC.Show.showList__$6 ds_s6sO s_s6sz showl_s6sN ds2_s6sH = select ds2_s6sH (<{GHC.Types.[]}> -> <{GHC.Types.:}> GHC.Show.showList__2 s_s6sz) (<{GHC.Types.:}> y_s6sL ys_s6sM -> <{GHC.Types.:}> GHC.Show.showList__1 (ds_s6sO y_s6sL (showl_s6sN ys_s6sM))) GHC.Show.showList__1 =: GHC.Types.C# ',' GHC.Show.showList__2 =: GHC.Types.C# ']' GHC.Show.showList__3 =: GHC.Types.C# '[' GHC.CString.unpackAppendCString# str rest = _unpackAppendCString str rest GHC.Show.$fShowInt_$cshow x_s6B5 = select x_s6B5 (GHC.Types.I# ww_s6B8 -> GHC.Show.$wshowSignedInt 0 ww_s6B8 <{GHC.Types.[]}>) GHC.Show.showSignedInt w_s6x6 w1_s6x9 w2_s6xe = select w_s6x6 (GHC.Types.I# ww_s6xc -> select w1_s6x9 (GHC.Types.I# ww1_s6xd -> GHC.Show.$wshowSignedInt ww_s6xc ww1_s6xd w2_s6xe)) :: GHC.Show.Show = <{GHC.Show.D:Show}> a1 a2 a3 GHC.Arr.indexError $dShow_slBe eta_slBd eta1_slBc eta2_slBb = GHC.Arr.lvl7 eta2_slBb eta1_slBc eta_slBd $dShow_slBe GHC.Arr.lvl7 w_slB1 w1_slB2 w2_slAX w3_slB5 = select w2_slAX (<{GHC.Tuple.(,)}> ww_slB3 ww1_slB4 -> GHC.Arr.lvl6 w_slB1 w1_slB2 ww_slB3 ww1_slB4 w3_slB5) GHC.Arr.lvl6 w_slAw w1_slAy ww_slAz ww1_slAA w2_slAx = let !sat_sn7N_sn7N = <{GHC.Base.++}> GHC.Arr.lvl4 (<{GHC.Base.++}> w_slAw (<{GHC.Base.++}> GHC.Arr.lvl3 (<{GHC.Types.:}> GHC.Show.shows11 (GHC.Show.showsPrec w2_slAx GHC.Arr.$fIxInt2 w1_slAy (<{GHC.Types.:}> GHC.Show.shows10 (<{GHC.Base.++}> GHC.Arr.lvl2 (<{GHC.Types.:}> GHC.Show.shows11 (GHC.Show.$w$cshowsPrec1 w2_slAx w2_slAx ww_slAz ww1_slAA GHC.Arr.lvl5)))))))) in GHC.Err.error sat_sn7N_sn7N GHC.Err.error s_seh = GHC.Exception.throw2 (GHC.Exception.ErrorCall s_seh) GHC.Exception.$fExceptionErrorCall_$ctoException GHC.Exception.$fExceptionErrorCall_$ctoException eta_B1_B1 = GHC.Exception.SomeException GHC.Exception.$fExceptionErrorCall eta_B1_B1 GHC.Exception.$fExceptionErrorCall =: <{GHC.Exception.D:Exception}> GHC.Exception.$fExceptionErrorCall_$ctypeOf GHC.Exception.$fShowErrorCall GHC.Exception.$fExceptionErrorCall_$ctoException GHC.Exception.$fExceptionErrorCall_$cfromException GHC.Exception.$fExceptionErrorCall_$cfromException ds_s1TM = select ds_s1TM (GHC.Exception.SomeException $dException_s1TQ e_s1TS -> Data.Typeable.cast (GHC.Exception.$p1Exception $dException_s1TQ) GHC.Exception.$fExceptionErrorCall_$ctypeOf e_s1TS) GHC.Exception.$fExceptionErrorCall_$ctypeOf ds_s1TK = GHC.Exception.$fExceptionErrorCall1 GHC.Exception.$fExceptionErrorCall1 =: Data.Typeable.Internal.mkTyConApp GHC.Exception.$fExceptionErrorCall2 <{GHC.Types.[]}> GHC.Exception.$fExceptionErrorCall2 =: Data.Typeable.Internal.mkTyCon (ghcsapl_num64# 1788961336 -998742778) (ghcsapl_num64# -781394717 -1875875731) GHC.Exception.$fExceptionArithException5 GHC.Exception.$fExceptionArithException4 GHC.Exception.$fExceptionErrorCall3 GHC.Exception.$fExceptionErrorCall3 =: GHC.CString.unpackCString# "ErrorCall" GHC.Exception.$fExceptionArithException4 =: GHC.CString.unpackCString# "GHC.Exception" GHC.Exception.$fExceptionArithException5 =: GHC.CString.unpackCString# "base" Data.Typeable.Internal.mkTyCon eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Typeable.Internal.TyCon eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 :: Data.Typeable.Internal.TyCon = Data.Typeable.Internal.TyCon a1 a2 a3 a4 a5 Data.Typeable.Internal.mkTyConApp w_s7ya w1_s7yh = select w_s7ya (Data.Typeable.Internal.TyCon rb_s7yj rb1_s7yk ds_s89l ds1_s89m ds2_s89n -> select w1_s7yh (<{GHC.Types.[]}> -> Data.Typeable.Internal.TypeRep rb_s7yj rb1_s7yk w_s7ya <{GHC.Types.[]}>) (<{GHC.Types.:}> ipv_s89p ipv1_s89q -> let !tpl_s89r = GHC.Fingerprint.fingerprintFingerprints (<{GHC.Types.:}> (GHC.Fingerprint.Type.Fingerprint rb_s7yj rb1_s7yk) (Data.Typeable.Internal.go w1_s7yh)) in select tpl_s89r (GHC.Fingerprint.Type.Fingerprint tpl1_s7yx tpl2_s7yy -> Data.Typeable.Internal.TypeRep tpl1_s7yx tpl2_s7yy w_s7ya w1_s7yh))) :: Data.Typeable.Internal.TypeRep = Data.Typeable.Internal.TypeRep a1 a2 a3 a4 :: GHC.Fingerprint.Type.Fingerprint = GHC.Fingerprint.Type.Fingerprint a1 a2 Data.Typeable.Internal.go ds_s7xT = select ds_s7xT (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> y_s7xX ys_s7y6 -> select y_s7xX (Data.Typeable.Internal.TypeRep rb_s7y3 rb1_s7y4 ds1_s89h ds2_s89i -> <{GHC.Types.:}> (GHC.Fingerprint.Type.Fingerprint rb_s7y3 rb1_s7y4) (Data.Typeable.Internal.go ys_s7y6))) GHC.Fingerprint.fingerprintFingerprints fs_s20G = GHC.IO.unsafeDupablePerformIO (Foreign.Marshal.Array.withArrayLen Foreign.Storable.$fStorableFingerprint fs_s20G GHC.Fingerprint.fingerprintFingerprints1) GHC.Fingerprint.fingerprintFingerprints1 len_s20z p_s20x = GHC.Fingerprint.fingerprintData1 (GHC.Ptr.castPtr p_s20x) (GHC.Fingerprint.fingerprintFingerprints1$6 len_s20z) GHC.Fingerprint.fingerprintFingerprints1$6 len_s20z = select len_s20z (GHC.Types.I# x_s20C -> let !sat_s21G_s21G = <{*#}> x_s20C 16 in GHC.Types.I# sat_s21G_s21G) GHC.Ptr.castPtr ds_s27b = select ds_s27b (GHC.Ptr.Ptr addr_s27e -> GHC.Ptr.Ptr addr_s27e) GHC.Fingerprint.fingerprintData1 buf_s1YQ len_s1YT eta_s1Yz = let !ds1_s20S = newPinnedByteArray# 88 eta_s1Yz in select ds1_s20S (<{GHC.Tuple.(,)}> ipv_s1YE ipv1_s1YD -> let !ds2_s20R = unsafeFreezeByteArray# ipv1_s1YD ipv_s1YE in select ds2_s20R (<{GHC.Tuple.(,)}> ipv2_s1YM ipv3_s1YJ -> let !a_s1YK = byteArrayContents# ipv3_s1YJ, !wild_s20Q = ffi_wrapper3 MD5Init a_s1YK ipv2_s1YM in select wild_s20Q (<{GHC.Tuple.()}> ds_s1YZ -> select buf_s1YQ (GHC.Ptr.Ptr ds4_s1YX -> select len_s1YT (GHC.Types.I# x#_s1YY -> let !wild2_s20N = ffi_wrapper5 MD5Update a_s1YK ds4_s1YX x#_s1YY ds_s1YZ in select wild2_s20N (<{GHC.Tuple.()}> ds5_s1Z3 -> let !ds6_s20M = newPinnedByteArray# 16 ds5_s1Z3 in select ds6_s20M (<{GHC.Tuple.(,)}> ipv4_s1Z8 ipv5_s1Z7 -> let !ds7_s20L = unsafeFreezeByteArray# ipv5_s1Z7 ipv4_s1Z8 in select ds7_s20L (<{GHC.Tuple.(,)}> ipv6_s1Zg ipv7_s1Zd -> let !a1_s1Ze = byteArrayContents# ipv7_s1Zd, !wild3_s20K = ffi_wrapper4 MD5Final a1_s1Ze a_s1YK ipv6_s1Zg in select wild3_s20K (<{GHC.Tuple.()}> ds8_s1Zl -> let !ds9_s20T = Foreign.Storable.$fStorableFingerprint2 (GHC.Ptr.Ptr a1_s1Ze) ds8_s1Zl in select ds9_s20T (<{GHC.Tuple.(,)}> ipv8_s1Zp ipv9_s1Zu -> let !s4_s1Zr = touch# ipv7_s1Zd ipv8_s1Zp, !s1_s1Zt = touch# ipv3_s1YJ s4_s1Zr in <{GHC.Tuple.(,)}> s1_s1Zt ipv9_s1Zu)))))))))) Foreign.Storable.$fStorableFingerprint2 p0_s6Q2 eta_s6Q6 = select p0_s6Q2 (GHC.Ptr.Ptr addr_s6Q5 -> let !ds2_s74K = readWord8OffAddr# addr_s6Q5 0 eta_s6Q6 in select ds2_s74K (<{GHC.Tuple.(,)}> ipv_s6Qt ipv1_s6Qg -> let !wild1_s74J = ffi_wrapper4 hs_uncheckedShiftL64 (ghcsapl_num64# 0 0) 8 GHC.Prim.realWorld# in select wild1_s74J (<{GHC.Tuple.(,)}> ds1_s74I ds3_s6Qm -> let !wild2_s74H = ffi_wrapper3 hs_wordToWord64 ipv1_s6Qg GHC.Prim.realWorld# in select wild2_s74H (<{GHC.Tuple.(,)}> ds4_s74G ds5_s6Qn -> let !wild3_s74F = ffi_wrapper4 hs_or64 ds3_s6Qm ds5_s6Qn GHC.Prim.realWorld# in select wild3_s74F (<{GHC.Tuple.(,)}> ds6_s74E ds7_s6Qs -> let !sat_s74u_s74u = plusAddr# addr_s6Q5 1, !ds8_s74D = Foreign.Storable.$fStorableFingerprint_$s$wa1 7 ds7_s6Qs ipv_s6Qt sat_s74u_s74u in select ds8_s74D (<{GHC.Tuple.(,)}> ipv2_s6QA ipv3_s6R3 -> let !ipv4_s6Qz = plusAddr# addr_s6Q5 8, !ds9_s74C = readWord8OffAddr# ipv4_s6Qz 0 ipv2_s6QA in select ds9_s74C (<{GHC.Tuple.(,)}> ipv5_s6QX ipv6_s6QK -> let !wild4_s74B = ffi_wrapper4 hs_uncheckedShiftL64 (ghcsapl_num64# 0 0) 8 GHC.Prim.realWorld# in select wild4_s74B (<{GHC.Tuple.(,)}> ds10_s74A ds11_s6QQ -> let !wild5_s74z = ffi_wrapper3 hs_wordToWord64 ipv6_s6QK GHC.Prim.realWorld# in select wild5_s74z (<{GHC.Tuple.(,)}> ds12_s74y ds13_s6QR -> let !wild6_s74x = ffi_wrapper4 hs_or64 ds11_s6QQ ds13_s6QR GHC.Prim.realWorld# in select wild6_s74x (<{GHC.Tuple.(,)}> ds14_s74w ds15_s6QW -> let !sat_s74t_s74t = plusAddr# ipv4_s6Qz 1, !ds16_s74v = Foreign.Storable.$fStorableFingerprint_$s$wa1 7 ds15_s6QW ipv5_s6QX sat_s74t_s74t in select ds16_s74v (<{GHC.Tuple.(,)}> ipv7_s6R2 ipv8_s6R4 -> <{GHC.Tuple.(,)}> ipv7_s6R2 (GHC.Fingerprint.Type.$WFingerprint ipv3_s6R3 ipv8_s6R4)))))))))))) GHC.Fingerprint.Type.$WFingerprint tpl_s1cX_s1cX tpl_s1d0_s1d0 = select tpl_s1cX_s1cX (GHC.Word.W64# tpl_s1d3_s1d3 -> select tpl_s1d0_s1d0 (GHC.Word.W64# tpl_s1d4_s1d4 -> GHC.Fingerprint.Type.Fingerprint tpl_s1d3_s1d3 tpl_s1d4_s1d4)) :: GHC.Word.Word64 = GHC.Word.W64# a1 Foreign.Storable.$fStorableFingerprint_$s$wa1 sc_s6Pu sc1_s6PC sc2_s6Px sc3_s6Pw = select sc_s6Pu (_ -> let !ds2_s74o = readWord8OffAddr# sc3_s6Pw 0 sc2_s6Px in select ds2_s74o (<{GHC.Tuple.(,)}> ipv_s6PX ipv1_s6PI -> let !wild1_s74n = ffi_wrapper4 hs_uncheckedShiftL64 sc1_s6PC 8 GHC.Prim.realWorld# in select wild1_s74n (<{GHC.Tuple.(,)}> ds1_s74m ds3_s6PO -> let !wild_s74l = ffi_wrapper3 hs_wordToWord64 ipv1_s6PI GHC.Prim.realWorld# in select wild_s74l (<{GHC.Tuple.(,)}> ds4_s74k ds5_s6PP -> let !wild2_s74j = ffi_wrapper4 hs_or64 ds3_s6PO ds5_s6PP GHC.Prim.realWorld# in select wild2_s74j (<{GHC.Tuple.(,)}> ds6_s74i ds7_s6PW -> let !sat_s74g_s74g = plusAddr# sc3_s6Pw 1, !sat_s74h_s74h = <{-#}> sc_s6Pu 1 in Foreign.Storable.$fStorableFingerprint_$s$wa1 sat_s74h_s74h ds7_s6PW ipv_s6PX sat_s74g_s74g))))) (0 -> <{GHC.Tuple.(,)}> sc2_s6Px (GHC.Word.W64# sc1_s6PC)) Foreign.Storable.$fStorableFingerprint =: <{Foreign.Storable.D:Storable}> Foreign.Storable.$fStorableFingerprint_$csizeOf Foreign.Storable.$fStorableFingerprint_$calignment Foreign.Storable.$fStorableFingerprint6 Foreign.Storable.$fStorableFingerprint5 Foreign.Storable.$fStorableFingerprint4 Foreign.Storable.$fStorableFingerprint3 Foreign.Storable.$fStorableFingerprint2 Foreign.Storable.$fStorableFingerprint1 Foreign.Storable.$fStorableFingerprint1 w_s6TV w1_s6TR w2_s6TY = select w1_s6TR (GHC.Fingerprint.Type.Fingerprint ww_s6TW ww1_s6TX -> Foreign.Storable.$wa w_s6TV ww_s6TW ww1_s6TX w2_s6TY) Foreign.Storable.$wa w_s6T5 ww_s6T9 ww1_s6Tx w1_s6Th = select w_s6T5 (GHC.Ptr.Ptr addr_s6Te -> let !wild1_s75H = ffi_wrapper3 hs_word64ToWord ww_s6T9 GHC.Prim.realWorld# in select wild1_s75H (<{GHC.Tuple.(,)}> ds1_s75G ds2_s6Tf -> let !sat_s75D_s75D = narrow8Word# ds2_s6Tf, !s2_s6Tq = writeWord8OffAddr# addr_s6Te 7 sat_s75D_s75D w1_s6Th, !ds3_s75L = Foreign.Storable.$fStorableFingerprint_$s$wa 7 (Foreign.Storable.$wa$13 ww_s6T9) s2_s6Tq addr_s6Te in select ds3_s75L (<{GHC.Tuple.(,)}> ipv_s6TE ipv1_s75C -> let !a_s6Tv = plusAddr# addr_s6Te 8, !wild2_s75K = ffi_wrapper3 hs_word64ToWord ww1_s6Tx GHC.Prim.realWorld# in select wild2_s75K (<{GHC.Tuple.(,)}> ds4_s75A ds5_s6TC -> let !sat_s75y_s75y = narrow8Word# ds5_s6TC, !s1_s6TN = writeWord8OffAddr# a_s6Tv 7 sat_s75y_s75y ipv_s6TE in Foreign.Storable.$fStorableFingerprint_$s$wa 7 (Foreign.Storable.$wa$14 ww1_s6Tx) s1_s6TN a_s6Tv)))) Foreign.Storable.$wa$14 ww1_s6Tx = let !wild3_s75J = ffi_wrapper4 hs_uncheckedShiftRL64 ww1_s6Tx 8 GHC.Prim.realWorld# in select wild3_s75J (<{GHC.Tuple.(,)}> ds6_s75B ds7_s6TL -> GHC.Word.W64# ds7_s6TL) Foreign.Storable.$fStorableFingerprint_$s$wa sc_s6SA sc1_s6SC sc2_s6SQ sc3_s6SL = select sc_s6SA (_ -> select sc1_s6SC (GHC.Word.W64# ipv_s6SG -> let !wild_s75t = ffi_wrapper3 hs_word64ToWord ipv_s6SG GHC.Prim.realWorld# in select wild_s75t (<{GHC.Tuple.(,)}> ds2_s75s ds3_s6SO -> let !sat_s75o_s75o = narrow8Word# ds3_s6SO, !sat_s75p_s75p = <{-#}> sc_s6SA 1, !s2_s6T0 = writeWord8OffAddr# sc3_s6SL sat_s75p_s75p sat_s75o_s75o sc2_s6SQ, !sat_s75n_s75n = <{-#}> sc_s6SA 1 in Foreign.Storable.$fStorableFingerprint_$s$wa sat_s75n_s75n (Foreign.Storable.$fStorableFingerprint_$s$wa$12 ipv_s6SG) s2_s6T0 sc3_s6SL))) (0 -> <{GHC.Tuple.(,)}> sc2_s6SQ <{GHC.Tuple.()}>) Foreign.Storable.$fStorableFingerprint_$s$wa$12 ipv_s6SG = let !wild1_s75r = ffi_wrapper4 hs_uncheckedShiftRL64 ipv_s6SG 8 GHC.Prim.realWorld# in select wild1_s75r (<{GHC.Tuple.(,)}> ds4_s75q ds5_s6SY -> GHC.Word.W64# ds5_s6SY) Foreign.Storable.$wa$13 ww_s6T9 = let !wild2_s75F = ffi_wrapper4 hs_uncheckedShiftRL64 ww_s6T9 8 GHC.Prim.realWorld# in select wild2_s75F (<{GHC.Tuple.(,)}> ds3_s75E ds4_s6To -> GHC.Word.W64# ds4_s6To) Foreign.Storable.$fStorableFingerprint3 ptr_s6U7 off_s6Ua eta_s6U3 eta1_s6Uj = select eta_s6U3 (GHC.Fingerprint.Type.Fingerprint ww_s6Uh ww1_s6Ui -> Foreign.Storable.$wa (Foreign.Storable.$fStorableFingerprint3$8 off_s6Ua ptr_s6U7) ww_s6Uh ww1_s6Ui eta1_s6Uj) Foreign.Storable.$fStorableFingerprint3$8 off_s6Ua ptr_s6U7 = select ptr_s6U7 (GHC.Ptr.Ptr addr_s6Ud -> select off_s6Ua (GHC.Types.I# d_s6Ue -> let !sat_s75Q_s75Q = plusAddr# addr_s6Ud d_s6Ue in GHC.Ptr.Ptr sat_s75Q_s75Q)) Foreign.Storable.$fStorableFingerprint4 ptr_s6Un off_s6Uq eta_s6Ux = Foreign.Storable.$fStorableFingerprint2 (Foreign.Storable.$fStorableFingerprint4$9 off_s6Uq ptr_s6Un) eta_s6Ux Foreign.Storable.$fStorableFingerprint4$9 off_s6Uq ptr_s6Un = select ptr_s6Un (GHC.Ptr.Ptr addr_s6Ut -> select off_s6Uq (GHC.Types.I# d_s6Uu -> let !sat_s75X_s75X = plusAddr# addr_s6Ut d_s6Uu in GHC.Ptr.Ptr sat_s75X_s75X)) Foreign.Storable.$fStorableFingerprint5 ptr_s6UG off_s6UJ val_s6UC eta_s6UU = select val_s6UC (GHC.Fingerprint.Type.Fingerprint ww_s6US ww1_s6UT -> Foreign.Storable.$wa (Foreign.Storable.$fStorableFingerprint5$10 off_s6UJ ptr_s6UG) ww_s6US ww1_s6UT eta_s6UU) Foreign.Storable.$fStorableFingerprint5$10 off_s6UJ ptr_s6UG = select ptr_s6UG (GHC.Ptr.Ptr addr_s6UM -> select off_s6UJ (GHC.Types.I# x_s6UN -> let !sat_s6UP_s6UP = <{*#}> x_s6UN 16, !sat_s763_s763 = plusAddr# addr_s6UM sat_s6UP_s6UP in GHC.Ptr.Ptr sat_s763_s763)) Foreign.Storable.$fStorableFingerprint6 ptr_s6UY off_s6V1 eta_s6Va = Foreign.Storable.$fStorableFingerprint2 (Foreign.Storable.$fStorableFingerprint6$11 off_s6V1 ptr_s6UY) eta_s6Va Foreign.Storable.$fStorableFingerprint6$11 off_s6V1 ptr_s6UY = select ptr_s6UY (GHC.Ptr.Ptr addr_s6V4 -> select off_s6V1 (GHC.Types.I# x_s6V5 -> let !sat_s6V7_s6V7 = <{*#}> x_s6V5 16, !sat_s76a_s76a = plusAddr# addr_s6V4 sat_s6V7_s6V7 in GHC.Ptr.Ptr sat_s76a_s76a)) Foreign.Storable.$fStorableFingerprint_$calignment ds_s6OT = Foreign.Storable.$fStorableDouble6 Foreign.Storable.$fStorableDouble6 =: GHC.Types.I# 8 Foreign.Storable.$fStorableFingerprint_$csizeOf ds_s6OV = Foreign.Storable.$fStorableFingerprint8 Foreign.Storable.$fStorableFingerprint8 =: GHC.Types.I# 16 :: Foreign.Storable.Storable = <{Foreign.Storable.D:Storable}> a1 a2 a3 a4 a5 a6 a7 a8 Foreign.Marshal.Array.withArrayLen $dStorable_s3CC vals_s3Cy f_s3CL = let len_s3CB = Foreign.Marshal.Array.withArrayLen$13 vals_s3Cy in Foreign.Marshal.Array.allocaArray $dStorable_s3CC len_s3CB (Foreign.Marshal.Array.withArrayLen$9 $dStorable_s3CC f_s3CL len_s3CB vals_s3Cy) Foreign.Marshal.Array.withArrayLen$9 $dStorable_s3CC f_s3CL len_s3CB vals_s3Cy ptr_s3CF s_s3CG = let !ds1_s3HA = Foreign.Marshal.Array.newArray2 $dStorable_s3CC ptr_s3CF vals_s3Cy s_s3CG in select ds1_s3HA (<{GHC.Tuple.(,)}> ipv_s3CK ipv1_s3Hz -> f_s3CL len_s3CB ptr_s3CF ipv_s3CK) Foreign.Marshal.Array.newArray2 $dStorable_s3yu ptr_s3yF vals0_s3yQ eta_s3yR = Foreign.Marshal.Array.newArray2$3 (Foreign.Storable.pokeElemOff $dStorable_s3yu) ptr_s3yF vals0_s3yQ 0 eta_s3yR Foreign.Storable.pokeElemOff tpl_s6uT_s6uT = select tpl_s6uT_s6uT (<{Foreign.Storable.D:Storable}> tpl_s6VL_s6VL tpl_s6VN_s6VN tpl_s6VO_s6VO tpl_s6v3_s6v3 tpl_s6VP_s6VP tpl_s6VQ_s6VQ tpl_s6VR_s6VR tpl_s6VS_s6VS -> tpl_s6v3_s6v3) Foreign.Marshal.Array.newArray2$3 lvl_s3yv ptr_s3yF ds_s3yA ds1_s3yG eta1_s3yC = select ds_s3yA (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta1_s3yC <{GHC.Tuple.()}>) (<{GHC.Types.:}> val_s3yI vals_s3yM -> let !ds2_s3Gs = lvl_s3yv ptr_s3yF (GHC.Types.I# ds1_s3yG) val_s3yI eta1_s3yC in select ds2_s3Gs (<{GHC.Tuple.(,)}> ipv_s3yP ipv1_s3Gq -> let !sat_s3Go_s3Go = <{+#}> ds1_s3yG 1 in Foreign.Marshal.Array.newArray2$3 lvl_s3yv ptr_s3yF vals_s3yM sat_s3Go_s3Go ipv_s3yP)) Foreign.Marshal.Array.allocaArray $dStorable_s3sB size_s3sE = Foreign.Marshal.Array.allocaArray$8 $dStorable_s3sB (Foreign.Marshal.Array.allocaArray$5 $dStorable_s3sB size_s3sE) Foreign.Marshal.Array.allocaArray$5 $dStorable_s3sB size_s3sE = select size_s3sE (GHC.Types.I# x_s3sJ -> let !wild1_s3E4 = Foreign.Storable.sizeOf $dStorable_s3sB GHC.Err.undefined in select wild1_s3E4 (GHC.Types.I# y_s3sK -> let !sat_s3E1_s3E1 = <{*#}> x_s3sJ y_s3sK in GHC.Types.I# sat_s3E1_s3E1)) GHC.Err.undefined =: GHC.Err.error GHC.Err.lvl GHC.Err.lvl =: GHC.CString.unpackCString# "Prelude.undefined" Foreign.Storable.sizeOf tpl_s6uj_s6uj = select tpl_s6uj_s6uj (<{Foreign.Storable.D:Storable}> tpl_s6ut_s6ut tpl_s6Vd_s6Vd tpl_s6Ve_s6Ve tpl_s6Vf_s6Vf tpl_s6Vg_s6Vg tpl_s6Vh_s6Vh tpl_s6Vi_s6Vi tpl_s6Vj_s6Vj -> tpl_s6ut_s6ut) Foreign.Marshal.Array.allocaArray$8 $dStorable_s3sB ds_s3sM action_s3t6 eta_s3sV = select ds_s3sM (GHC.Types.I# size1_s3sT -> select (Foreign.Storable.alignment $dStorable_s3sB GHC.Err.undefined) (GHC.Types.I# align_s3sU -> let !ds2_s3E7 = newAlignedPinnedByteArray# size1_s3sT align_s3sU eta_s3sV in select ds2_s3E7 (<{GHC.Tuple.(,)}> ipv_s3t0 ipv1_s3sZ -> let !ds3_s3E6 = unsafeFreezeByteArray# ipv1_s3sZ ipv_s3t0 in select ds3_s3E6 (<{GHC.Tuple.(,)}> ipv2_s3t9 ipv3_s3t4 -> let !sat_s3t7_s3t7 = byteArrayContents# ipv3_s3t4, !ds4_s3Ea = action_s3t6 (GHC.Ptr.Ptr sat_s3t7_s3t7) ipv2_s3t9 in select ds4_s3Ea (<{GHC.Tuple.(,)}> ipv4_s3td ipv5_s3tg -> let !s4_s3tf = touch# ipv3_s3t4 ipv4_s3td in <{GHC.Tuple.(,)}> s4_s3tf ipv5_s3tg))))) Foreign.Storable.alignment tpl_s6uv_s6uv = select tpl_s6uv_s6uv (<{Foreign.Storable.D:Storable}> tpl_s6Vn_s6Vn tpl_s6uF_s6uF tpl_s6Vp_s6Vp tpl_s6Vq_s6Vq tpl_s6Vr_s6Vr tpl_s6Vs_s6Vs tpl_s6Vt_s6Vt tpl_s6Vu_s6Vu -> tpl_s6uF_s6uF) Foreign.Marshal.Array.withArrayLen$13 vals_s3Cy = let !ww_s3CA = GHC.List.$wlen vals_s3Cy 0 in GHC.Types.I# ww_s3CA GHC.List.$wlen w_s3zL w1_s3zN = select w_s3zL (<{GHC.Types.[]}> -> w1_s3zN) (<{GHC.Types.:}> ds_s3N9 xs_s3zQ -> let !sat_s3N8_s3N8 = <{+#}> w1_s3zN 1 in GHC.List.$wlen xs_s3zQ sat_s3N8_s3N8) GHC.IO.unsafeDupablePerformIO ds_s1qq = let !ds1_s1uH = ds_s1qq GHC.Prim.realWorld# in select ds1_s1uH (<{GHC.Tuple.(,)}> ipv_s1uG ipv1_s1qu -> ipv1_s1qu) GHC.Exception.$p1Exception tpl_s1PW_s1PW = select tpl_s1PW_s1PW (<{GHC.Exception.D:Exception}> tpl_s1Q2_s1Q2 tpl_s1U5_s1U5 tpl_s1U6_s1U6 tpl_s1U7_s1U7 -> tpl_s1Q2_s1Q2) :: GHC.Exception.Exception = <{GHC.Exception.D:Exception}> a1 a2 a3 a4 Data.Typeable.cast $dTypeable_s1h7 $dTypeable1_s1hi x_s1h6 = let r_s1hd = Data.Typeable.cast$2 $dTypeable1_s1hi $dTypeable_s1h7 r_s1hd x_s1h6 in r_s1hd Data.Typeable.cast$2 $dTypeable1_s1hi $dTypeable_s1h7 r_s1hd x_s1h6 = let !wild_s1jR = $dTypeable_s1h7 x_s1h6 in select wild_s1jR (Data.Typeable.Internal.TypeRep rb_s1hp rb1_s1hy ds2_s1jO ds3_s1jP -> let !wild1_s1jW = $dTypeable1_s1hi (Data.Typeable.cast$1 r_s1hd) in select wild1_s1jW (Data.Typeable.Internal.TypeRep rb2_s1hq rb3_s1hz ds4_s1jM ds5_s1jN -> let !wild2_s1jV = ffi_wrapper4 hs_eqWord64 rb_s1hp rb2_s1hq GHC.Prim.realWorld# in select wild2_s1jV (<{GHC.Tuple.(,)}> ds1_s1jK ds6_s1hv -> select ds6_s1hv (_ -> let !wild4_s1jT = ffi_wrapper4 hs_eqWord64 rb1_s1hy rb3_s1hz GHC.Prim.realWorld# in select wild4_s1jT (<{GHC.Tuple.(,)}> ds7_s1jL ds8_s1hE -> select ds8_s1hE (_ -> Data.Maybe.Just x_s1h6) (0 -> Data.Maybe.Nothing))) (0 -> Data.Maybe.Nothing)))) Data.Typeable.cast$1 r_s1hd = select r_s1hd (Data.Maybe.Nothing -> Data.Maybe.fromJust1) (Data.Maybe.Just x1_s1hg -> x1_s1hg) Data.Maybe.fromJust1 =: GHC.Err.error Data.Maybe.lvl Data.Maybe.lvl =: GHC.CString.unpackCString# "Maybe.fromJust: Nothing" :: GHC.Exception.SomeException = GHC.Exception.SomeException a1 a2 GHC.Exception.$fShowErrorCall =: <{GHC.Show.D:Show}> GHC.Exception.$fShowErrorCall_$cshowsPrec GHC.Exception.$fShowErrorCall_$cshow GHC.Exception.$fShowErrorCall_$cshowList GHC.Exception.$fShowErrorCall_$cshowList ls_s1RJ s_s1RK = GHC.Show.showList__ GHC.Exception.$fShowErrorCall1 ls_s1RJ s_s1RK GHC.Exception.$fShowErrorCall1 ds_s1RC eta_s1RG = select ds_s1RC (GHC.Exception.ErrorCall err_s1RF -> <{GHC.Base.++}> err_s1RF eta_s1RG) :: GHC.Exception.ErrorCall = GHC.Exception.ErrorCall a1 GHC.Exception.$fShowErrorCall_$cshow x_s1RM = select x_s1RM (GHC.Exception.ErrorCall err_s1RP -> err_s1RP) GHC.Exception.$fShowErrorCall_$cshowsPrec ds_s1Rz ds1_s1Ru eta_s1Ry = select ds1_s1Ru (GHC.Exception.ErrorCall err_s1Rx -> <{GHC.Base.++}> err_s1Rx eta_s1Ry) GHC.Exception.throw2 w_s1QE ww_s1QF = raise# (ww_s1QF w_s1QE) GHC.Arr.lvl5 =: <{GHC.Types.:}> GHC.Show.shows10 <{GHC.Types.[]}> GHC.Show.$w$cshowsPrec1 w_s6CB w1_s6CE ww_s6CC ww1_s6CF w2_s6CM = GHC.Show.show_tuple (<{GHC.Types.:}> (GHC.Show.showsPrec w_s6CB GHC.Show.shows26 ww_s6CC) (<{GHC.Types.:}> (GHC.Show.showsPrec w1_s6CE GHC.Show.shows26 ww1_s6CF) <{GHC.Types.[]}>)) w2_s6CM GHC.Show.shows26 =: GHC.Types.I# 0 GHC.Show.showsPrec tpl_s6rO_s6rO = select tpl_s6rO_s6rO (<{GHC.Show.D:Show}> tpl_s6rT_s6rT tpl_s7gg_s7gg tpl_s7gh_s7gh -> tpl_s6rT_s6rT) GHC.Show.show_tuple ss_s6BG = GHC.Show.show_tuple$11 (GHC.Show.show_tuple$5 ss_s6BG) GHC.Show.show_tuple$5 ss_s6BG = select ss_s6BG (<{GHC.Types.[]}> -> GHC.List.foldr3) (<{GHC.Types.:}> x_s6BM ds2_s6BK -> select ds2_s6BK (<{GHC.Types.[]}> -> x_s6BM) (<{GHC.Types.:}> ipv_s6BQ ipv1_s6BR -> GHC.Show.show_tuple$12 (GHC.List.foldr1_$sfoldr1 <{GHC.Show.$fShow(,)1}> ipv_s6BQ ipv1_s6BR) x_s6BM)) <{GHC.Show.$fShow(,)1}> s_s6BB r_s6Bz x_s6By = s_s6BB (<{GHC.Types.:}> GHC.Show.showList__1 (r_s6Bz x_s6By)) GHC.List.foldr1_$sfoldr1 sc_s3yR sc1_s3yO sc2_s3yM = select sc2_s3yM (<{GHC.Types.[]}> -> sc1_s3yO) (<{GHC.Types.:}> ipv_s3yS ipv1_s3yT -> sc_s3yR sc1_s3yO (GHC.List.foldr1_$sfoldr1 sc_s3yR ipv_s3yS ipv1_s3yT)) GHC.Show.show_tuple$12 r_s6BS x_s6BM x1_s6BU = x_s6BM (<{GHC.Types.:}> GHC.Show.showList__1 (r_s6BS x1_s6BU)) GHC.List.foldr3 =: GHC.List.errorEmptyList GHC.List.lvl5 GHC.List.lvl5 =: GHC.CString.unpackCString# "foldr1" GHC.List.errorEmptyList fun_s3ym = let !sat_s3Mz_s3Mz = <{GHC.Base.++}> GHC.List.prel_list_str (<{GHC.Base.++}> fun_s3ym GHC.List.lvl4) in GHC.Err.error sat_s3Mz_s3Mz GHC.List.lvl4 =: GHC.CString.unpackCString# ": empty list" GHC.List.prel_list_str =: GHC.CString.unpackCString# "Prelude." GHC.Show.show_tuple$11 f_s6C0 x_s6C2 = <{GHC.Types.:}> GHC.Show.shows11 (f_s6C0 (<{GHC.Types.:}> GHC.Show.shows10 x_s6C2)) GHC.Arr.lvl2 =: GHC.CString.unpackCString# " out of range " GHC.Arr.$fIxInt2 =: GHC.Types.I# 0 GHC.Arr.lvl3 =: GHC.CString.unpackCString# "}.index: Index " GHC.Arr.lvl4 =: GHC.CString.unpackCString# "Ix{" :: GHC.Arr.Array = GHC.Arr.Array a1 a2 a3 a4 GHC.Float.expts =: GHC.ST.runSTRep GHC.Float.expts1 GHC.Float.expts1 s1#_syag = let !ds1_szW1 = newArray# 1101 GHC.Arr.arrEleBottom s1#_syag in select ds1_szW1 (<{GHC.Tuple.(,)}> ipv_syaK ipv1_syas -> GHC.Float.expts1$1 ipv1_syas 0 ipv_syaK) GHC.Float.expts1$1 ipv1_syas x_syan eta_syax = let !wild_szW0 = <{<=#}> 0 x_syan in if wild_szW0 (let !wild4_szW2 = <{<=#}> x_syan 1100 in if wild4_szW2 (let !s2#_syaD = writeArray# ipv1_syas x_syan (GHC.Float.expts1$228 x_syan) eta_syax in select x_syan (_ -> let !sat_szVX_szVX = <{+#}> x_syan 1 in GHC.Float.expts1$1 ipv1_syas sat_szVX_szVX s2#_syaD) (1100 -> let !ds2_szW4 = unsafeFreezeArray# ipv1_syas s2#_syaD in select ds2_szW4 (<{GHC.Tuple.(,)}> ipv2_syaH ipv3_syaI -> <{GHC.Tuple.(,)}> ipv2_syaH (GHC.Arr.Array GHC.Float.minExpt GHC.Float.maxExpt 1101 ipv3_syaI)))) (GHC.Float.expts2 x_syan)) (GHC.Float.expts2 x_syan) GHC.Float.expts2 x_syad = GHC.Float.lvl7 x_syad GHC.Float.lvl7 x_syaa = GHC.Arr.indexError GHC.Show.$fShowInt GHC.Float.lvl5 (GHC.Types.I# x_syaa) GHC.Float.lvl6 GHC.Float.lvl5 =: <{GHC.Tuple.(,)}> GHC.Float.minExpt GHC.Float.maxExpt GHC.Float.maxExpt =: GHC.Types.I# 1100 GHC.Float.minExpt =: GHC.Types.I# 0 GHC.Float.expts1$228 x_syan = let !wild1_szW3 = <{<#}> x_syan 0 in if wild1_szW3 <{GHC.Real.^3}> (select x_syan (_ -> GHC.Real.$wf1 GHC.Float.$fRealFloatDouble7 x_syan) (0 -> GHC.Real.$fNumRatio3)) GHC.Real.$fNumRatio3 =: GHC.Integer.Type.S# 1 GHC.Float.$fRealFloatDouble7 =: GHC.Integer.Type.S# 2 GHC.Real.$wf1 w_siiz ww_siiw = let !wild_sj0D = remInt# ww_siiw 2 in select wild_sj0D (_ -> select ww_siiw (_ -> let !sat_sj0C_sj0C = <{-#}> ww_siiw 1, !sat_sj0A_sj0A = quotInt# sat_sj0C_sj0C 2, !sat_sj0B_sj0B = GHC.Integer.Type.timesInteger w_siiz w_siiz in GHC.Real.$wg sat_sj0B_sj0B sat_sj0A_sj0A w_siiz) (1 -> w_siiz)) (0 -> let !sat_sj0E_sj0E = quotInt# ww_siiw 2, !sat_sj0F_sj0F = GHC.Integer.Type.timesInteger w_siiz w_siiz in GHC.Real.$wf1 sat_sj0F_sj0F sat_sj0E_sj0E) GHC.Real.$wg w_siil ww_siii w1_siiq = let !wild_sj0u = remInt# ww_siii 2 in select wild_sj0u (_ -> select ww_siii (_ -> let !sat_sj0q_sj0q = GHC.Integer.Type.timesInteger w_siil w1_siiq, !sat_sj0t_sj0t = <{-#}> ww_siii 1, !sat_sj0r_sj0r = quotInt# sat_sj0t_sj0t 2, !sat_sj0s_sj0s = GHC.Integer.Type.timesInteger w_siil w_siil in GHC.Real.$wg sat_sj0s_sj0s sat_sj0r_sj0r sat_sj0q_sj0q) (1 -> GHC.Integer.Type.timesInteger w_siil w1_siiq)) (0 -> let !sat_sj0v_sj0v = quotInt# ww_siii 2, !sat_sj0w_sj0w = GHC.Integer.Type.timesInteger w_siil w_siil in GHC.Real.$wg sat_sj0w_sj0w sat_sj0v_sj0v w1_siiq) <{GHC.Real.^3}> =: GHC.Err.error GHC.Real.lvl8 GHC.Real.lvl8 =: GHC.CString.unpackCString# "Negative exponent" GHC.Arr.arrEleBottom =: GHC.Err.error GHC.Arr.lvl GHC.Arr.lvl =: GHC.CString.unpackCString# "(Array.!): undefined array element" GHC.ST.runSTRep st_rep_suD = let !ds_svs = st_rep_suD GHC.Prim.realWorld# in select ds_svs (<{GHC.Tuple.(,)}> ipv_svr ipv1_suH -> ipv1_suH) GHC.Integer.Type.eqInteger ds_s4Ju ds1_s4Jx = select ds_s4Ju (GHC.Integer.Type.S# i_s4JA -> select ds1_s4Jx (GHC.Integer.Type.S# j_s4JB -> <{==#}> i_s4JA j_s4JB) (GHC.Integer.Type.J# s_s4JF d_s4JG -> let !wild2_s5b0 = integer_cmm_cmpIntegerIntzh s_s4JF d_s4JG i_s4JA in select wild2_s5b0 (_ -> false) (0 -> true))) (GHC.Integer.Type.J# s_s4JO d_s4JP -> select ds1_s4Jx (GHC.Integer.Type.S# i_s4JQ -> let !wild2_s5b1 = integer_cmm_cmpIntegerIntzh s_s4JO d_s4JP i_s4JQ in select wild2_s5b1 (_ -> false) (0 -> true)) (GHC.Integer.Type.J# s2_s4JW d2_s4JX -> let !wild2_s5b3 = integer_cmm_cmpIntegerzh s_s4JO d_s4JP s2_s4JW d2_s4JX in select wild2_s5b3 (_ -> false) (0 -> true))) GHC.Float.$wexpt$263 n_syAI w_syAK ww_syAH = let !wild_sA7A = GHC.Integer.Type.eqInteger w_syAK GHC.Float.expts4 in if wild_sA7A (let !wild1_sA7C = <{<=#}> ww_syAH 324 in if wild1_sA7C (select GHC.Float.expts10 (GHC.Arr.Array l_syAY u_syB1 rb_sA7y ds_syBa -> select l_syAY (GHC.Types.I# m_syB4 -> select u_syB1 (GHC.Types.I# n1_syB8 -> let !wild5_sA7D = <{<=#}> m_syB4 ww_syAH in if wild5_sA7D (let !wild6_sA7F = <{<=#}> ww_syAH n1_syB8 in if wild6_sA7F (let !sat_sA7x_sA7x = <{-#}> ww_syAH m_syB4, !ds1_sA7G = indexArray# ds_syBa sat_sA7x_sA7x in select ds1_sA7G (<{GHC.Tuple.()}> ipv_syBe -> ipv_syBe)) (GHC.Float.expt2 n_syAI l_syAY u_syB1)) (GHC.Float.expt2 n_syAI l_syAY u_syB1))))) (let !wild2_sA7B = <{<#}> ww_syAH 0 in if wild2_sA7B <{GHC.Real.^3}> (select ww_syAH (_ -> GHC.Real.$wf1 w_syAK ww_syAH) (0 -> GHC.Real.$fNumRatio3)))) (let !wild1_sA7z = <{<#}> ww_syAH 0 in if wild1_sA7z <{GHC.Real.^3}> (select ww_syAH (_ -> GHC.Real.$wf1 w_syAK ww_syAH) (0 -> GHC.Real.$fNumRatio3))) GHC.Float.expt2 n_syAl wild1_syAm wild2_syAn = GHC.Float.lvl10 n_syAl wild1_syAm wild2_syAn GHC.Float.lvl10 n_syAh wild1_syAe wild2_syAf = GHC.Arr.indexError GHC.Show.$fShowInt (<{GHC.Tuple.(,)}> wild1_syAe wild2_syAf) n_syAh GHC.Float.lvl6 GHC.Float.expts10 =: GHC.ST.runSTRep GHC.Float.expts3 GHC.Float.expts3 s1#_syaU = let !ds1_szWg = newArray# 325 GHC.Arr.arrEleBottom s1#_syaU in select ds1_szWg (<{GHC.Tuple.(,)}> ipv_sybo ipv1_syb6 -> GHC.Float.expts3$2 ipv1_syb6 0 ipv_sybo) GHC.Float.expts3$2 ipv1_syb6 x_syb1 eta_sybb = let !wild_szWf = <{<=#}> 0 x_syb1 in if wild_szWf (let !wild4_szWh = <{<=#}> x_syb1 324 in if wild4_szWh (let !s2#_sybh = writeArray# ipv1_syb6 x_syb1 (GHC.Float.expts3$229 x_syb1) eta_sybb in select x_syb1 (_ -> let !sat_szWc_szWc = <{+#}> x_syb1 1 in GHC.Float.expts3$2 ipv1_syb6 sat_szWc_szWc s2#_sybh) (324 -> let !ds2_szWj = unsafeFreezeArray# ipv1_syb6 s2#_sybh in select ds2_szWj (<{GHC.Tuple.(,)}> ipv2_sybl ipv3_sybm -> <{GHC.Tuple.(,)}> ipv2_sybl (GHC.Arr.Array GHC.Float.minExpt GHC.Float.maxExpt10 325 ipv3_sybm)))) (GHC.Float.expts5 x_syb1)) (GHC.Float.expts5 x_syb1) GHC.Float.expts5 x_syaR = GHC.Float.lvl9 x_syaR GHC.Float.lvl9 x_syaO = GHC.Arr.indexError GHC.Show.$fShowInt GHC.Float.lvl8 (GHC.Types.I# x_syaO) GHC.Float.lvl6 GHC.Float.lvl8 =: <{GHC.Tuple.(,)}> GHC.Float.minExpt GHC.Float.maxExpt10 GHC.Float.maxExpt10 =: GHC.Types.I# 324 GHC.Float.expts3$229 x_syb1 = let !wild1_szWi = <{<#}> x_syb1 0 in if wild1_szWi <{GHC.Real.^3}> (select x_syb1 (_ -> GHC.Real.$wf1 GHC.Float.expts4 x_syb1) (0 -> GHC.Real.$fNumRatio3)) :: <{GHC.Tuple.(,,,)}> = <{GHC.Tuple.(,,,)}> a1 a2 a3 a4 GHC.Float.$w$sfloatToDigits1$188 gen_syPY w_syOB ds3_syPX rn_syPH sN_syPF mUpN_syPQ mDnN_syPN = let !wild2_sAdw = GHC.Integer.Type.eqInteger sN_syPF GHC.Real.even1 in if wild2_sAdw GHC.Err.divZeroError (let !sat_sAci_sAci = GHC.Integer.Type.timesInteger rn_syPH w_syOB, !ww1_sAdv = GHC.Integer.Type.quotRemInteger sat_sAci_sAci sN_syPF in select ww1_sAdv (<{GHC.Tuple.(,)}> ww2_syPW ww3_syPS -> let !<{mDnN'_syPO}> = GHC.Integer.Type.timesInteger mDnN_syPN w_syOB, !<{mUpN'_syPR}> = GHC.Integer.Type.timesInteger mUpN_syPQ w_syOB, !wild3_sAdu = GHC.Integer.Type.ltInteger ww3_syPS <{mDnN'_syPO}> in if wild3_sAdu (let !sat_sAcn_sAcn = GHC.Integer.Type.plusInteger ww3_syPS <{mUpN'_syPR}>, !wild4_sAdy = GHC.Integer.Type.gtInteger sat_sAcn_sAcn sN_syPF in if wild4_sAdy (let !sat_sAcp_sAcp = GHC.Integer.Type.timesInteger ww3_syPS GHC.Float.$fRealFloatDouble7, !wild5_sAdz = GHC.Integer.Type.ltInteger sat_sAcp_sAcp sN_syPF in if wild5_sAdz (<{GHC.Types.:}> ww2_syPW ds3_syPX) (<{GHC.Types.:}> (GHC.Integer.Type.plusInteger ww2_syPW GHC.Float.$fRealDouble1) ds3_syPX)) (<{GHC.Types.:}> ww2_syPW ds3_syPX)) (let !sat_sAch_sAch = GHC.Integer.Type.plusInteger ww3_syPS <{mUpN'_syPR}>, !wild4_sAdt = GHC.Integer.Type.gtInteger sat_sAch_sAch sN_syPF in if wild4_sAdt (<{GHC.Types.:}> (GHC.Integer.Type.plusInteger ww2_syPW GHC.Float.$fRealDouble1) ds3_syPX) (gen_syPY (<{GHC.Types.:}> ww2_syPW ds3_syPX) ww3_syPS sN_syPF <{mUpN'_syPR}> <{mDnN'_syPO}>)))) GHC.Float.$fRealDouble1 =: GHC.Integer.Type.S# 1 GHC.Integer.Type.plusInteger i1_s4U4 i2_s4U7 = select i1_s4U4 (GHC.Integer.Type.S# i_s4Ua -> select i2_s4U7 (GHC.Integer.Type.S# j_s4Ub -> let !wild2_s5gx = addIntC# i_s4Ua j_s4Ub in select wild2_s5gx (<{GHC.Tuple.(,)}> r_s4Ux c_s4Uf -> select c_s4Uf (_ -> let !ds_s5gv = integer_cmm_int2Integerzh i_s4Ua in select ds_s5gv (<{GHC.Tuple.(,)}> ipv_s4Ur ipv1_s4Us -> let !ds1_s5gu = integer_cmm_int2Integerzh j_s4Ub in select ds1_s5gu (<{GHC.Tuple.(,)}> ipv2_s4Uu ipv3_s4Uv -> GHC.Integer.Type.plusInteger (GHC.Integer.Type.J# ipv_s4Ur ipv1_s4Us) (GHC.Integer.Type.J# ipv2_s4Uu ipv3_s4Uv)))) (0 -> GHC.Integer.Type.S# r_s4Ux))) (GHC.Integer.Type.J# ds_s5gA ds1_s5gB -> let !ds2_s5gz = integer_cmm_int2Integerzh i_s4Ua in select ds2_s5gz (<{GHC.Tuple.(,)}> ipv_s4UF ipv1_s4UG -> GHC.Integer.Type.plusInteger (GHC.Integer.Type.J# ipv_s4UF ipv1_s4UG) i2_s4U7))) (GHC.Integer.Type.J# ds_s4V0 ds1_s4V1 -> select i2_s4U7 (GHC.Integer.Type.S# ds2_s4UO -> let !ds3_s5gD = integer_cmm_int2Integerzh ds2_s4UO in select ds3_s5gD (<{GHC.Tuple.(,)}> ipv_s4UU ipv1_s4UV -> GHC.Integer.Type.plusInteger i1_s4U4 (GHC.Integer.Type.J# ipv_s4UU ipv1_s4UV))) (GHC.Integer.Type.J# s2_s4V2 d2_s4V3 -> let !ds2_s5gF = integer_cmm_plusIntegerzh ds_s4V0 ds1_s4V1 s2_s4V2 d2_s4V3 in select ds2_s5gF (<{GHC.Tuple.(,)}> ipv_s4V8 ipv1_s4V9 -> GHC.Integer.Type.J# ipv_s4V8 ipv1_s4V9))) GHC.Integer.Type.gtInteger ds_s4L1 ds1_s4L4 = select ds_s4L1 (GHC.Integer.Type.S# i_s4L7 -> select ds1_s4L4 (GHC.Integer.Type.S# j_s4L8 -> <{>#}> i_s4L7 j_s4L8) (GHC.Integer.Type.J# s_s4Lc d_s4Ld -> let !wild2_s4Lg = integer_cmm_cmpIntegerIntzh s_s4Lc d_s4Ld i_s4L7 in <{<#}> wild2_s4Lg 0)) (GHC.Integer.Type.J# s_s4Lm d_s4Ln -> select ds1_s4L4 (GHC.Integer.Type.S# i_s4Lo -> let !wild2_s4Lr = integer_cmm_cmpIntegerIntzh s_s4Lm d_s4Ln i_s4Lo in <{>#}> wild2_s4Lr 0) (GHC.Integer.Type.J# s2_s4Lv d2_s4Lw -> let !wild2_s4Lz = integer_cmm_cmpIntegerzh s_s4Lm d_s4Ln s2_s4Lv d2_s4Lw in <{>#}> wild2_s4Lz 0)) GHC.Integer.Type.ltInteger ds_s4Md ds1_s4Mg = select ds_s4Md (GHC.Integer.Type.S# i_s4Mj -> select ds1_s4Mg (GHC.Integer.Type.S# j_s4Mk -> <{<#}> i_s4Mj j_s4Mk) (GHC.Integer.Type.J# s_s4Mo d_s4Mp -> let !wild2_s4Ms = integer_cmm_cmpIntegerIntzh s_s4Mo d_s4Mp i_s4Mj in <{>#}> wild2_s4Ms 0)) (GHC.Integer.Type.J# s_s4My d_s4Mz -> select ds1_s4Mg (GHC.Integer.Type.S# i_s4MA -> let !wild2_s4MD = integer_cmm_cmpIntegerIntzh s_s4My d_s4Mz i_s4MA in <{<#}> wild2_s4MD 0) (GHC.Integer.Type.J# s2_s4MH d2_s4MI -> let !wild2_s4ML = integer_cmm_cmpIntegerzh s_s4My d_s4Mz s2_s4MH d2_s4MI in <{<#}> wild2_s4ML 0)) GHC.Integer.Type.quotRemInteger a_s4RT b_s4RY = select a_s4RT (GHC.Integer.Type.S# ds_s4RW -> select ds_s4RW (_ -> select b_s4RY (GHC.Integer.Type.S# j_s4S2 -> let !r_s4S7 = remInt# ds_s4RW j_s4S2, !q_s4S5 = quotInt# ds_s4RW j_s4S2 in <{GHC.Tuple.(,)}> (GHC.Integer.Type.S# q_s4S5) (GHC.Integer.Type.S# r_s4S7)) (GHC.Integer.Type.J# ds2_s5g1 ds3_s5g2 -> let !ds4_s5g0 = integer_cmm_int2Integerzh ds_s4RW in select ds4_s5g0 (<{GHC.Tuple.(,)}> ipv_s4Sg ipv1_s4Sh -> GHC.Integer.Type.quotRemInteger (GHC.Integer.Type.J# ipv_s4Sg ipv1_s4Sh) b_s4RY))) (-2147483648 -> let !ds2_s5g4 = integer_cmm_int2Integerzh -2147483648 in select ds2_s5g4 (<{GHC.Tuple.(,)}> ipv_s4Sp ipv1_s4Sq -> GHC.Integer.Type.quotRemInteger (GHC.Integer.Type.J# ipv_s4Sp ipv1_s4Sq) b_s4RY))) (GHC.Integer.Type.J# ds_s4SJ ds1_s4SK -> select b_s4RY (GHC.Integer.Type.S# ds2_s4Sx -> let !ds3_s5g6 = integer_cmm_int2Integerzh ds2_s4Sx in select ds3_s5g6 (<{GHC.Tuple.(,)}> ipv_s4SD ipv1_s4SE -> GHC.Integer.Type.quotRemInteger a_s4RT (GHC.Integer.Type.J# ipv_s4SD ipv1_s4SE))) (GHC.Integer.Type.J# s2_s4SL d2_s4SM -> let !ds2_s5ga = integer_cmm_quotRemIntegerzh ds_s4SJ ds1_s4SK s2_s4SL d2_s4SM in select ds2_s5ga (<{GHC.Tuple.(,,,)}> ipv_s4ST ipv1_s4SU ipv2_s4SW ipv3_s4SX -> <{GHC.Tuple.(,)}> (GHC.Integer.Type.J# ipv_s4ST ipv1_s4SU) (GHC.Integer.Type.J# ipv2_s4SW ipv3_s4SX)))) GHC.Err.divZeroError =: GHC.Exception.throw2 GHC.Exception.DivideByZero GHC.Exception.$fExceptionArithException_$ctoException GHC.Exception.$fExceptionArithException_$ctoException eta_B1_B1 = GHC.Exception.SomeException GHC.Exception.$fExceptionArithException eta_B1_B1 GHC.Exception.$fExceptionArithException =: <{GHC.Exception.D:Exception}> GHC.Exception.$fExceptionArithException_$ctypeOf GHC.Exception.$fShowArithException GHC.Exception.$fExceptionArithException_$ctoException GHC.Exception.$fExceptionArithException_$cfromException GHC.Exception.$fExceptionArithException_$cfromException ds_s1TW = select ds_s1TW (GHC.Exception.SomeException $dException_s1U0 e_s1U2 -> Data.Typeable.cast (GHC.Exception.$p1Exception $dException_s1U0) GHC.Exception.$fExceptionArithException_$ctypeOf e_s1U2) GHC.Exception.$fExceptionArithException_$ctypeOf ds_s1TU = GHC.Exception.$fExceptionArithException1 GHC.Exception.$fExceptionArithException1 =: Data.Typeable.Internal.mkTyConApp GHC.Exception.$fExceptionArithException2 <{GHC.Types.[]}> GHC.Exception.$fExceptionArithException2 =: Data.Typeable.Internal.mkTyCon (ghcsapl_num64# -99984856 719304104) (ghcsapl_num64# -1184153621 1843557400) GHC.Exception.$fExceptionArithException5 GHC.Exception.$fExceptionArithException4 GHC.Exception.$fExceptionArithException3 GHC.Exception.$fExceptionArithException3 =: GHC.CString.unpackCString# "ArithException" GHC.Exception.$fShowArithException =: <{GHC.Show.D:Show}> GHC.Exception.$fShowArithException_$cshowsPrec GHC.Exception.$fShowArithException_$cshow GHC.Exception.$fShowArithException_$cshowList GHC.Exception.$fShowArithException_$cshowList ls_s1S0 s_s1S1 = GHC.Show.showList__ GHC.Exception.$fShowArithException1 ls_s1S0 s_s1S1 GHC.Exception.$fShowArithException1 ds_s1RW = select ds_s1RW (GHC.Exception.Overflow -> GHC.Exception.$fShowArithException12) (GHC.Exception.Underflow -> GHC.Exception.$fShowArithException10) (GHC.Exception.LossOfPrecision -> GHC.Exception.$fShowArithException8) (GHC.Exception.DivideByZero -> GHC.Exception.$fShowArithException6) (GHC.Exception.Denormal -> GHC.Exception.$fShowArithException4) (GHC.Exception.RatioZeroDenominator -> GHC.Exception.$fShowArithException2) GHC.Exception.$fShowArithException2 eta_B1_B1 = <{GHC.Base.++}> GHC.Exception.$fShowArithException3 eta_B1_B1 GHC.Exception.$fShowArithException3 =: GHC.CString.unpackCString# "Ratio has zero denominator" :: GHC.Exception.ArithException = GHC.Exception.Overflow | GHC.Exception.Underflow | GHC.Exception.LossOfPrecision | GHC.Exception.DivideByZero | GHC.Exception.Denormal | GHC.Exception.RatioZeroDenominator GHC.Exception.$fShowArithException4 eta_B1_B1 = <{GHC.Base.++}> GHC.Exception.$fShowArithException5 eta_B1_B1 GHC.Exception.$fShowArithException5 =: GHC.CString.unpackCString# "denormal" GHC.Exception.$fShowArithException6 eta_B1_B1 = <{GHC.Base.++}> GHC.Exception.$fShowArithException7 eta_B1_B1 GHC.Exception.$fShowArithException7 =: GHC.CString.unpackCString# "divide by zero" GHC.Exception.$fShowArithException8 eta_B1_B1 = <{GHC.Base.++}> GHC.Exception.$fShowArithException9 eta_B1_B1 GHC.Exception.$fShowArithException9 =: GHC.CString.unpackCString# "loss of precision" GHC.Exception.$fShowArithException10 eta_B1_B1 = <{GHC.Base.++}> GHC.Exception.$fShowArithException11 eta_B1_B1 GHC.Exception.$fShowArithException11 =: GHC.CString.unpackCString# "arithmetic underflow" GHC.Exception.$fShowArithException12 eta_B1_B1 = <{GHC.Base.++}> GHC.Exception.$fShowArithException13 eta_B1_B1 GHC.Exception.$fShowArithException13 =: GHC.CString.unpackCString# "arithmetic overflow" GHC.Exception.$fShowArithException_$cshow x_s1S3 = select x_s1S3 (GHC.Exception.Overflow -> GHC.Exception.$fShowArithException13) (GHC.Exception.Underflow -> GHC.Exception.$fShowArithException11) (GHC.Exception.LossOfPrecision -> GHC.Exception.$fShowArithException9) (GHC.Exception.DivideByZero -> GHC.Exception.$fShowArithException7) (GHC.Exception.Denormal -> GHC.Exception.$fShowArithException5) (GHC.Exception.RatioZeroDenominator -> GHC.Exception.$fShowArithException3) GHC.Exception.$fShowArithException_$cshowsPrec ds_s1RU ds1_s1RS = select ds1_s1RS (GHC.Exception.Overflow -> GHC.Exception.$fShowArithException12) (GHC.Exception.Underflow -> GHC.Exception.$fShowArithException10) (GHC.Exception.LossOfPrecision -> GHC.Exception.$fShowArithException8) (GHC.Exception.DivideByZero -> GHC.Exception.$fShowArithException6) (GHC.Exception.Denormal -> GHC.Exception.$fShowArithException4) (GHC.Exception.RatioZeroDenominator -> GHC.Exception.$fShowArithException2) GHC.Real.even1 =: GHC.Integer.Type.S# 0 GHC.Float.$w$sfloatToDigits1$278 e0_syMV e_syNq f_syNw mUp_syOl r_syOt s_syOd w_syOB = let $wfixup_syOH = GHC.Float.$w$sfloatToDigits1$187 $wfixup_syOH (GHC.Integer.Type.plusInteger r_syOt mUp_syOl) s_syOd w_syOB, !wild1_sAdq = GHC.Integer.Type.eqInteger w_syOB GHC.Float.expts4 in if wild1_sAdq (select e0_syMV (GHC.Types.I# y_syPk -> let !x_syPl = <{+#}> 52 y_syPk, !wild3_sAdr = <{>=#}> x_syPl 0 in if wild3_sAdr (let !sat_sAce_sAce = <{*#}> x_syPl 8651, !sat_sAcd_sAcd = quotInt# sat_sAce_sAce 28738, !sat_sAcc_sAcc = <{+#}> sat_sAcd_sAcd 1, !ww1_syPv = $wfixup_syOH sat_sAcc_sAcc in GHC.Types.I# ww1_syPv) (let !sat_sAcb_sAcb = <{*#}> x_syPl 8651, !sat_sAca_sAca = quotInt# sat_sAcb_sAcb 28738, !ww1_syPq = $wfixup_syOH sat_sAca_sAca in GHC.Types.I# ww1_syPq))) (let !sat_sAc6_sAc6 = GHC.Integer.Type.plusInteger f_syNw GHC.Float.$fRealDouble1, !wild2_syOV = GHC.Integer.Type.floatFromInteger sat_sAc6_sAc6 in select e_syNq (GHC.Types.I# i_syOZ -> let !wild4_syOT = GHC.Integer.Type.floatFromInteger w_syOB, !wild5_syP5 = logFloat# wild4_syOT, !wild6_syOY = logFloat# wild2_syOV, !wild7_syP1 = logFloat# 2.0, !sat_sAc5_sAc5 = int2Float# i_syOZ, !sat_syP3_syP3 = timesFloat# sat_sAc5_sAc5 wild7_syP1, !sat_sAc4_sAc4 = plusFloat# wild6_syOY sat_syP3_syP3, !wild8_syP8 = divideFloat# sat_sAc4_sAc4 wild5_syP5, !n_syP9 = float2Int# wild8_syP8, !sat_sAc3_sAc3 = int2Float# n_syP9, !wild9_sAdo = ltFloat# sat_sAc3_sAc3 wild8_syP8 in if wild9_sAdo (let !sat_sAcf_sAcf = <{+#}> n_syP9 1, !ww1_syPg = $wfixup_syOH sat_sAcf_sAcf in GHC.Types.I# ww1_syPg) (let !ww1_syPd = $wfixup_syOH n_syP9 in GHC.Types.I# ww1_syPd))) GHC.Integer.Type.floatFromInteger ds_s57Z = select ds_s57Z (GHC.Integer.Type.S# i#_s582 -> int2Float# i#_s582) (GHC.Integer.Type.J# s#_s586 d#_s587 -> let !wild1_s5jU = ffi_wrapper5 integer_cbits_encodeFloat s#_s586 d#_s587 0 GHC.Prim.realWorld# in select wild1_s5jU (<{GHC.Tuple.(,)}> ds1_s5jT ds2_s58c -> ds2_s58c)) GHC.Float.$w$sfloatToDigits1$187 $wfixup_syOH lvl34_syOw s_syOd w_syOB ww1_syOz = let !wild1_sAdm = <{>=#}> ww1_syOz 0 in if wild1_sAdm (let !sat_sAc7_sAc7 = GHC.Float.$wexpt w_syOB ww1_syOz, !sat_sAc9_sAc9 = GHC.Integer.Type.timesInteger sat_sAc7_sAc7 s_syOd, !wild2_sAdn = GHC.Integer.Type.leInteger lvl34_syOw sat_sAc9_sAc9 in if wild2_sAdn ww1_syOz (let !sat_sAc8_sAc8 = <{+#}> ww1_syOz 1 in $wfixup_syOH sat_sAc8_sAc8)) (let !sat_syOD_syOD = negateInt# ww1_syOz, !sat_sAc0_sAc0 = GHC.Float.$wexpt w_syOB sat_syOD_syOD, !sat_sAc2_sAc2 = GHC.Integer.Type.timesInteger sat_sAc0_sAc0 lvl34_syOw, !wild2_sAdl = GHC.Integer.Type.leInteger sat_sAc2_sAc2 s_syOd in if wild2_sAdl ww1_syOz (let !sat_sAc1_sAc1 = <{+#}> ww1_syOz 1 in $wfixup_syOH sat_sAc1_sAc1)) GHC.Integer.Type.leInteger ds_s4LC ds1_s4LF = select ds_s4LC (GHC.Integer.Type.S# i_s4LI -> select ds1_s4LF (GHC.Integer.Type.S# j_s4LJ -> <{<=#}> i_s4LI j_s4LJ) (GHC.Integer.Type.J# s_s4LN d_s4LO -> let !wild2_s4LR = integer_cmm_cmpIntegerIntzh s_s4LN d_s4LO i_s4LI in <{>=#}> wild2_s4LR 0)) (GHC.Integer.Type.J# s_s4LX d_s4LY -> select ds1_s4LF (GHC.Integer.Type.S# i_s4LZ -> let !wild2_s4M2 = integer_cmm_cmpIntegerIntzh s_s4LX d_s4LY i_s4LZ in <{<=#}> wild2_s4M2 0) (GHC.Integer.Type.J# s2_s4M6 d2_s4M7 -> let !wild2_s4Ma = integer_cmm_cmpIntegerzh s_s4LX d_s4LY s2_s4M6 d2_s4M7 in <{<=#}> wild2_s4Ma 0)) GHC.Float.$w$sfloatToDigits1$31 ds2_syO5 = select ds2_syO5 (<{GHC.Tuple.(,,,)}> r1_syOs s1_sAcB mUp1_sAcC mDn_sAcD -> r1_syOs) GHC.Float.$w$sfloatToDigits1$30 ds2_syO5 = select ds2_syO5 (<{GHC.Tuple.(,,,)}> r_sAcE s1_sAcF mUp1_syOk mDn_sAcG -> mUp1_syOk) GHC.Float.$w$sfloatToDigits1$29 ds2_syO5 = select ds2_syO5 (<{GHC.Tuple.(,,,)}> r_sAcH s1_syOc mUp_sAcI mDn_sAcJ -> s1_syOc) GHC.Float.$w$sfloatToDigits1$28 e_syNq f_syNw = select e_syNq (GHC.Types.I# x_syNA -> let !wild2_sAde = <{>=#}> x_syNA 0 in if wild2_sAde (let be_syNX = GHC.Float.$wexpt GHC.Float.$fRealFloatDouble7 x_syNA, !wild3_sAdh = GHC.Integer.Type.eqInteger f_syNw GHC.Float.lvl13 in if wild3_sAdh (<{GHC.Tuple.(,,,)}> (GHC.Float.$w$sfloatToDigits1$280 be_syNX f_syNw) GHC.Float.lvl14 (GHC.Integer.Type.timesInteger be_syNX GHC.Float.$fRealFloatDouble7) be_syNX) (<{GHC.Tuple.(,,,)}> (GHC.Float.$w$sfloatToDigits1$281 be_syNX f_syNw) GHC.Float.$fRealFloatDouble7 be_syNX be_syNX)) (let !wild3_sAdd = <{>#}> x_syNA -1074 in if wild3_sAdd (let !wild4_sAdg = GHC.Integer.Type.eqInteger f_syNw GHC.Float.lvl13 in if wild4_sAdg (<{GHC.Tuple.(,,,)}> (GHC.Float.$w$sfloatToDigits1$283 f_syNw) (GHC.Float.$w$sfloatToDigits1$282 x_syNA) GHC.Float.$fRealFloatDouble7 GHC.Float.$fRealDouble1) (<{GHC.Tuple.(,,,)}> (GHC.Integer.Type.timesInteger f_syNw GHC.Float.$fRealFloatDouble7) (GHC.Float.$w$sfloatToDigits1$284 x_syNA) GHC.Float.$fRealDouble1 GHC.Float.$fRealDouble1)) (<{GHC.Tuple.(,,,)}> (GHC.Integer.Type.timesInteger f_syNw GHC.Float.$fRealFloatDouble7) (GHC.Float.$w$sfloatToDigits1$285 x_syNA) GHC.Float.$fRealDouble1 GHC.Float.$fRealDouble1))) GHC.Float.$w$sfloatToDigits1$285 x_syNA = let !sat_syNF_syNF = negateInt# x_syNA, !sat_sAbX_sAbX = GHC.Float.$wexpt GHC.Float.$fRealFloatDouble7 sat_syNF_syNF in GHC.Integer.Type.timesInteger sat_sAbX_sAbX GHC.Float.$fRealFloatDouble7 GHC.Float.$w$sfloatToDigits1$284 x_syNA = let !sat_syNL_syNL = negateInt# x_syNA, !sat_sAcQ_sAcQ = GHC.Float.$wexpt GHC.Float.$fRealFloatDouble7 sat_syNL_syNL in GHC.Integer.Type.timesInteger sat_sAcQ_sAcQ GHC.Float.$fRealFloatDouble7 GHC.Float.$w$sfloatToDigits1$282 x_syNA = let !sat_syNU_syNU = negateInt# x_syNA, !sat_syNS_syNS = <{+#}> sat_syNU_syNU 1, !sat_sAcT_sAcT = GHC.Float.$wexpt GHC.Float.$fRealFloatDouble7 sat_syNS_syNS in GHC.Integer.Type.timesInteger sat_sAcT_sAcT GHC.Float.$fRealFloatDouble7 GHC.Float.$w$sfloatToDigits1$283 f_syNw = let !sat_sAcU_sAcU = GHC.Integer.Type.timesInteger f_syNw GHC.Float.$fRealFloatDouble7 in GHC.Integer.Type.timesInteger sat_sAcU_sAcU GHC.Float.$fRealFloatDouble7 GHC.Float.lvl13 =: GHC.Float.$wexpt GHC.Float.$fRealFloatDouble7 52 GHC.Float.$w$sfloatToDigits1$281 be_syNX f_syNw = let !sat_sAcK_sAcK = GHC.Integer.Type.timesInteger f_syNw be_syNX in GHC.Integer.Type.timesInteger sat_sAcK_sAcK GHC.Float.$fRealFloatDouble7 GHC.Float.lvl14 =: GHC.Integer.Type.S# 4 GHC.Float.$w$sfloatToDigits1$280 be_syNX f_syNw = let !sat_sAcM_sAcM = GHC.Integer.Type.timesInteger f_syNw be_syNX, !sat_sAcN_sAcN = GHC.Integer.Type.timesInteger sat_sAcM_sAcM GHC.Float.$fRealFloatDouble7 in GHC.Integer.Type.timesInteger sat_sAcN_sAcN GHC.Float.$fRealFloatDouble7 GHC.Float.$w$sfloatToDigits1$27 ds1_syNk = select ds1_syNk (<{GHC.Tuple.(,)}> f1_syNv e1_sAcX -> f1_syNv) GHC.Float.$w$sfloatToDigits1$26 ds1_syNk = select ds1_syNk (<{GHC.Tuple.(,)}> f_sAcY e1_syNp -> e1_syNp) GHC.Float.$w$sfloatToDigits1$25 ds_syMP e0_syMV = select e0_syMV (GHC.Types.I# y_syN0 -> let !x_syN1 = <{-#}> -1074 y_syN0, !wild2_sAd8 = <{>#}> x_syN1 0 in if wild2_sAd8 (let !sat_syNi_syNi = <{+#}> y_syN0 x_syN1 in <{GHC.Tuple.(,)}> (GHC.Float.$w$sfloatToDigits1$279 ds_syMP x_syN1) (GHC.Types.I# sat_syNi_syNi)) (<{GHC.Tuple.(,)}> (GHC.Float.$w$sfloatToDigits1$33 ds_syMP) e0_syMV)) GHC.Float.$w$sfloatToDigits1$33 ds_syMP = select ds_syMP (<{GHC.Tuple.(,)}> f0_syN6 e1_sAd2 -> f0_syN6) GHC.Float.$w$sfloatToDigits1$279 ds_syMP x_syN1 = let !ds2_syNa = GHC.Float.$wexpt GHC.Float.$fRealFloatDouble7 x_syN1, !wild3_sAda = GHC.Integer.Type.eqInteger ds2_syNa GHC.Real.even1 in if wild3_sAda GHC.Err.divZeroError (select ds_syMP (<{GHC.Tuple.(,)}> f0_syNf e1_sAd1 -> GHC.Integer.Type.quotInteger f0_syNf ds2_syNa)) GHC.Integer.Type.quotInteger a_s4T1 b_s4T6 = select a_s4T1 (GHC.Integer.Type.S# ds_s4T4 -> select ds_s4T4 (_ -> select b_s4T6 (GHC.Integer.Type.S# b1_s4Ta -> let !wild2_s4Tc = quotInt# ds_s4T4 b1_s4Ta in GHC.Integer.Type.S# wild2_s4Tc) (GHC.Integer.Type.J# ds2_s5gh ds3_s5gi -> let !ds4_s5gg = integer_cmm_int2Integerzh ds_s4T4 in select ds4_s5gg (<{GHC.Tuple.(,)}> ipv_s4Tk ipv1_s4Tl -> GHC.Integer.Type.quotInteger (GHC.Integer.Type.J# ipv_s4Tk ipv1_s4Tl) b_s4T6))) (-2147483648 -> let !ds2_s5gk = integer_cmm_int2Integerzh -2147483648 in select ds2_s5gk (<{GHC.Tuple.(,)}> ipv_s4Tt ipv1_s4Tu -> GHC.Integer.Type.quotInteger (GHC.Integer.Type.J# ipv_s4Tt ipv1_s4Tu) b_s4T6))) (GHC.Integer.Type.J# sa_s4TH a1_s4TI -> select b_s4T6 (GHC.Integer.Type.S# b1_s4TB -> let !ds_s5gm = integer_cmm_int2Integerzh b1_s4TB in select ds_s5gm (<{GHC.Tuple.(,)}> ipv_s4TJ ipv1_s4TK -> let !ds1_s5gl = integer_cmm_quotIntegerzh sa_s4TH a1_s4TI ipv_s4TJ ipv1_s4TK in select ds1_s5gl (<{GHC.Tuple.(,)}> ipv2_s4TP ipv3_s4TQ -> GHC.Integer.Type.J# ipv2_s4TP ipv3_s4TQ))) (GHC.Integer.Type.J# sb_s4TU b1_s4TV -> let !ds_s5go = integer_cmm_quotIntegerzh sa_s4TH a1_s4TI sb_s4TU b1_s4TV in select ds_s5go (<{GHC.Tuple.(,)}> ipv_s4U0 ipv1_s4U1 -> GHC.Integer.Type.J# ipv_s4U0 ipv1_s4U1))) GHC.Float.$w$sfloatToDigits1$24 ds_syMP = select ds_syMP (<{GHC.Tuple.(,)}> f0_sAd3 e1_syMU -> e1_syMU) GHC.Float.$w$sfloatToDigits1$277 ww_syMG = let !ds1_sAd4 = GHC.Integer.Type.decodeDoubleInteger ww_syMG in select ds1_sAd4 (<{GHC.Tuple.(,)}> ipv_syMM ipv1_syMN -> <{GHC.Tuple.(,)}> ipv_syMM (GHC.Types.I# ipv1_syMN)) GHC.Integer.Type.decodeDoubleInteger d_s4Ji = let !ds_s5aW = integer_cmm_decodeDoublezh d_s4Ji in select ds_s5aW (<{GHC.Tuple.(,,)}> ipv_s4Jr ipv1_s4Jo ipv2_s4Jp -> <{GHC.Tuple.(,)}> (GHC.Integer.Type.J# ipv1_s4Jo ipv2_s4Jp) ipv_s4Jr) :: <{GHC.Tuple.(,,)}> = <{GHC.Tuple.(,,)}> a1 a2 a3 GHC.Float.lvl12 =: <{GHC.Types.:}> GHC.Float.minExpt <{GHC.Types.[]}> GHC.Float.$fShowDouble4 =: GHC.Types.C# '-' GHC.Float.$w$sformatRealFloat$306 $wdoFmt_szbu w_szbA ww_sz2f = let !sat_sAiH_sAiH = negateDouble# ww_sz2f, !ww1_sAm6 = GHC.Float.$w$sfloatToDigits1 GHC.Float.expts4 sat_sAiH_sAiH in select ww1_sAm6 (<{GHC.Tuple.(,)}> ww2_szbB ww3_szbC -> $wdoFmt_szbu w_szbA ww2_szbB ww3_szbC) GHC.Float.$w$sformatRealFloat$194 w1_sz2x sc_sz2z sc1_sz2K = select w1_sz2x (Data.Maybe.Nothing -> let !wild5_sAk4 = GHC.Base.map GHC.Show.intToDigit sc_sz2z in select wild5_sAk4 (<{GHC.Types.[]}> -> GHC.Float.lvl19) (<{GHC.Types.:}> ds4_sz2D ds5_sz2H -> select ds4_sz2D (GHC.Types.C# ds6_sz33 -> let $wfail_sz32 = GHC.Float.$w$sformatRealFloat$80 ds4_sz2D ds5_sz2H sc1_sz2K in select ds6_sz33 (_ -> $wfail_sz32) ('0' -> select ds5_sz2H (<{GHC.Types.[]}> -> GHC.Float.lvl21) (<{GHC.Types.:}> ipv_sAk7 ipv1_sAk8 -> $wfail_sz32))))) (Data.Maybe.Just dec_sz3a -> let <{dec'_sz3g}> = GHC.Float.$w$sformatRealFloat$81 dec_sz3a, ds4_sz3s = GHC.Float.$w$sformatRealFloat$307 <{dec'_sz3g}> sc_sz2z, ei_sz3y = GHC.Float.$w$sformatRealFloat$82 ds4_sz3s, ds5_sz43 = GHC.Float.$w$sformatRealFloat$83 ds4_sz3s ei_sz3y, a_sz4h = GHC.Float.$w$sformatRealFloat$84 ds5_sz43 ei_sz3y sc1_sz2K in select sc_sz2z (<{GHC.Types.[]}> -> <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$85 ds5_sz43) (<{GHC.Types.:}> GHC.Float.lvl20 a_sz4h)) (<{GHC.Types.:}> ds6_sz4r ds7_sz4C -> select ds6_sz4r (GHC.Types.I# ds8_sz4u -> select ds8_sz4u (_ -> <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$86 ds5_sz43) (<{GHC.Types.:}> GHC.Float.lvl20 a_sz4h)) (0 -> select ds7_sz4C (<{GHC.Types.[]}> -> <{GHC.Types.:}> GHC.Float.lvl24 (<{GHC.Types.:}> GHC.Float.lvl20 (GHC.Float.$w$sformatRealFloat$87 <{dec'_sz3g}>))) (<{GHC.Types.:}> ipv_sAkt ipv1_sAku -> <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$88 ds5_sz43) (<{GHC.Types.:}> GHC.Float.lvl20 a_sz4h)))))) GHC.Float.lvl20 =: GHC.Types.C# '.' GHC.Float.$w$sformatRealFloat$88 ds5_sz43 = select ds5_sz43 (<{GHC.Tuple.(,)}> d_sz4Q <{ds'_sAks}> -> d_sz4Q) GHC.Float.$w$sformatRealFloat$87 <{dec'_sz3g}> = select <{dec'_sz3g}> (GHC.Types.I# n#_sz4G -> let !wild9_sAkS = <{<=#}> n#_sz4G 0 in if wild9_sAkS GHC.Float.nil (GHC.Float.go GHC.Float.xs1 n#_sz4G)) GHC.Float.xs1 =: <{GHC.Types.:}> GHC.Float.lvl24 GHC.Float.xs1 GHC.Float.lvl24 =: GHC.Types.C# '0' GHC.Float.go ds_sz1G eta_sz1K = select ds_sz1G (<{GHC.Types.[]}> -> GHC.Float.nil) (<{GHC.Types.:}> y_sz1M ys_sz1N -> let !wild1_sAiq = <{<=#}> eta_sz1K 1 in if wild1_sAiq (<{GHC.Types.:}> y_sz1M GHC.Float.nil) (<{GHC.Types.:}> y_sz1M (GHC.Float.go$305 eta_sz1K ys_sz1N))) GHC.Float.go$305 eta_sz1K ys_sz1N = let !sat_sz1P_sz1P = <{-#}> eta_sz1K 1 in GHC.Float.go ys_sz1N sat_sz1P_sz1P GHC.Float.nil =: GHC.CString.unpackCString# "e0" GHC.Float.$w$sformatRealFloat$86 ds5_sz43 = select ds5_sz43 (<{GHC.Tuple.(,)}> d_sz4z <{ds'_sAko}> -> d_sz4z) GHC.Float.$w$sformatRealFloat$85 ds5_sz43 = select ds5_sz43 (<{GHC.Tuple.(,)}> d_sz4m <{ds'_sAkl}> -> d_sz4m) GHC.Float.$w$sformatRealFloat$84 ds5_sz43 ei_sz3y sc1_sz2K = select ds5_sz43 (<{GHC.Tuple.(,)}> d_sAkv <{ds'_sz48}> -> <{GHC.Base.++}> <{ds'_sz48}> (<{GHC.Types.:}> GHC.Float.lvl23 (GHC.Float.$w$sformatRealFloat$93 ei_sz3y sc1_sz2K))) GHC.Float.$w$sformatRealFloat$93 ei_sz3y sc1_sz2K = select ei_sz3y (GHC.Types.I# y_sz4c -> let !sat_sAkh_sAkh = <{-#}> sc1_sz2K 1, !sat_sAkg_sAkg = <{+#}> sat_sAkh_sAkh y_sz4c in GHC.Show.itos sat_sAkg_sAkg <{GHC.Types.[]}>) GHC.Float.lvl23 =: GHC.Types.C# 'e' GHC.Float.$w$sformatRealFloat$83 ds4_sz3s ei_sz3y = select ei_sz3y (GHC.Types.I# x_sz3C -> let !wild6_sAkG = <{>#}> x_sz3C 0 in if wild6_sAkG (select ds4_sz3s (<{GHC.Tuple.(,)}> ei1_sAkw <{is'_sz3Q}> -> select <{is'_sz3Q}> (<{GHC.Types.[]}> -> GHC.List.init2) (<{GHC.Types.:}> x1_sz3V xs4_sz3W -> let !sat_sAkx_sAkx = GHC.List.init1 x1_sz3V xs4_sz3W, !wild9_sAkK = GHC.Base.map GHC.Show.intToDigit sat_sAkx_sAkx in select wild9_sAkK (<{GHC.Types.[]}> -> GHC.Float.lvl22) (<{GHC.Types.:}> d_sz41 <{ds'_sz42}> -> <{GHC.Tuple.(,)}> d_sz41 <{ds'_sz42}>)))) (select ds4_sz3s (<{GHC.Tuple.(,)}> ei1_sAky <{is'_sz3H}> -> let !wild8_sAkE = GHC.Base.map GHC.Show.intToDigit <{is'_sz3H}> in select wild8_sAkE (<{GHC.Types.[]}> -> GHC.Float.lvl22) (<{GHC.Types.:}> d_sz3L <{ds'_sz3M}> -> <{GHC.Tuple.(,)}> d_sz3L <{ds'_sz3M}>)))) GHC.Float.lvl22 =: Control.Exception.Base.irrefutPatError "libraries/base/GHC/Float.lhs:604:12-70|(d : ds\')" Control.Exception.Base.irrefutPatError s_s30h = GHC.Exception.throw2 (Control.Exception.Base.PatternMatchFail (GHC.IO.Exception.untangle s_s30h Control.Exception.Base.lvl4)) Control.Exception.Base.$fExceptionPatternMatchFail_$ctoException Control.Exception.Base.$fExceptionPatternMatchFail_$ctoException eta_B1_B1 = GHC.Exception.SomeException Control.Exception.Base.$fExceptionPatternMatchFail eta_B1_B1 Control.Exception.Base.$fExceptionPatternMatchFail =: <{GHC.Exception.D:Exception}> Control.Exception.Base.$fExceptionPatternMatchFail_$ctypeOf Control.Exception.Base.$fShowPatternMatchFail Control.Exception.Base.$fExceptionPatternMatchFail_$ctoException Control.Exception.Base.$fExceptionPatternMatchFail_$cfromException Control.Exception.Base.$fExceptionPatternMatchFail_$cfromException ds_s2YJ = select ds_s2YJ (GHC.Exception.SomeException $dException1_s2YN e_s2YP -> let !sat_s33v_s33v = GHC.Exception.$p1Exception $dException1_s2YN in Data.Typeable.cast sat_s33v_s33v Control.Exception.Base.$fExceptionPatternMatchFail_$ctypeOf e_s2YP) Control.Exception.Base.$fExceptionPatternMatchFail_$ctypeOf ds_s2YH = Control.Exception.Base.$fExceptionPatternMatchFail1 Control.Exception.Base.$fExceptionPatternMatchFail1 =: Data.Typeable.Internal.TypeRep (ghcsapl_num64# 18445595 -555801898) (ghcsapl_num64# 52003073 -1048012412) Control.Exception.Base.$fExceptionPatternMatchFail_wild <{GHC.Types.[]}> Control.Exception.Base.$fExceptionPatternMatchFail_wild =: Data.Typeable.Internal.TyCon (ghcsapl_num64# 18445595 -555801898) (ghcsapl_num64# 52003073 -1048012412) Control.Exception.Base.$fExceptionNestedAtomically_ds Control.Exception.Base.$fExceptionNestedAtomically_ds1 Control.Exception.Base.$fExceptionPatternMatchFail_ds2 Control.Exception.Base.$fExceptionPatternMatchFail_ds2 =: GHC.CString.unpackCString# "PatternMatchFail" Control.Exception.Base.$fExceptionNestedAtomically_ds1 =: GHC.CString.unpackCString# "Control.Exception.Base" Control.Exception.Base.$fExceptionNestedAtomically_ds =: GHC.CString.unpackCString# "base" Control.Exception.Base.$fShowPatternMatchFail =: <{GHC.Show.D:Show}> Control.Exception.Base.$fShowPatternMatchFail_$cshowsPrec Control.Exception.Base.$fShowPatternMatchFail_$cshow Control.Exception.Base.$fShowPatternMatchFail_$cshowList Control.Exception.Base.$fShowPatternMatchFail_$cshowList ls_s2Wt s_s2Wu = GHC.Show.showList__ Control.Exception.Base.$fShowPatternMatchFail1 ls_s2Wt s_s2Wu Control.Exception.Base.$fShowPatternMatchFail1 ds_s2Wm eta_s2Wq = select ds_s2Wm (Control.Exception.Base.PatternMatchFail err_s2Wp -> <{GHC.Base.++}> err_s2Wp eta_s2Wq) :: Control.Exception.Base.PatternMatchFail = Control.Exception.Base.PatternMatchFail a1 Control.Exception.Base.$fShowPatternMatchFail_$cshow x_s2Ww = select x_s2Ww (Control.Exception.Base.PatternMatchFail err_s2Wz -> err_s2Wz) Control.Exception.Base.$fShowPatternMatchFail_$cshowsPrec ds_s2Wj ds1_s2We eta_s2Wi = select ds1_s2We (Control.Exception.Base.PatternMatchFail err_s2Wh -> <{GHC.Base.++}> err_s2Wh eta_s2Wi) Control.Exception.Base.lvl4 =: GHC.CString.unpackCString# "Irrefutable pattern failed for pattern" GHC.IO.Exception.untangle coded_s6Tk message_s6Tt = let !sat_s79T_s79T = GHC.CString.unpackCStringUtf8# coded_s6Tk, !ww_s79U = GHC.List.$wspan GHC.IO.Exception.untangle4 sat_s79T_s79T in select ww_s79U (<{GHC.Tuple.(,)}> ww1_s6TD ww2_s6TB -> select ww2_s6TB (<{GHC.Types.[]}> -> GHC.IO.Exception.untangle$1 message_s6Tt ww1_s6TD <{GHC.Types.[]}>) (<{GHC.Types.:}> ds_s6TG det_s6TL -> select ds_s6TG (GHC.Types.C# ds1_s6TJ -> select ds1_s6TJ (_ -> GHC.IO.Exception.untangle$1 message_s6Tt ww1_s6TD <{GHC.Types.[]}>) ('|' -> GHC.IO.Exception.untangle$1 message_s6Tt ww1_s6TD (<{GHC.Types.:}> GHC.IO.Exception.untangle1 det_s6TL))))) GHC.IO.Exception.untangle1 =: GHC.Types.C# ' ' GHC.IO.Exception.untangle$1 message_s6Tt location_s6Ts details_s6Tu = <{GHC.Base.++}> location_s6Ts (GHC.CString.unpackAppendCString# ": " (<{GHC.Base.++}> message_s6Tt (<{GHC.Base.++}> details_s6Tu GHC.IO.Exception.untangle2))) GHC.IO.Exception.untangle2 =: <{GHC.Types.:}> GHC.IO.Exception.untangle3 <{GHC.Types.[]}> GHC.IO.Exception.untangle3 =: GHC.Types.C# '\n' GHC.IO.Exception.untangle4 c_s6Td = select c_s6Td (GHC.Types.C# c1_s6Tg -> select c1_s6Tg (_ -> true) ('|' -> false)) GHC.List.$wspan w_s3CT w1_s3CO = select w1_s3CO (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> <{GHC.Types.[]}> <{GHC.Types.[]}>) (<{GHC.Types.:}> x_s3CS <{xs'_s3CX}> -> let !wild1_s3Ol = w_s3CT x_s3CS in if wild1_s3Ol (let ds_s3D3 = GHC.List.$wspan$26 w_s3CT <{xs'_s3CX}> in <{GHC.Tuple.(,)}> (<{GHC.Types.:}> x_s3CS (GHC.List.$wspan$12 ds_s3D3)) (GHC.List.$wspan$11 ds_s3D3)) (<{GHC.Tuple.(,)}> <{GHC.Types.[]}> w1_s3CO)) GHC.List.$wspan$11 ds_s3D3 = select ds_s3D3 (<{GHC.Tuple.(,)}> ys_s3Op zs_s3De -> zs_s3De) GHC.List.$wspan$12 ds_s3D3 = select ds_s3D3 (<{GHC.Tuple.(,)}> ys_s3D7 zs_s3Oo -> ys_s3D7) GHC.List.$wspan$26 w_s3CT <{xs'_s3CX}> = let !ww_s3Oq = GHC.List.$wspan w_s3CT <{xs'_s3CX}> in select ww_s3Oq (<{GHC.Tuple.(,)}> ww1_s3D1 ww2_s3D2 -> <{GHC.Tuple.(,)}> ww1_s3D1 ww2_s3D2) GHC.CString.unpackCStringUtf8# str = _unpackCStringUTF8 str GHC.Show.intToDigit w_s7g8 = select w_s7g8 (GHC.Types.I# ww_s7gb -> let !ww1_s7gd = GHC.Show.$wintToDigit ww_s7gb in GHC.Types.C# ww1_s7gd) GHC.Show.$wintToDigit ww_s7fV = let !wild_s7p4 = <{>=#}> ww_s7fV 0 in if wild_s7p4 (let !wild1_s7p5 = <{<=#}> ww_s7fV 9 in if wild1_s7p5 (let !sat_s7oZ_s7oZ = <{+#}> 48 ww_s7fV in chr# sat_s7oZ_s7oZ) (GHC.Show.$wintToDigit$1 ww_s7fV GHC.Prim.realWorld#)) (GHC.Show.$wintToDigit$1 ww_s7fV GHC.Prim.realWorld#) GHC.Show.$wintToDigit$1 ww_s7fV void_s7g2 = let !wild_s7p0 = <{>=#}> ww_s7fV 10 in if wild_s7p0 (let !wild1_s7p1 = <{<=#}> ww_s7fV 15 in if wild1_s7p1 (let !sat_s7p3_s7p3 = <{+#}> 97 ww_s7fV, !sat_s7p2_s7p2 = <{-#}> sat_s7p3_s7p3 10 in chr# sat_s7p2_s7p2) (GHC.Show.intToDigit1 ww_s7fV)) (GHC.Show.intToDigit1 ww_s7fV) GHC.Show.intToDigit1 i_s7fO = let !sat_s7oX_s7oX = GHC.CString.unpackAppendCString# "Char.intToDigit: not a digit " (GHC.Show.itos i_s7fO <{GHC.Types.[]}>) in GHC.Err.error sat_s7oX_s7oX GHC.List.init1 ds_s3zh ds1_s3zd = select ds1_s3zd (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> z_s3zi zs_s3zj -> <{GHC.Types.:}> ds_s3zh (GHC.List.init1 z_s3zi zs_s3zj)) GHC.List.init2 =: GHC.List.errorEmptyList GHC.List.lvl6 GHC.List.lvl6 =: GHC.CString.unpackCString# "init" GHC.Float.$w$sformatRealFloat$82 ds4_sz3s = select ds4_sz3s (<{GHC.Tuple.(,)}> ei1_sz3x <{is'_sAkz}> -> ei1_sz3x) GHC.Float.$w$sformatRealFloat$307 <{dec'_sz3g}> sc_sz2z = let !ww1_sAkC = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$89 <{dec'_sz3g}>) sc_sz2z in select ww1_sAkC (<{GHC.Tuple.(,)}> ww2_sz3q ww3_sz3r -> <{GHC.Tuple.(,)}> ww2_sz3q ww3_sz3r) GHC.Float.$w$sformatRealFloat$89 <{dec'_sz3g}> = select <{dec'_sz3g}> (GHC.Types.I# x_sz3k -> let !sat_sAke_sAke = <{+#}> x_sz3k 1 in GHC.Types.I# sat_sAke_sAke) GHC.Float.base =: GHC.Types.I# 10 GHC.Float.$wroundTo w_sxZR w1_sy0W w2_sy0U = let b2_sxZW = GHC.Float.$wroundTo$9 w_sxZR, $s$wf3_sy0e = GHC.Float.$wroundTo$179 $s$wf3_sy0e b2_sxZW w_sxZR in select w2_sy0U (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> GHC.Float.minExpt (GHC.Float.$wroundTo$10 w1_sy0W)) (<{GHC.Types.:}> ipv_sy18 ipv1_sy1e -> select w1_sy0W (GHC.Types.I# ds_sy16 -> select ds_sy16 (_ -> let !sat_szRi_szRi = <{-#}> ds_sy16 1, !ww_szRP = $s$wf3_sy0e (GHC.Float.$wroundTo$11 ipv_sy18) ipv1_sy1e sat_szRi_szRi in select ww_szRP (<{GHC.Tuple.(,)}> ww1_sy1k ww2_sy1y -> select ww1_sy1k (GHC.Types.I# x_sy1s -> select ipv_sy18 (GHC.Types.I# y_sy1t -> select w_sxZR (GHC.Types.I# y1_sy1v -> let !x1_sy1u = <{+#}> x_sy1s y_sy1t, !wild5_szRL = <{==#}> x1_sy1u y1_sy1v in if wild5_szRL (<{GHC.Tuple.(,)}> GHC.Float.$fRealFracFloat2 (<{GHC.Types.:}> GHC.Float.$fRealFracFloat2 (<{GHC.Types.:}> GHC.Float.minExpt ww2_sy1y))) (<{GHC.Tuple.(,)}> GHC.Float.minExpt (<{GHC.Types.:}> (GHC.Types.I# x1_sy1u) ww2_sy1y))))))) (0 -> select ipv_sy18 (GHC.Types.I# x_sy1I -> select b2_sxZW (GHC.Types.I# y_sy1J -> let !wild4_szRR = <{==#}> x_sy1I y_sy1J in if wild4_szRR (let !wild5_szRV = GHC.List.all GHC.Float.lvl1 ipv1_sy1e in if wild5_szRV (<{GHC.Tuple.(,)}> GHC.Float.minExpt <{GHC.Types.[]}>) (let !wild6_szRU = <{>=#}> x_sy1I y_sy1J in if wild6_szRU (<{GHC.Tuple.(,)}> GHC.Float.$fRealFracFloat2 (<{GHC.Types.:}> GHC.Float.$fRealFracFloat2 <{GHC.Types.[]}>)) (<{GHC.Tuple.(,)}> GHC.Float.minExpt <{GHC.Types.[]}>))) (let !wild5_szRQ = <{>=#}> x_sy1I y_sy1J in if wild5_szRQ (<{GHC.Tuple.(,)}> GHC.Float.$fRealFracFloat2 (<{GHC.Types.:}> GHC.Float.$fRealFracFloat2 <{GHC.Types.[]}>)) (<{GHC.Tuple.(,)}> GHC.Float.minExpt <{GHC.Types.[]}>))))))) GHC.Float.$fRealFracFloat2 =: GHC.Types.I# 1 GHC.Float.lvl1 ds_sxZy = select ds_sxZy (GHC.Types.I# x_sxZB -> select x_sxZB (_ -> false) (0 -> true)) GHC.List.all ds_s3wi ds1_s3wd = select ds1_s3wd (<{GHC.Types.[]}> -> true) (<{GHC.Types.:}> x_s3wh xs_s3wk -> let !wild1_s3Lz = ds_s3wi x_s3wh in if wild1_s3Lz (GHC.List.all ds_s3wi xs_s3wk) false) GHC.Float.$wroundTo$11 ipv_sy18 = select ipv_sy18 (GHC.Types.I# x_sy1b -> let !wild3_szRI = remInt# x_sy1b 2 in select wild3_szRI (_ -> false) (0 -> true)) GHC.Float.$wroundTo$10 w1_sy0W = select w1_sy0W (GHC.Types.I# n#_sy0Z -> let !wild2_szRF = <{<=#}> n#_sy0Z 0 in if wild2_szRF <{GHC.Types.[]}> (GHC.Float.xs n#_sy0Z)) GHC.Float.xs m_sxZI = let !wild_szR4 = <{<=#}> m_sxZI 1 in if wild_szR4 GHC.Float.lvl4 (<{GHC.Types.:}> GHC.Float.minExpt (GHC.Float.xs$223 m_sxZI)) GHC.Float.xs$223 m_sxZI = let !sat_sxZL_sxZL = <{-#}> m_sxZI 1 in GHC.Float.xs sat_sxZL_sxZL GHC.Float.lvl4 =: <{GHC.Types.:}> GHC.Float.minExpt <{GHC.Types.[]}> GHC.Float.$wroundTo$179 $s$wf3_sy0e b2_sxZW w_sxZR sc_sy0N sc1_sy01 sc2_sy03 = select sc1_sy01 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> GHC.Float.minExpt (GHC.Float.$wroundTo$224 sc2_sy03)) (<{GHC.Types.:}> ipv_sy09 ipv1_sy0g -> select sc2_sy03 (_ -> let !sat_szRb_szRb = <{-#}> sc2_sy03 1, !ww_szRw = $s$wf3_sy0e (GHC.Float.$wroundTo$12 ipv_sy09) ipv1_sy0g sat_szRb_szRb in select ww_szRw (<{GHC.Tuple.(,)}> ww1_sy0m ww2_sy0A -> select ww1_sy0m (GHC.Types.I# x_sy0u -> select ipv_sy09 (GHC.Types.I# y_sy0v -> select w_sxZR (GHC.Types.I# y1_sy0x -> let !x1_sy0w = <{+#}> x_sy0u y_sy0v, !wild4_szRs = <{==#}> x1_sy0w y1_sy0x in if wild4_szRs (<{GHC.Tuple.(,)}> GHC.Float.$fRealFracFloat2 (<{GHC.Types.:}> GHC.Float.minExpt ww2_sy0A)) (<{GHC.Tuple.(,)}> GHC.Float.minExpt (<{GHC.Types.:}> (GHC.Types.I# x1_sy0w) ww2_sy0A))))))) (0 -> select ipv_sy09 (GHC.Types.I# x_sy0I -> select b2_sxZW (GHC.Types.I# y_sy0J -> let !wild3_szRy = <{==#}> x_sy0I y_sy0J in if wild3_szRy (if sc_sy0N (let !wild5_szRE = GHC.List.all GHC.Float.lvl1 ipv1_sy0g in if wild5_szRE (<{GHC.Tuple.(,)}> GHC.Float.minExpt <{GHC.Types.[]}>) (<{GHC.Tuple.(,)}> (GHC.Float.$wroundTo$225 x_sy0I y_sy0J) <{GHC.Types.[]}>)) (<{GHC.Tuple.(,)}> (GHC.Float.$wroundTo$226 x_sy0I y_sy0J) <{GHC.Types.[]}>)) (<{GHC.Tuple.(,)}> (GHC.Float.$wroundTo$227 x_sy0I y_sy0J) <{GHC.Types.[]}>))))) GHC.Float.$wroundTo$227 x_sy0I y_sy0J = let !wild4_szRx = <{>=#}> x_sy0I y_sy0J in if wild4_szRx GHC.Float.$fRealFracFloat2 GHC.Float.minExpt GHC.Float.$wroundTo$226 x_sy0I y_sy0J = let !wild5_szRB = <{>=#}> x_sy0I y_sy0J in if wild5_szRB GHC.Float.$fRealFracFloat2 GHC.Float.minExpt GHC.Float.$wroundTo$225 x_sy0I y_sy0J = let !wild6_szRD = <{>=#}> x_sy0I y_sy0J in if wild6_szRD GHC.Float.$fRealFracFloat2 GHC.Float.minExpt GHC.Float.$wroundTo$12 ipv_sy09 = select ipv_sy09 (GHC.Types.I# x_sy0c -> let !wild2_szRq = remInt# x_sy0c 2 in select wild2_szRq (_ -> false) (0 -> true)) GHC.Float.$wroundTo$224 sc2_sy03 = let !wild1_szRo = <{<=#}> sc2_sy03 0 in if wild1_szRo <{GHC.Types.[]}> (GHC.Float.xs sc2_sy03) GHC.Float.$wroundTo$9 w_sxZR = select w_sxZR (GHC.Types.I# ww_sxZU -> let !sat_szR7_szR7 = quotInt# ww_sxZU 2 in GHC.Types.I# sat_szR7_szR7) GHC.Float.$w$sformatRealFloat$81 dec_sz3a = select dec_sz3a (GHC.Types.I# x1_sz3d -> let !wild6_sAkA = <{<=#}> x1_sz3d 1 in if wild6_sAkA GHC.Float.$fRealFracFloat2 dec_sz3a) GHC.Float.lvl21 =: GHC.CString.unpackCString# "0.0e0" GHC.Float.$w$sformatRealFloat$80 ds4_sz2D ds5_sz2H sc1_sz2K = select ds5_sz2H (<{GHC.Types.[]}> -> <{GHC.Types.:}> ds4_sz2D (GHC.Float.$w$sformatRealFloat$319 sc1_sz2K)) (<{GHC.Types.:}> ipv_sAka ipv1_sAkb -> <{GHC.Types.:}> ds4_sz2D (<{GHC.Types.:}> GHC.Float.lvl20 (GHC.Float.$w$sformatRealFloat$320 ds5_sz2H sc1_sz2K))) GHC.Float.$w$sformatRealFloat$320 ds5_sz2H sc1_sz2K = <{GHC.Base.++}> ds5_sz2H (<{GHC.Types.:}> GHC.Float.lvl23 (GHC.Float.$w$sformatRealFloat$322 sc1_sz2K)) GHC.Float.$w$sformatRealFloat$322 sc1_sz2K = let !sat_sz2U_sz2U = <{-#}> sc1_sz2K 1 in GHC.Show.itos sat_sz2U_sz2U <{GHC.Types.[]}> GHC.Float.$w$sformatRealFloat$319 sc1_sz2K = GHC.CString.unpackAppendCString# ".0e" (GHC.Float.$w$sformatRealFloat$321 sc1_sz2K) GHC.Float.$w$sformatRealFloat$321 sc1_sz2K = let !sat_sz2M_sz2M = <{-#}> sc1_sz2K 1 in GHC.Show.$wshowSignedInt 0 sat_sz2M_sz2M <{GHC.Types.[]}> GHC.Float.lvl19 =: GHC.Err.error GHC.Float.lvl18 GHC.Float.lvl18 =: GHC.CString.unpackCString# "formatRealFloat/doFmt/FFExponent: []" GHC.Float.$w$sformatRealFloat$195 w1_sz2x sc_sz50 sc1_sz4Y = select w1_sz2x (Data.Maybe.Nothing -> let !wild5_sAkW = <{<=#}> sc1_sz4Y 0 in if wild5_sAkW (GHC.CString.unpackAppendCString# "0." (GHC.Float.$w$sformatRealFloat$308 sc1_sz4Y sc_sz50)) (GHC.Float.$wf sc1_sz4Y <{GHC.Types.[]}> (GHC.Base.map GHC.Show.intToDigit sc_sz50))) (Data.Maybe.Just dec_sz5y -> let !wild5_sAl1 = <{>=#}> sc1_sz4Y 0 in if wild5_sAl1 (let !ww1_sAld = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$77 dec_sz5y sc1_sz4Y) sc_sz50 in select ww1_sAld (<{GHC.Tuple.(,)}> ww2_sz6k ww3_sz6r -> select ww2_sz6k (GHC.Types.I# y_sz6o -> let !n#_sz6p = <{+#}> sc1_sz4Y y_sz6o, !wild7_sAlb = <{<#}> n#_sz6p 0 in if wild7_sAlb (<{GHC.Types.:}> GHC.Float.lvl24 (GHC.Float.$w$sformatRealFloat$309 ww3_sz6r)) (let !ww4_sAle = GHC.List.$wsplitAt# n#_sz6p (GHC.Base.map GHC.Show.intToDigit ww3_sz6r) in select ww4_sAle (<{GHC.Tuple.(,)}> ww5_sz6w ww6_sz6y -> select ww5_sz6w (<{GHC.Types.[]}> -> <{GHC.Types.:}> GHC.Float.lvl24 (GHC.Float.$w$sformatRealFloat$78 ww6_sz6y)) (<{GHC.Types.:}> ipv_sAjR ipv1_sAjU -> <{GHC.Base.++}> ww5_sz6w (GHC.Float.$w$sformatRealFloat$79 ww6_sz6y))))))) (let ds4_sz5W = GHC.Float.$w$sformatRealFloat$310 dec_sz5y sc1_sz4Y sc_sz50 in <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$74 ds4_sz5W) (GHC.Float.$w$sformatRealFloat$73 ds4_sz5W))) GHC.Float.$w$sformatRealFloat$73 ds4_sz5W = select ds4_sz5W (<{GHC.Tuple.(,)}> d_sAjK <{ds'_sz65}> -> select <{ds'_sz65}> (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds6_sAjL ds7_sAjM -> <{GHC.Types.:}> GHC.Float.lvl20 <{ds'_sz65}>)) GHC.Float.$w$sformatRealFloat$74 ds4_sz5W = select ds4_sz5W (<{GHC.Tuple.(,)}> d_sz60 <{ds'_sAjJ}> -> d_sz60) GHC.Float.$w$sformatRealFloat$310 dec_sz5y sc1_sz4Y sc_sz50 = let !n#_sz5m = negateInt# sc1_sz4Y, !wild6_sAl0 = <{<=#}> n#_sz5m 0 in if wild6_sAl0 (let !ww1_sAl6 = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$76 dec_sz5y) sc_sz50 in select ww1_sAl6 (<{GHC.Tuple.(,)}> ww2_sz5U ww3_sz5V -> GHC.Float.$j ww2_sz5U ww3_sz5V)) (let xs4_sz5u = GHC.Float.$w$sformatRealFloat$198 sc_sz50 xs4_sz5u, !sat_sAjF_sAjF = xs4_sz5u n#_sz5m, !ww1_sAl4 = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$75 dec_sz5y) sat_sAjF_sAjF in select ww1_sAl4 (<{GHC.Tuple.(,)}> ww2_sz5J ww3_sz5K -> GHC.Float.$j ww2_sz5J ww3_sz5K)) GHC.Float.$j ww_sz1U ww1_sz1Z = select ww_sz1U (GHC.Types.I# x_sz1X -> let !wild1_sAiu = <{>#}> x_sz1X 0 in if wild1_sAiu (let !wild2_sAix = GHC.Base.map GHC.Show.intToDigit ww1_sz1Z in select wild2_sAix (<{GHC.Types.[]}> -> GHC.Float.lvl26) (<{GHC.Types.:}> d_sz29 <{ds'_sz2a}> -> <{GHC.Tuple.(,)}> d_sz29 <{ds'_sz2a}>)) (let !wild2_sAiw = GHC.Base.map GHC.Show.intToDigit (<{GHC.Types.:}> GHC.Float.minExpt ww1_sz1Z) in select wild2_sAiw (<{GHC.Types.[]}> -> GHC.Float.lvl26) (<{GHC.Types.:}> d_sz24 <{ds'_sz25}> -> <{GHC.Tuple.(,)}> d_sz24 <{ds'_sz25}>))) GHC.Float.lvl26 =: Control.Exception.Base.irrefutPatError "libraries/base/GHC/Float.lhs:632:11-64|d : ds\'" GHC.Float.$w$sformatRealFloat$75 dec_sz5y = select dec_sz5y (GHC.Types.I# x1_sz5B -> let !wild8_sAl3 = <{<=#}> x1_sz5B 0 in if wild8_sAl3 GHC.Float.minExpt dec_sz5y) GHC.Float.$w$sformatRealFloat$198 sc_sz50 xs4_sz5u m_sz5s = let !wild7_sAl2 = <{<=#}> m_sz5s 1 in if wild7_sAl2 (<{GHC.Types.:}> GHC.Float.minExpt sc_sz50) (<{GHC.Types.:}> GHC.Float.minExpt (GHC.Float.$w$sformatRealFloat$312 m_sz5s xs4_sz5u)) GHC.Float.$w$sformatRealFloat$312 m_sz5s xs4_sz5u = let !sat_sz5w_sz5w = <{-#}> m_sz5s 1 in xs4_sz5u sat_sz5w_sz5w GHC.Float.$w$sformatRealFloat$76 dec_sz5y = select dec_sz5y (GHC.Types.I# x1_sz5N -> let !wild8_sAl5 = <{<=#}> x1_sz5N 0 in if wild8_sAl5 GHC.Float.minExpt dec_sz5y) GHC.Float.$w$sformatRealFloat$79 ww6_sz6y = select ww6_sz6y (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds4_sAjS ds5_sAjT -> <{GHC.Types.:}> GHC.Float.lvl20 ww6_sz6y) GHC.Float.$w$sformatRealFloat$78 ww6_sz6y = select ww6_sz6y (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds4_sAjV ds5_sAjW -> <{GHC.Types.:}> GHC.Float.lvl20 ww6_sz6y) GHC.List.$wsplitAt# w_s3Dr w1_s3Dt = select w_s3Dr (_ -> select w1_s3Dt (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> <{GHC.Types.[]}> <{GHC.Types.[]}>) (<{GHC.Types.:}> x_s3DH xs_s3DA -> let ds1_s3DG = GHC.List.$wsplitAt#$27 w_s3Dr xs_s3DA in <{GHC.Tuple.(,)}> (<{GHC.Types.:}> x_s3DH (GHC.List.$wsplitAt#$14 ds1_s3DG)) (GHC.List.$wsplitAt#$13 ds1_s3DG))) (0 -> <{GHC.Tuple.(,)}> <{GHC.Types.[]}> w1_s3Dt) GHC.List.$wsplitAt#$13 ds1_s3DG = select ds1_s3DG (<{GHC.Tuple.(,)}> <{xs'_s3OD}> <{xs''_s3DS}> -> <{xs''_s3DS}>) GHC.List.$wsplitAt#$14 ds1_s3DG = select ds1_s3DG (<{GHC.Tuple.(,)}> <{xs'_s3DL}> <{xs''_s3OC}> -> <{xs'_s3DL}>) GHC.List.$wsplitAt#$27 w_s3Dr xs_s3DA = let !sat_s3Oz_s3Oz = <{-#}> w_s3Dr 1, !ww_s3OE = GHC.List.$wsplitAt# sat_s3Oz_s3Oz xs_s3DA in select ww_s3OE (<{GHC.Tuple.(,)}> ww1_s3DE ww2_s3DF -> <{GHC.Tuple.(,)}> ww1_s3DE ww2_s3DF) GHC.Float.$w$sformatRealFloat$309 ww3_sz6r = let !wild8_sz6P = GHC.Base.map GHC.Show.intToDigit ww3_sz6r in select wild8_sz6P (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds4_sAjZ ds5_sAk0 -> <{GHC.Types.:}> GHC.Float.lvl20 wild8_sz6P) GHC.Float.$w$sformatRealFloat$77 dec_sz5y sc1_sz4Y = select dec_sz5y (GHC.Types.I# x1_sz6d -> let !wild7_sAl9 = <{<=#}> x1_sz6d 0 in if wild7_sAl9 (GHC.Types.I# sc1_sz4Y) (let !sat_sAjN_sAjN = <{+#}> x1_sz6d sc1_sz4Y in GHC.Types.I# sat_sAjN_sAjN)) GHC.Float.$wf ww_sz12 w_sz18 w1_sz14 = select ww_sz12 (_ -> select w1_sz14 (<{GHC.Types.[]}> -> let !sat_sAi4_sAi4 = <{-#}> ww_sz12 1 in GHC.Float.$s$wf sat_sAi4_sAi4 (<{GHC.Types.:}> GHC.Float.lvl24 w_sz18)) (<{GHC.Types.:}> r_sz1d rs_sz1f -> let !sat_sAi7_sAi7 = <{-#}> ww_sz12 1 in GHC.Float.$wf sat_sAi7_sAi7 (<{GHC.Types.:}> r_sz1d w_sz18) rs_sz1f)) (0 -> let !wild1_sz1q = GHC.List.reverse1 w_sz18 <{GHC.Types.[]}> in select wild1_sz1q (<{GHC.Types.[]}> -> <{GHC.Types.:}> GHC.Float.lvl24 (<{GHC.Types.:}> GHC.Float.lvl20 (GHC.Float.$wf$54 w1_sz14))) (<{GHC.Types.:}> ipv_sAic ipv1_sAid -> <{GHC.Base.++}> wild1_sz1q (<{GHC.Types.:}> GHC.Float.lvl20 (GHC.Float.$wf$55 w1_sz14)))) GHC.Float.$wf$55 w1_sz14 = select w1_sz14 (<{GHC.Types.[]}> -> GHC.Float.lvl25) (<{GHC.Types.:}> ipv2_sAie ipv3_sAif -> w1_sz14) GHC.Float.lvl25 =: <{GHC.Types.:}> GHC.Float.lvl24 <{GHC.Types.[]}> GHC.Float.$wf$54 w1_sz14 = select w1_sz14 (<{GHC.Types.[]}> -> GHC.Float.lvl25) (<{GHC.Types.:}> ipv_sAi9 ipv1_sAia -> w1_sz14) GHC.Float.$s$wf sc_sz0M sc1_sz0Q = select sc_sz0M (_ -> let !sat_sAhV_sAhV = <{-#}> sc_sz0M 1 in GHC.Float.$s$wf sat_sAhV_sAhV (<{GHC.Types.:}> GHC.Float.lvl24 sc1_sz0Q)) (0 -> let !wild1_sz0W = GHC.List.reverse1 sc1_sz0Q <{GHC.Types.[]}> in select wild1_sz0W (<{GHC.Types.[]}> -> <{GHC.Types.:}> GHC.Float.lvl24 (<{GHC.Types.:}> GHC.Float.lvl20 GHC.Float.lvl25)) (<{GHC.Types.:}> ipv_sAhY ipv1_sAhZ -> <{GHC.Base.++}> wild1_sz0W (<{GHC.Types.:}> GHC.Float.lvl20 GHC.Float.lvl25))) GHC.Float.$w$sformatRealFloat$308 sc1_sz4Y sc_sz50 = let !n#_sz53 = negateInt# sc1_sz4Y, !wild6_sAkY = <{<=#}> n#_sz53 0 in if wild6_sAkY (GHC.Base.map GHC.Show.intToDigit sc_sz50) (let xs4_sz5d = GHC.Float.$w$sformatRealFloat$197 sc_sz50 xs4_sz5d in xs4_sz5d n#_sz53) GHC.Float.$w$sformatRealFloat$197 sc_sz50 xs4_sz5d m_sz5b = let !wild7_sAkZ = <{<=#}> m_sz5b 1 in if wild7_sAkZ (<{GHC.Types.:}> GHC.Float.lvl24 (GHC.Base.map GHC.Show.intToDigit sc_sz50)) (<{GHC.Types.:}> GHC.Float.lvl24 (GHC.Float.$w$sformatRealFloat$311 m_sz5b xs4_sz5d)) GHC.Float.$w$sformatRealFloat$311 m_sz5b xs4_sz5d = let !sat_sz5f_sz5f = <{-#}> m_sz5b 1 in xs4_sz5d sat_sz5f_sz5f GHC.Float.$w$sformatRealFloat$196 $s$wdoFmt1_sz6R $s$wdoFmt_sz4T w1_sz2x w2_sz6W ww1_sz6Z ww2_sz7a = select w2_sz6W (GHC.Float.FFExponent -> select w1_sz2x (Data.Maybe.Nothing -> let !wild6_sAlf = GHC.Base.map GHC.Show.intToDigit ww1_sz6Z in select wild6_sAlf (<{GHC.Types.[]}> -> GHC.Float.lvl19) (<{GHC.Types.:}> ds4_sz73 ds5_sz77 -> select ds4_sz73 (GHC.Types.C# ds6_sz7x -> let $wfail_sz7w = GHC.Float.$w$sformatRealFloat$56 ds4_sz73 ds5_sz77 ww2_sz7a in select ds6_sz7x (_ -> $wfail_sz7w) ('0' -> select ds5_sz77 (<{GHC.Types.[]}> -> GHC.Float.lvl21) (<{GHC.Types.:}> ipv_sAjy ipv1_sAjz -> $wfail_sz7w))))) (Data.Maybe.Just dec_sz7E -> let <{dec'_sz7K}> = GHC.Float.$w$sformatRealFloat$57 dec_sz7E, ds4_sz7W = GHC.Float.$w$sformatRealFloat$313 <{dec'_sz7K}> ww1_sz6Z, ei_sz82 = GHC.Float.$w$sformatRealFloat$58 ds4_sz7W, ds5_sz8x = GHC.Float.$w$sformatRealFloat$59 ds4_sz7W ei_sz82, a_sz8O = GHC.Float.$w$sformatRealFloat$60 ds5_sz8x ei_sz82 ww2_sz7a in select ww1_sz6Z (<{GHC.Types.[]}> -> <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$61 ds5_sz8x) (<{GHC.Types.:}> GHC.Float.lvl20 a_sz8O)) (<{GHC.Types.:}> ds6_sz8Y ds7_sz99 -> select ds6_sz8Y (GHC.Types.I# ds8_sz91 -> select ds8_sz91 (_ -> <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$62 ds5_sz8x) (<{GHC.Types.:}> GHC.Float.lvl20 a_sz8O)) (0 -> select ds7_sz99 (<{GHC.Types.[]}> -> <{GHC.Types.:}> GHC.Float.lvl24 (<{GHC.Types.:}> GHC.Float.lvl20 (GHC.Float.$w$sformatRealFloat$63 <{dec'_sz7K}>))) (<{GHC.Types.:}> ipv_sAjp ipv1_sAjq -> <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$64 ds5_sz8x) (<{GHC.Types.:}> GHC.Float.lvl20 a_sz8O))))))) (GHC.Float.FFFixed -> select w1_sz2x (Data.Maybe.Nothing -> select ww2_sz7a (GHC.Types.I# x_sz9t -> let !wild7_sAlJ = <{<=#}> x_sz9t 0 in if wild7_sAlJ (GHC.CString.unpackAppendCString# "0." (GHC.Float.$w$sformatRealFloat$314 ww1_sz6Z x_sz9t)) (GHC.Float.$wf x_sz9t <{GHC.Types.[]}> (GHC.Base.map GHC.Show.intToDigit ww1_sz6Z)))) (Data.Maybe.Just dec_sza5 -> select ww2_sz7a (GHC.Types.I# x_sz9P -> let !wild7_sAlP = <{>=#}> x_sz9P 0 in if wild7_sAlP (let !ww3_sAm1 = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$70 dec_sza5 ww2_sz7a x_sz9P) ww1_sz6Z in select ww3_sAm1 (<{GHC.Tuple.(,)}> ww4_szaS ww5_szaZ -> select ww4_szaS (GHC.Types.I# y_szaW -> let !n#_szaX = <{+#}> x_sz9P y_szaW, !wild9_sAlZ = <{<#}> n#_szaX 0 in if wild9_sAlZ (<{GHC.Types.:}> GHC.Float.lvl24 (GHC.Float.$w$sformatRealFloat$315 ww5_szaZ)) (let !ww6_sAm2 = GHC.List.$wsplitAt# n#_szaX (GHC.Base.map GHC.Show.intToDigit ww5_szaZ) in select ww6_sAm2 (<{GHC.Tuple.(,)}> ww7_szb4 ww8_szb6 -> select ww7_szb4 (<{GHC.Types.[]}> -> <{GHC.Types.:}> GHC.Float.lvl24 (GHC.Float.$w$sformatRealFloat$71 ww8_szb6)) (<{GHC.Types.:}> ipv_sAiX ipv1_sAj0 -> <{GHC.Base.++}> ww7_szb4 (GHC.Float.$w$sformatRealFloat$72 ww8_szb6))))))) (let ds4_szat = GHC.Float.$w$sformatRealFloat$316 dec_sza5 ww1_sz6Z x_sz9P in <{GHC.Types.:}> (GHC.Float.$w$sformatRealFloat$67 ds4_szat) (GHC.Float.$w$sformatRealFloat$66 ds4_szat))))) (GHC.Float.FFGeneric -> select ww2_sz7a (GHC.Types.I# x_szbr -> let !wild6_sAm4 = <{<#}> x_szbr 0 in if wild6_sAm4 ($s$wdoFmt_sz4T ww1_sz6Z x_szbr) (let !wild7_sAm3 = <{>#}> x_szbr 7 in if wild7_sAm3 ($s$wdoFmt_sz4T ww1_sz6Z x_szbr) ($s$wdoFmt1_sz6R ww1_sz6Z x_szbr)))) GHC.Float.$w$sformatRealFloat$66 ds4_szat = select ds4_szat (<{GHC.Tuple.(,)}> d_sAiQ <{ds'_szaC}> -> select <{ds'_szaC}> (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds6_sAiR ds7_sAiS -> <{GHC.Types.:}> GHC.Float.lvl20 <{ds'_szaC}>)) GHC.Float.$w$sformatRealFloat$67 ds4_szat = select ds4_szat (<{GHC.Tuple.(,)}> d_szax <{ds'_sAiP}> -> d_szax) GHC.Float.$w$sformatRealFloat$316 dec_sza5 ww1_sz6Z x_sz9P = let !n#_sz9T = negateInt# x_sz9P, !wild8_sAlO = <{<=#}> n#_sz9T 0 in if wild8_sAlO (let !ww3_sAlU = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$69 dec_sza5) ww1_sz6Z in select ww3_sAlU (<{GHC.Tuple.(,)}> ww4_szar ww5_szas -> GHC.Float.$j ww4_szar ww5_szas)) (let xs4_sza1 = GHC.Float.$w$sformatRealFloat$200 ww1_sz6Z xs4_sza1, !sat_sAiL_sAiL = xs4_sza1 n#_sz9T, !ww3_sAlS = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$68 dec_sza5) sat_sAiL_sAiL in select ww3_sAlS (<{GHC.Tuple.(,)}> ww4_szag ww5_szah -> GHC.Float.$j ww4_szag ww5_szah)) GHC.Float.$w$sformatRealFloat$68 dec_sza5 = select dec_sza5 (GHC.Types.I# x1_sza8 -> let !wild10_sAlR = <{<=#}> x1_sza8 0 in if wild10_sAlR GHC.Float.minExpt dec_sza5) GHC.Float.$w$sformatRealFloat$200 ww1_sz6Z xs4_sza1 m_sz9Z = let !wild9_sAlQ = <{<=#}> m_sz9Z 1 in if wild9_sAlQ (<{GHC.Types.:}> GHC.Float.minExpt ww1_sz6Z) (<{GHC.Types.:}> GHC.Float.minExpt (GHC.Float.$w$sformatRealFloat$318 m_sz9Z xs4_sza1)) GHC.Float.$w$sformatRealFloat$318 m_sz9Z xs4_sza1 = let !sat_sza3_sza3 = <{-#}> m_sz9Z 1 in xs4_sza1 sat_sza3_sza3 GHC.Float.$w$sformatRealFloat$69 dec_sza5 = select dec_sza5 (GHC.Types.I# x1_szak -> let !wild10_sAlT = <{<=#}> x1_szak 0 in if wild10_sAlT GHC.Float.minExpt dec_sza5) GHC.Float.$w$sformatRealFloat$72 ww8_szb6 = select ww8_szb6 (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds4_sAiY ds5_sAiZ -> <{GHC.Types.:}> GHC.Float.lvl20 ww8_szb6) GHC.Float.$w$sformatRealFloat$71 ww8_szb6 = select ww8_szb6 (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds4_sAj1 ds5_sAj2 -> <{GHC.Types.:}> GHC.Float.lvl20 ww8_szb6) GHC.Float.$w$sformatRealFloat$315 ww5_szaZ = let !wild10_szbn = GHC.Base.map GHC.Show.intToDigit ww5_szaZ in select wild10_szbn (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> ds4_sAj5 ds5_sAj6 -> <{GHC.Types.:}> GHC.Float.lvl20 wild10_szbn) GHC.Float.$w$sformatRealFloat$70 dec_sza5 ww2_sz7a x_sz9P = select dec_sza5 (GHC.Types.I# x1_szaK -> let !wild9_sAlX = <{<=#}> x1_szaK 0 in if wild9_sAlX ww2_sz7a (let !sat_sAiT_sAiT = <{+#}> x1_szaK x_sz9P in GHC.Types.I# sat_sAiT_sAiT)) GHC.Float.$w$sformatRealFloat$314 ww1_sz6Z x_sz9t = let !n#_sz9x = negateInt# x_sz9t, !wild8_sAlM = <{<=#}> n#_sz9x 0 in if wild8_sAlM (GHC.Base.map GHC.Show.intToDigit ww1_sz6Z) (let xs4_sz9H = GHC.Float.$w$sformatRealFloat$199 ww1_sz6Z xs4_sz9H in xs4_sz9H n#_sz9x) GHC.Float.$w$sformatRealFloat$199 ww1_sz6Z xs4_sz9H m_sz9F = let !wild9_sAlN = <{<=#}> m_sz9F 1 in if wild9_sAlN (<{GHC.Types.:}> GHC.Float.lvl24 (GHC.Base.map GHC.Show.intToDigit ww1_sz6Z)) (<{GHC.Types.:}> GHC.Float.lvl24 (GHC.Float.$w$sformatRealFloat$317 m_sz9F xs4_sz9H)) GHC.Float.$w$sformatRealFloat$317 m_sz9F xs4_sz9H = let !sat_sz9J_sz9J = <{-#}> m_sz9F 1 in xs4_sz9H sat_sz9J_sz9J GHC.Float.$w$sformatRealFloat$64 ds5_sz8x = select ds5_sz8x (<{GHC.Tuple.(,)}> d_sz9n <{ds'_sAjo}> -> d_sz9n) GHC.Float.$w$sformatRealFloat$63 <{dec'_sz7K}> = select <{dec'_sz7K}> (GHC.Types.I# n#_sz9d -> let !wild10_sAlF = <{<=#}> n#_sz9d 0 in if wild10_sAlF GHC.Float.nil (GHC.Float.go GHC.Float.xs1 n#_sz9d)) GHC.Float.$w$sformatRealFloat$62 ds5_sz8x = select ds5_sz8x (<{GHC.Tuple.(,)}> d_sz96 <{ds'_sAjk}> -> d_sz96) GHC.Float.$w$sformatRealFloat$61 ds5_sz8x = select ds5_sz8x (<{GHC.Tuple.(,)}> d_sz8T <{ds'_sAjh}> -> d_sz8T) GHC.Float.$w$sformatRealFloat$60 ds5_sz8x ei_sz82 ww2_sz7a = select ds5_sz8x (<{GHC.Tuple.(,)}> d_sAjr <{ds'_sz8C}> -> <{GHC.Base.++}> <{ds'_sz8C}> (<{GHC.Types.:}> GHC.Float.lvl23 (GHC.Float.$w$sformatRealFloat$92 ei_sz82 ww2_sz7a))) GHC.Float.$w$sformatRealFloat$92 ei_sz82 ww2_sz7a = select ww2_sz7a (GHC.Types.I# x_sz8H -> select ei_sz82 (GHC.Types.I# y_sz8J -> let !sat_sAjd_sAjd = <{-#}> x_sz8H 1, !sat_sAjc_sAjc = <{+#}> sat_sAjd_sAjd y_sz8J in GHC.Show.itos sat_sAjc_sAjc <{GHC.Types.[]}>)) GHC.Float.$w$sformatRealFloat$59 ds4_sz7W ei_sz82 = select ei_sz82 (GHC.Types.I# x_sz86 -> let !wild7_sAls = <{>#}> x_sz86 0 in if wild7_sAls (select ds4_sz7W (<{GHC.Tuple.(,)}> ei1_sAjs <{is'_sz8k}> -> select <{is'_sz8k}> (<{GHC.Types.[]}> -> GHC.List.init2) (<{GHC.Types.:}> x1_sz8p xs4_sz8q -> let !sat_sAjt_sAjt = GHC.List.init1 x1_sz8p xs4_sz8q, !wild10_sAlw = GHC.Base.map GHC.Show.intToDigit sat_sAjt_sAjt in select wild10_sAlw (<{GHC.Types.[]}> -> GHC.Float.lvl22) (<{GHC.Types.:}> d_sz8v <{ds'_sz8w}> -> <{GHC.Tuple.(,)}> d_sz8v <{ds'_sz8w}>)))) (select ds4_sz7W (<{GHC.Tuple.(,)}> ei1_sAju <{is'_sz8b}> -> let !wild9_sAlq = GHC.Base.map GHC.Show.intToDigit <{is'_sz8b}> in select wild9_sAlq (<{GHC.Types.[]}> -> GHC.Float.lvl22) (<{GHC.Types.:}> d_sz8f <{ds'_sz8g}> -> <{GHC.Tuple.(,)}> d_sz8f <{ds'_sz8g}>)))) GHC.Float.$w$sformatRealFloat$58 ds4_sz7W = select ds4_sz7W (<{GHC.Tuple.(,)}> ei1_sz81 <{is'_sAjv}> -> ei1_sz81) GHC.Float.$w$sformatRealFloat$313 <{dec'_sz7K}> ww1_sz6Z = let !ww3_sAlo = GHC.Float.$wroundTo GHC.Float.base (GHC.Float.$w$sformatRealFloat$65 <{dec'_sz7K}>) ww1_sz6Z in select ww3_sAlo (<{GHC.Tuple.(,)}> ww4_sz7U ww5_sz7V -> <{GHC.Tuple.(,)}> ww4_sz7U ww5_sz7V) GHC.Float.$w$sformatRealFloat$65 <{dec'_sz7K}> = select <{dec'_sz7K}> (GHC.Types.I# x_sz7O -> let !sat_sAja_sAja = <{+#}> x_sz7O 1 in GHC.Types.I# sat_sAja_sAja) GHC.Float.$w$sformatRealFloat$57 dec_sz7E = select dec_sz7E (GHC.Types.I# x1_sz7H -> let !wild7_sAlm = <{<=#}> x1_sz7H 1 in if wild7_sAlm GHC.Float.$fRealFracFloat2 dec_sz7E) GHC.Float.$w$sformatRealFloat$56 ds4_sz73 ds5_sz77 ww2_sz7a = select ds5_sz77 (<{GHC.Types.[]}> -> <{GHC.Types.:}> ds4_sz73 (GHC.CString.unpackAppendCString# ".0e" (GHC.Float.$w$sformatRealFloat$90 ww2_sz7a))) (<{GHC.Types.:}> ipv_sAjC ipv1_sAjD -> <{GHC.Types.:}> ds4_sz73 (<{GHC.Types.:}> GHC.Float.lvl20 (<{GHC.Base.++}> ds5_sz77 (<{GHC.Types.:}> GHC.Float.lvl23 (GHC.Float.$w$sformatRealFloat$91 ww2_sz7a))))) GHC.Float.$w$sformatRealFloat$91 ww2_sz7a = select ww2_sz7a (GHC.Types.I# x_sz7n -> let !sat_sAjA_sAjA = <{-#}> x_sz7n 1 in GHC.Show.itos sat_sAjA_sAjA <{GHC.Types.[]}>) GHC.Float.$w$sformatRealFloat$90 ww2_sz7a = select ww2_sz7a (GHC.Types.I# x_sz7d -> let !sat_sAjw_sAjw = <{-#}> x_sz7d 1 in GHC.Show.$wshowSignedInt 0 sat_sAjw_sAjw <{GHC.Types.[]}>) GHC.Float.lvl27 =: GHC.CString.unpackCString# "Infinity" GHC.Float.lvl28 =: GHC.CString.unpackCString# "-Infinity" GHC.Float.lvl29 =: GHC.CString.unpackCString# "NaN" :: GHC.Types.Double = GHC.Types.D# a1 GHC.Float.$w$sshowSignedFloat w_syEa w1_syEg ww_syE8 = let $w$j2_syEz = GHC.Float.$w$sshowSignedFloat$19 (GHC.Float.$w$sshowSignedFloat$267 w_syEa ww_syE8) w1_syEg, !wild_sA8I = <{<##}> ww_syE8 0.0 in if wild_sA8I $w$j2_syEz (let !wild1_sA8H = ffi_wrapper3 isDoubleNegativeZero ww_syE8 GHC.Prim.realWorld# in select wild1_sA8H (<{GHC.Tuple.(,)}> ds_sA8B ds1_syEG -> select ds1_syEG (_ -> $w$j2_syEz) (0 -> w_syEa (GHC.Types.D# ww_syE8)))) GHC.Float.$w$sshowSignedFloat$267 w_syEa ww_syE8 = let !sat_syEb_syEb = negateDouble# ww_syE8 in w_syEa (GHC.Types.D# sat_syEb_syEb) GHC.Float.$w$sshowSignedFloat$19 g_syEe w1_syEg = select w1_syEg (GHC.Types.I# x_syEj -> let !wild1_sA8E = <{>#}> x_syEj 6 in if wild1_sA8E (GHC.Float.$w$sshowSignedFloat$182 g_syEe) (GHC.Float.$w$sshowSignedFloat$181 g_syEe)) GHC.Float.$w$sshowSignedFloat$181 g_syEe x1_syEm = <{GHC.Types.:}> GHC.Float.$fShowDouble4 (g_syEe x1_syEm) GHC.Float.$w$sshowSignedFloat$182 g_syEe x1_syEr = <{GHC.Types.:}> GHC.Show.shows11 (<{GHC.Types.:}> GHC.Float.$fShowDouble4 (g_syEe (<{GHC.Types.:}> GHC.Show.shows10 x1_syEr))) :: <{MainGenGui.ABCD'}> = <{MainGenGui.A'}> a1 | <{MainGenGui.B'}> a1 | <{MainGenGui.C'}> a1 a2 | <{MainGenGui.D'}> a1 MainGenGui.$w$cshowsPrec$44 p_s1ivr x6_s1ivu = <{GHC.Types.:}> GHC.Show.shows11 (p_s1ivr (<{GHC.Types.:}> GHC.Show.shows10 x6_s1ivu)) MainGenGui.$w$cshowsPrec$43 b1_s1iv0 b2_s1iv4 x6_s1ivh = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'7}> (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'6}> (MainGenGui.$w$cshowsPrec$15 b1_s1iv0 b2_s1iv4 x6_s1ivh)) MainGenGui.$w$cshowsPrec$15 b1_s1iv0 b2_s1iv4 x6_s1ivh = select b1_s1iv0 (GHC.Types.I# ww1_s1iv3 -> GHC.Show.itos ww1_s1iv3 (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'4}> (MainGenGui.$w$cshowsPrec$17 b2_s1iv4 x6_s1ivh)))) MainGenGui.$w$cshowsPrec$17 b2_s1iv4 x6_s1ivh = select b2_s1iv4 (GHC.Ptr.Ptr ds2_s1iv8 -> let !wild1_s1iOV = ffi_wrapper3 jsFromString ds2_s1iv8 GHC.Prim.realWorld# in select wild1_s1iOV (<{GHC.Tuple.(,)}> ds3_s1iOU ds4_s1ivd -> let !wild2_s1iOT = GHC.Ptr.Ptr ds4_s1ivd in select wild2_s1iOT (Javascript.Base.Types.FakePtr val_s1ivg -> <{GHC.Base.++}> val_s1ivg (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1ivh)))) <{MainGenGui.$fShowABCD'9}> =: GHC.Types.C# '}' <{MainGenGui.$fShowABCD'4}> =: GHC.CString.unpackCString# "c\'s = " <{MainGenGui.$fShowABCD'5}> =: GHC.CString.unpackCString# ", " <{MainGenGui.$fShowABCD'6}> =: GHC.CString.unpackCString# "c\'i = " <{MainGenGui.$fShowABCD'7}> =: GHC.CString.unpackCString# "C\' {" MainGenGui.$w$cshowsPrec$41 g_s1iuG x6_s1iuJ = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'8}> (g_s1iuG x6_s1iuJ) <{MainGenGui.$fShowABCD'8}> =: GHC.CString.unpackCString# "B\' {" MainGenGui.$w$cshowsPrec$42 g_s1iuG x6_s1iuO = <{GHC.Types.:}> GHC.Show.shows11 (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'8}> (g_s1iuG (<{GHC.Types.:}> GHC.Show.shows10 x6_s1iuO))) MainGenGui.$w$cshowsPrec$40 b1_s1iuq x6_s1iuD = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'10}> (MainGenGui.$w$cshowsPrec$14 b1_s1iuq x6_s1iuD) MainGenGui.$w$cshowsPrec$14 b1_s1iuq x6_s1iuD = select b1_s1iuq (GHC.Ptr.Ptr ds2_s1iuu -> let !wild1_s1iOM = ffi_wrapper3 jsFromString ds2_s1iuu GHC.Prim.realWorld# in select wild1_s1iOM (<{GHC.Tuple.(,)}> ds3_s1iOL ds4_s1iuz -> let !wild2_s1iOK = GHC.Ptr.Ptr ds4_s1iuz in select wild2_s1iOK (Javascript.Base.Types.FakePtr val_s1iuC -> <{GHC.Base.++}> val_s1iuC (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1iuD)))) <{MainGenGui.$fShowABCD'10}> =: GHC.CString.unpackCString# "b\'s = " MainGenGui.$w$cshowsPrec$39 p_s1iud x6_s1iuh = <{GHC.Types.:}> GHC.Show.shows11 (p_s1iud (<{GHC.Types.:}> GHC.Show.shows10 x6_s1iuh)) MainGenGui.$w$cshowsPrec$38 b1_s1itY x6_s1iub = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'11}> (MainGenGui.$w$cshowsPrec$13 b1_s1itY x6_s1iub) MainGenGui.$w$cshowsPrec$13 b1_s1itY x6_s1iub = select b1_s1itY (GHC.Ptr.Ptr ds2_s1iu2 -> let !wild1_s1iOC = ffi_wrapper3 jsFromString ds2_s1iu2 GHC.Prim.realWorld# in select wild1_s1iOC (<{GHC.Tuple.(,)}> ds3_s1iOB ds4_s1iu7 -> let !wild2_s1iOA = GHC.Ptr.Ptr ds4_s1iu7 in select wild2_s1iOA (Javascript.Base.Types.FakePtr val_s1iua -> <{GHC.Base.++}> val_s1iua x6_s1iub))) <{MainGenGui.$fShowABCD'11}> =: GHC.CString.unpackCString# "A\' " MainGenGui.$w$cshowsPrec2$47 f_s1iwd ww1_s1iwg ww2_s1iwt x6_s1iwG = <{GHC.Base.++}> <{MainGenGui.$fShowTest'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowTest'4}> (MainGenGui.$w$cshowsPrec2$18 f_s1iwd ww1_s1iwg ww2_s1iwt x6_s1iwG)) MainGenGui.$w$cshowsPrec2$18 f_s1iwd ww1_s1iwg ww2_s1iwt x6_s1iwG = select ww1_s1iwg (GHC.Ptr.Ptr ds2_s1iwk -> let !wild_s1iPo = ffi_wrapper3 jsFromString ds2_s1iwk GHC.Prim.realWorld# in select wild_s1iPo (<{GHC.Tuple.(,)}> ds3_s1iPi ds4_s1iwp -> let !wild1_s1iPn = GHC.Ptr.Ptr ds4_s1iwp in select wild1_s1iPn (Javascript.Base.Types.FakePtr val_s1iws -> <{GHC.Base.++}> val_s1iws (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowTest'3}> (MainGenGui.$w$cshowsPrec2$19 f_s1iwd ww2_s1iwt x6_s1iwG)))))) MainGenGui.$w$cshowsPrec2$19 f_s1iwd ww2_s1iwt x6_s1iwG = select ww2_s1iwt (GHC.Ptr.Ptr ds6_s1iwx -> let !wild2_s1iPl = ffi_wrapper3 jsFromString ds6_s1iwx GHC.Prim.realWorld# in select wild2_s1iPl (<{GHC.Tuple.(,)}> ds7_s1iPj ds8_s1iwC -> let !wild3_s1iPk = GHC.Ptr.Ptr ds8_s1iwC in select wild3_s1iPk (Javascript.Base.Types.FakePtr val1_s1iwF -> <{GHC.Base.++}> val1_s1iwF (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowTest'2}> (f_s1iwd (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1iwG))))))) <{MainGenGui.$fShowTest'2}> =: GHC.CString.unpackCString# "abcd\' = " <{MainGenGui.$fShowTest'3}> =: GHC.CString.unpackCString# "description\' = " <{MainGenGui.$fShowTest'4}> =: GHC.CString.unpackCString# "label\' = " <{MainGenGui.$fShowTest'5}> =: GHC.CString.unpackCString# "Test\' {" :: <{MainGenGui.Test'}> = <{MainGenGui.Test'}> a1 a2 a3 GHC.Show.$fShowMaybe1 =: GHC.CString.unpackCString# "Just " GHC.Show.$fShowMaybe2 =: GHC.CString.unpackCString# "Nothing" MainGenGui.lvl20 =: GHC.CString.unpackCString# "output2:" FRP.Fursuit.Signal.removableSink1 act_s2R6 sig_s2Qr eta_s2Qs = let !ds1_s2VW = FRP.Fursuit.Signal.compile1 sig_s2Qr eta_s2Qs in select ds1_s2VW (<{GHC.Tuple.(,)}> ipv_s2Qz ipv1_s2QR -> select FRP.Fursuit.Signal.sinkIDs (GHC.STRef.STRef var#_s2Qy -> let !ds2_s2VU = readMutVar# var#_s2Qy ipv_s2Qz in select ds2_s2VU (<{GHC.Tuple.(,)}> ipv2_s2QK ipv3_s2QD -> select ipv3_s2QD (GHC.Types.I# x_s2QG -> let !sat_s2QI_s2QI = <{+#}> x_s2QG 1, !s2#_s2Ru = writeMutVar# var#_s2Qy (GHC.Types.I# sat_s2QI_s2QI) ipv2_s2QK, srcs_s2QN = FRP.Fursuit.Signal.sources sig_s2Qr, a1_s2Rt = FRP.Fursuit.Signal.removableSink1$17 a1_s2Rt (FRP.Fursuit.Signal.removableSink1$16 act_s2R6 ipv1_s2QR) x_s2QG, !ds3_s2W5 = a1_s2Rt srcs_s2QN s2#_s2Ru in select ds3_s2W5 (<{GHC.Tuple.(,)}> ipv4_s2Ry ipv5_s2VR -> let a2_s2RU = FRP.Fursuit.Signal.removableSink1$18 a2_s2RU x_s2QG in <{GHC.Tuple.(,)}> ipv4_s2Ry (FRP.Fursuit.Signal.removableSink1$19 a2_s2RU srcs_s2QN)))))) FRP.Fursuit.Signal.removableSink1$19 a2_s2RU srcs_s2QN eta_B1_B1 = a2_s2RU srcs_s2QN eta_B1_B1 FRP.Fursuit.Signal.removableSink1$18 a2_s2RU x_s2QG ds_s2RC eta1_s2RE = select ds_s2RC (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta1_s2RE <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s2RH ys_s2RS -> select y_s2RH (GHC.STRef.STRef var#1_s2RK -> let !ds4_s2W6 = readMutVar# var#1_s2RK eta1_s2RE in select ds4_s2W6 (<{GHC.Tuple.(,)}> ipv6_s2RQ ipv7_s2RO -> let !s2#1_s2RT = writeMutVar# var#1_s2RK (Data.IntMap.Base.$wdelete x_s2QG ipv7_s2RO) ipv6_s2RQ in a2_s2RU ys_s2RS s2#1_s2RT))) Data.IntMap.Base.$wdelete ww_sDeX w_sDeO = select w_sDeO (Data.IntMap.Base.Bin rb_sDf6 rb1_sDeV l_sDfd r_sDfb -> let !a_sDeW = int2Word# rb1_sDeV, !sat_sFKe_sFKe = minusWord# a_sDeW 1, !sat_sFKd_sFKd = xor# sat_sFKe_sFKe 18446744073709551615, !sat_sDf2_sDf2 = xor# sat_sFKd_sFKd a_sDeW, !sat_sFKc_sFKc = int2Word# ww_sDeX, !sat_sDf4_sDf4 = and# sat_sFKc_sFKc sat_sDf2_sDf2, !sat_sFKb_sFKb = word2Int# sat_sDf4_sDf4, !wild1_sFKg = <{/=#}> sat_sFKb_sFKb rb_sDf6 in if wild1_sFKg w_sDeO (let !sat_sFKa_sFKa = int2Word# ww_sDeX, !sat_sFK9_sFK9 = and# sat_sFKa_sFKa a_sDeW, !wild2_sFKf = eqWord# sat_sFK9_sFK9 0 in if wild2_sFKf (select r_sDfb (_ -> let !wild4_sDfj = Data.IntMap.Base.$wdelete ww_sDeX l_sDfd in select wild4_sDfj (_ -> Data.IntMap.Base.Bin rb_sDf6 rb1_sDeV wild4_sDfj r_sDfb) (Data.IntMap.Base.Nil -> r_sDfb)) (Data.IntMap.Base.Nil -> Data.IntMap.Base.$wdelete ww_sDeX l_sDfd)) (let !wild3_sDfg = Data.IntMap.Base.$wdelete ww_sDeX r_sDfb in select wild3_sDfg (_ -> select l_sDfd (_ -> Data.IntMap.Base.Bin rb_sDf6 rb1_sDeV l_sDfd wild3_sDfg) (Data.IntMap.Base.Nil -> wild3_sDfg)) (Data.IntMap.Base.Nil -> l_sDfd)))) (Data.IntMap.Base.Tip rb_sDfo ds_sFKi -> let !wild1_sFKh = <{==#}> ww_sDeX rb_sDfo in if wild1_sFKh Data.IntMap.Base.Nil w_sDeO) (Data.IntMap.Base.Nil -> Data.IntMap.Base.Nil) :: Data.IntMap.Base.IntMap = Data.IntMap.Base.Bin a1 a2 a3 a4 | Data.IntMap.Base.Tip a1 a2 | Data.IntMap.Base.Nil :: GHC.STRef.STRef = GHC.STRef.STRef a1 FRP.Fursuit.Signal.removableSink1$16 act_s2R6 ipv1_s2QR s_s2QQ = let !ds3_s2VY = ipv1_s2QR s_s2QQ in select ds3_s2VY (<{GHC.Tuple.(,)}> ipv4_s2QX ipv5_s2QV -> select ipv5_s2QV (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv4_s2QX <{GHC.Tuple.()}>) (Data.Maybe.Just ds_s2QZ -> select ds_s2QZ (<{GHC.Tuple.(,)}> val_s2R5 actuallyHappened_s2R3 -> if actuallyHappened_s2R3 (act_s2R6 val_s2R5 ipv4_s2QX) (<{GHC.Tuple.(,)}> ipv4_s2QX <{GHC.Tuple.()}>)))) FRP.Fursuit.Signal.removableSink1$17 a1_s2Rt a_s2R7 x_s2QG ds_s2Rb eta1_s2Rd = select ds_s2Rb (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta1_s2Rd <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s2Rg ys_s2Rr -> select y_s2Rg (GHC.STRef.STRef var#1_s2Rj -> let !ds3_s2W2 = readMutVar# var#1_s2Rj eta1_s2Rd in select ds3_s2W2 (<{GHC.Tuple.(,)}> ipv4_s2Rp ipv5_s2Rn -> let !s2#1_s2Rs = writeMutVar# var#1_s2Rj (Data.IntMap.Base.$winsert x_s2QG a_s2R7 ipv5_s2Rn) ipv4_s2Rp in a1_s2Rt ys_s2Rr s2#1_s2Rs))) Data.IntMap.Base.$winsert ww_sF4z w_sF4N w1_sF4q = select w1_sF4q (Data.IntMap.Base.Bin rb_sF4I rb1_sF4x l_sF4Q r_sF4O -> let !a_sF4y = int2Word# rb1_sF4x, !sat_sGi8_sGi8 = minusWord# a_sF4y 1, !sat_sGi7_sGi7 = xor# sat_sGi8_sGi8 18446744073709551615, !sat_sF4E_sF4E = xor# sat_sGi7_sGi7 a_sF4y, !sat_sGi6_sGi6 = int2Word# ww_sF4z, !sat_sF4G_sF4G = and# sat_sGi6_sGi6 sat_sF4E_sF4E, !sat_sGi5_sGi5 = word2Int# sat_sF4G_sF4G, !wild1_sGia = <{/=#}> sat_sGi5_sGi5 rb_sF4I in if wild1_sGia (let !sat_sF4Z_sF4Z = int2Word# rb_sF4I, !sat_sF50_sF50 = int2Word# ww_sF4z, !x_sF4X = xor# sat_sF50_sF50 sat_sF4Z_sF4Z, !sat_sF54_sF54 = uncheckedShiftRL# x_sF4X 1, !x1_sF52 = or# x_sF4X sat_sF54_sF54, !sat_sF58_sF58 = uncheckedShiftRL# x1_sF52 2, !x2_sF56 = or# x1_sF52 sat_sF58_sF58, !sat_sF5c_sF5c = uncheckedShiftRL# x2_sF56 4, !x3_sF5a = or# x2_sF56 sat_sF5c_sF5c, !sat_sF5g_sF5g = uncheckedShiftRL# x3_sF5a 8, !x4_sF5e = or# x3_sF5a sat_sF5g_sF5g, !sat_sF5k_sF5k = uncheckedShiftRL# x4_sF5e 16, !x5_sF5i = or# x4_sF5e sat_sF5k_sF5k, !sat_sF5o_sF5o = uncheckedShiftRL# x5_sF5i 1, !a1_sF5m = xor# x5_sF5i sat_sF5o_sF5o, !sat_sGii_sGii = int2Word# ww_sF4z, !sat_sGih_sGih = and# sat_sGii_sGii a1_sF5m, !wild2_sGij = eqWord# sat_sGih_sGih 0 in if wild2_sGij (let !sat_sGil_sGil = word2Int# a1_sF5m, !sat_sGip_sGip = minusWord# a1_sF5m 1, !sat_sGio_sGio = xor# sat_sGip_sGip 18446744073709551615, !sat_sF5G_sF5G = xor# sat_sGio_sGio a1_sF5m, !sat_sGin_sGin = int2Word# ww_sF4z, !sat_sF5I_sF5I = and# sat_sGin_sGin sat_sF5G_sF5G, !sat_sGim_sGim = word2Int# sat_sF5I_sF5I in Data.IntMap.Base.Bin sat_sGim_sGim sat_sGil_sGil (Data.IntMap.Base.Tip ww_sF4z w_sF4N) w1_sF4q) (let !sat_sGic_sGic = word2Int# a1_sF5m, !sat_sGig_sGig = minusWord# a1_sF5m 1, !sat_sGif_sGif = xor# sat_sGig_sGig 18446744073709551615, !sat_sF5v_sF5v = xor# sat_sGif_sGif a1_sF5m, !sat_sGie_sGie = int2Word# ww_sF4z, !sat_sF5x_sF5x = and# sat_sGie_sGie sat_sF5v_sF5v, !sat_sGid_sGid = word2Int# sat_sF5x_sF5x in Data.IntMap.Base.Bin sat_sGid_sGid sat_sGic_sGic w1_sF4q (Data.IntMap.Base.Tip ww_sF4z w_sF4N))) (let !sat_sGi4_sGi4 = int2Word# ww_sF4z, !sat_sGi3_sGi3 = and# sat_sGi4_sGi4 a_sF4y, !wild2_sGi9 = eqWord# sat_sGi3_sGi3 0 in if wild2_sGi9 (let !tpl_sF4T = Data.IntMap.Base.$winsert ww_sF4z w_sF4N l_sF4Q in Data.IntMap.Base.Bin rb_sF4I rb1_sF4x tpl_sF4T r_sF4O) (let !tpl_sF4R = Data.IntMap.Base.$winsert ww_sF4z w_sF4N r_sF4O in Data.IntMap.Base.Bin rb_sF4I rb1_sF4x l_sF4Q tpl_sF4R))) (Data.IntMap.Base.Tip rb_sF5O ds_sGiA -> let !wild1_sGiz = <{==#}> ww_sF4z rb_sF5O in if wild1_sGiz (Data.IntMap.Base.Tip ww_sF4z w_sF4N) (let !sat_sF5V_sF5V = int2Word# rb_sF5O, !sat_sF5W_sF5W = int2Word# ww_sF4z, !x_sF5T = xor# sat_sF5W_sF5W sat_sF5V_sF5V, !sat_sF60_sF60 = uncheckedShiftRL# x_sF5T 1, !x1_sF5Y = or# x_sF5T sat_sF60_sF60, !sat_sF64_sF64 = uncheckedShiftRL# x1_sF5Y 2, !x2_sF62 = or# x1_sF5Y sat_sF64_sF64, !sat_sF68_sF68 = uncheckedShiftRL# x2_sF62 4, !x3_sF66 = or# x2_sF62 sat_sF68_sF68, !sat_sF6c_sF6c = uncheckedShiftRL# x3_sF66 8, !x4_sF6a = or# x3_sF66 sat_sF6c_sF6c, !sat_sF6g_sF6g = uncheckedShiftRL# x4_sF6a 16, !x5_sF6e = or# x4_sF6a sat_sF6g_sF6g, !sat_sF6k_sF6k = uncheckedShiftRL# x5_sF6e 1, !a_sF6i = xor# x5_sF6e sat_sF6k_sF6k, !sat_sGix_sGix = int2Word# ww_sF4z, !sat_sGiw_sGiw = and# sat_sGix_sGix a_sF6i, !wild2_sGiy = eqWord# sat_sGiw_sGiw 0 in if wild2_sGiy (let !sat_sGiC_sGiC = word2Int# a_sF6i, !sat_sGiG_sGiG = minusWord# a_sF6i 1, !sat_sGiF_sGiF = xor# sat_sGiG_sGiG 18446744073709551615, !sat_sF6B_sF6B = xor# sat_sGiF_sGiF a_sF6i, !sat_sGiE_sGiE = int2Word# ww_sF4z, !sat_sF6D_sF6D = and# sat_sGiE_sGiE sat_sF6B_sF6B, !sat_sGiD_sGiD = word2Int# sat_sF6D_sF6D in Data.IntMap.Base.Bin sat_sGiD_sGiD sat_sGiC_sGiC (Data.IntMap.Base.Tip ww_sF4z w_sF4N) w1_sF4q) (let !sat_sGir_sGir = word2Int# a_sF6i, !sat_sGiv_sGiv = minusWord# a_sF6i 1, !sat_sGiu_sGiu = xor# sat_sGiv_sGiv 18446744073709551615, !sat_sF6r_sF6r = xor# sat_sGiu_sGiu a_sF6i, !sat_sGit_sGit = int2Word# ww_sF4z, !sat_sF6t_sF6t = and# sat_sGit_sGit sat_sF6r_sF6r, !sat_sGis_sGis = word2Int# sat_sF6t_sF6t in Data.IntMap.Base.Bin sat_sGis_sGis sat_sGir_sGir w1_sF4q (Data.IntMap.Base.Tip ww_sF4z w_sF4N)))) (Data.IntMap.Base.Nil -> Data.IntMap.Base.Tip ww_sF4z w_sF4N) FRP.Fursuit.Signal.sources ds_s2IA = select ds_s2IA (FRP.Fursuit.Signal.App f_s2IE x_s2IG -> let !sat_s2Sl_s2Sl = FRP.Fursuit.Signal.sources f_s2IE in <{GHC.Base.++}> sat_s2Sl_s2Sl (FRP.Fursuit.Signal.sources x_s2IG)) (FRP.Fursuit.Signal.Pure ds1_s2Sn -> <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Pipe ds1_s2So src_s2IM ds2_s2Sp -> <{GHC.Types.:}> src_s2IM <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Filter ds1_s2Sq s_s2IP -> FRP.Fursuit.Signal.sources s_s2IP) (FRP.Fursuit.Signal.Accum ds1_s2Sr s_s2IS -> FRP.Fursuit.Signal.sources s_s2IS) (FRP.Fursuit.Signal.New s_s2IU -> FRP.Fursuit.Signal.sources s_s2IU) (FRP.Fursuit.Signal.Union a_s2IX b_s2IZ -> let !sat_s2St_s2St = FRP.Fursuit.Signal.sources a_s2IX in <{GHC.Base.++}> sat_s2St_s2St (FRP.Fursuit.Signal.sources b_s2IZ)) :: FRP.Fursuit.Signal.Signal = FRP.Fursuit.Signal.App a1 a2 | FRP.Fursuit.Signal.Pure a1 | FRP.Fursuit.Signal.Pipe a1 a2 a3 | FRP.Fursuit.Signal.Filter a1 a2 | FRP.Fursuit.Signal.Accum a1 a2 | FRP.Fursuit.Signal.New a1 | FRP.Fursuit.Signal.Union a1 a2 FRP.Fursuit.Signal.sinkIDs =: GHC.IO.unsafeDupablePerformIO FRP.Fursuit.Signal.lvl1 FRP.Fursuit.Signal.lvl1 s_s2Ju = let !<{s'_s2Jw}> = noDuplicate# s_s2Ju, !ds_s2TF = newMutVar# FRP.Fursuit.Signal.lvl <{s'_s2Jw}> in select ds_s2TF (<{GHC.Tuple.(,)}> ipv_s2JA ipv1_s2JB -> <{GHC.Tuple.(,)}> ipv_s2JA (GHC.STRef.STRef ipv1_s2JB)) FRP.Fursuit.Signal.lvl =: GHC.Types.I# 0 FRP.Fursuit.Signal.compile1 ds_s2Ks eta_s2Kx = select ds_s2Ks (FRP.Fursuit.Signal.App sf_s2Kw sx_s2KB -> let !ds1_s2Uh = FRP.Fursuit.Signal.compile1 sf_s2Kw eta_s2Kx in select ds1_s2Uh (<{GHC.Tuple.(,)}> ipv_s2KC ipv1_s2KJ -> let !ds2_s2Ug = FRP.Fursuit.Signal.compile1 sx_s2KB ipv_s2KC in select ds2_s2Ug (<{GHC.Tuple.(,)}> ipv2_s2KG ipv3_s2KO -> <{GHC.Tuple.(,)}> ipv2_s2KG (FRP.Fursuit.Signal.compile1$10 ipv1_s2KJ ipv3_s2KO)))) (FRP.Fursuit.Signal.Pure x_s2Lm -> <{GHC.Tuple.(,)}> eta_s2Kx (FRP.Fursuit.Signal.compile1$11 x_s2Lm)) (FRP.Fursuit.Signal.Pipe value_s2Lv ds1_s2Ux origin_s2LD -> <{GHC.Tuple.(,)}> eta_s2Kx (FRP.Fursuit.Signal.compile1$12 origin_s2LD value_s2Lv)) (FRP.Fursuit.Signal.Filter predicate_s2Ms s_s2LW -> let !ds1_s2UG = FRP.Fursuit.Signal.compile1 s_s2LW eta_s2Kx in select ds1_s2UG (<{GHC.Tuple.(,)}> ipv_s2M0 ipv1_s2M1 -> let !ds2_s2UF = ipv1_s2M1 ipv_s2M0 in select ds2_s2UF (<{GHC.Tuple.(,)}> ipv2_s2N3 ipv3_s2N1 -> select ipv3_s2N1 (Data.Maybe.Nothing -> let !ds3_s2US = newMutVar# Data.Maybe.Nothing ipv2_s2N3 in select ds3_s2US (<{GHC.Tuple.(,)}> ipv4_s2N7 ipv5_s2N8 -> FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW ipv4_s2N7 GHC.Prim.coercionToken# ipv5_s2N8)) (Data.Maybe.Just ds3_s2Na -> select ds3_s2Na (<{GHC.Tuple.(,)}> initial_s2Ne ds4_s2UA -> let !wild3_s2UV = predicate_s2Ms initial_s2Ne in if wild3_s2UV (let !ds5_s2UX = newMutVar# (Data.Maybe.Just initial_s2Ne) ipv2_s2N3 in select ds5_s2UX (<{GHC.Tuple.(,)}> ipv4_s2Np ipv5_s2Nq -> FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW ipv4_s2Np GHC.Prim.coercionToken# ipv5_s2Nq)) (let !ds5_s2UU = newMutVar# Data.Maybe.Nothing ipv2_s2N3 in select ds5_s2UU (<{GHC.Tuple.(,)}> ipv4_s2Nj ipv5_s2Nk -> FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW ipv4_s2Nj GHC.Prim.coercionToken# ipv5_s2Nk))))))) (FRP.Fursuit.Signal.Accum initially_s2Nx s_s2Nt -> let !ds1_s2V4 = FRP.Fursuit.Signal.compile1 s_s2Nt eta_s2Kx in select ds1_s2V4 (<{GHC.Tuple.(,)}> ipv_s2Ny ipv1_s2NF -> let !ds2_s2V3 = newMutVar# initially_s2Nx ipv_s2Ny in select ds2_s2V3 (<{GHC.Tuple.(,)}> ipv2_s2NC ipv3_s2NL -> <{GHC.Tuple.(,)}> ipv2_s2NC (FRP.Fursuit.Signal.compile1$13 ipv1_s2NF ipv3_s2NL)))) (FRP.Fursuit.Signal.New signal_s2Op -> FRP.Fursuit.Signal.compile1 signal_s2Op eta_s2Kx) (FRP.Fursuit.Signal.Union a_s2Os b_s2Ow -> let !ds1_s2Vr = FRP.Fursuit.Signal.compile1 a_s2Os eta_s2Kx in select ds1_s2Vr (<{GHC.Tuple.(,)}> ipv_s2Ox ipv1_s2OC -> let !ds2_s2Vq = FRP.Fursuit.Signal.compile1 b_s2Ow ipv_s2Ox in select ds2_s2Vq (<{GHC.Tuple.(,)}> ipv2_s2OB ipv3_s2OQ -> let !ds3_s2Vp = ipv1_s2OC ipv2_s2OB in select ds3_s2Vp (<{GHC.Tuple.(,)}> ipv4_s2Pr ipv5_s2Pp -> select ipv5_s2Pp (Data.Maybe.Nothing -> let !ds4_s2Vw = ipv3_s2OQ ipv4_s2Pr in select ds4_s2Vw (<{GHC.Tuple.(,)}> ipv6_s2Px ipv7_s2Pv -> select ipv7_s2Pv (Data.Maybe.Nothing -> let !ds5_s2Vu = newMutVar# Data.Maybe.Nothing ipv6_s2Px in select ds5_s2Vu (<{GHC.Tuple.(,)}> ipv8_s2PB ipv9_s2PC -> FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ ipv8_s2PB GHC.Prim.coercionToken# ipv9_s2PC)) (Data.Maybe.Just ds5_s2PE -> select ds5_s2PE (<{GHC.Tuple.(,)}> x_s2PI ds6_s2Vl -> let !ds7_s2Vz = newMutVar# (Data.Maybe.Just x_s2PI) ipv6_s2Px in select ds7_s2Vz (<{GHC.Tuple.(,)}> ipv8_s2PN ipv9_s2PO -> FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ ipv8_s2PN GHC.Prim.coercionToken# ipv9_s2PO))))) (Data.Maybe.Just ds4_s2PQ -> select ds4_s2PQ (<{GHC.Tuple.(,)}> x_s2PU ds5_s2Vj -> let !ds6_s2VB = newMutVar# (Data.Maybe.Just x_s2PU) ipv4_s2Pr in select ds6_s2VB (<{GHC.Tuple.(,)}> ipv6_s2PZ ipv7_s2Q0 -> FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ ipv6_s2PZ GHC.Prim.coercionToken# ipv7_s2Q0))))))) GHC.Prim.coercionToken# =: "coercionToken#" FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ sc_s2OJ sg_s2DK sc1_s2OU = <{GHC.Tuple.(,)}> sc_s2OJ (FRP.Fursuit.Signal.compile1$15 ipv1_s2OC ipv3_s2OQ sc1_s2OU) FRP.Fursuit.Signal.compile1$15 ipv1_s2OC ipv3_s2OQ sc1_s2OU s_s2OL = let !ds4_s2Vo = ipv1_s2OC s_s2OL in select ds4_s2Vo (<{GHC.Tuple.(,)}> ipv6_s2OP ipv7_s2OZ -> let !ds5_s2Vn = ipv3_s2OQ ipv6_s2OP in select ds5_s2Vn (<{GHC.Tuple.(,)}> ipv8_s2OV ipv9_s2P0 -> let !ds6_s2Vm = readMutVar# sc1_s2OU ipv8_s2OV in select ds6_s2Vm (<{GHC.Tuple.(,)}> ipv10_s2P7 ipv11_s2P8 -> let !sat_s2Vc_s2Vc = Data.Maybe.catMaybes1 (<{GHC.Types.:}> ipv7_s2OZ (<{GHC.Types.:}> ipv9_s2P0 <{GHC.Types.[]}>)), !wild1_s2Vt = GHC.List.filter Data.Tuple.snd sat_s2Vc_s2Vc in select wild1_s2Vt (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ipv10_s2P7 (FRP.Fursuit.Signal.compile1$6 ipv11_s2P8)) (<{GHC.Types.:}> a1_s2Pg ds7_s2Vf -> let !s2#_s2Pl = writeMutVar# sc1_s2OU (Data.Maybe.Just (Data.Tuple.fst a1_s2Pg)) ipv10_s2P7 in <{GHC.Tuple.(,)}> s2#_s2Pl (Data.Maybe.Just a1_s2Pg))))) Data.Tuple.fst ds_s8a = select ds_s8a (<{GHC.Tuple.(,)}> x_s8e ds1_s8H -> x_s8e) FRP.Fursuit.Signal.compile1$6 ipv11_s2P8 = select ipv11_s2P8 (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a1_s2Pb -> Data.Maybe.Just (<{GHC.Tuple.(,)}> a1_s2Pb false)) Data.Tuple.snd ds_s84 = select ds_s84 (<{GHC.Tuple.(,)}> ds1_s8A y_s88 -> y_s88) GHC.List.filter _pred_s3KQ ds_s3KL = select ds_s3KL (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> x_s3KP xs_s3KS -> let !wild1_s3R2 = _pred_s3KQ x_s3KP in if wild1_s3R2 (<{GHC.Types.:}> x_s3KP (GHC.List.filter _pred_s3KQ xs_s3KS)) (GHC.List.filter _pred_s3KQ xs_s3KS)) Data.Maybe.catMaybes1 ds_s1ge = select ds_s1ge (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> y_s1gi ys_s1gk -> select y_s1gi (Data.Maybe.Nothing -> Data.Maybe.catMaybes1 ys_s1gk) (Data.Maybe.Just x_s1gm -> <{GHC.Types.:}> x_s1gm (Data.Maybe.catMaybes1 ys_s1gk))) FRP.Fursuit.Signal.compile1$13 ipv1_s2NF ipv3_s2NL s1_s2NE = let !ds3_s2V2 = ipv1_s2NF s1_s2NE in select ds3_s2V2 (<{GHC.Tuple.(,)}> ipv4_s2NM ipv5_s2NJ -> select ipv5_s2NJ (Data.Maybe.Nothing -> let !ds4_s2V0 = readMutVar# ipv3_s2NL ipv4_s2NM in select ds4_s2V0 (<{GHC.Tuple.(,)}> ipv6_s2NQ ipv7_s2NR -> <{GHC.Tuple.(,)}> ipv6_s2NQ (Data.Maybe.Just (<{GHC.Tuple.(,)}> ipv7_s2NR false)))) (Data.Maybe.Just ds4_s2NW -> select ds4_s2NW (<{GHC.Tuple.(,)}> f_s2Oe orig_s2O0 -> if orig_s2O0 (let !ds5_s2Va = readMutVar# ipv3_s2NL ipv4_s2NM in select ds5_s2Va (<{GHC.Tuple.(,)}> ipv6_s2Oh ipv7_s2Od -> let !x_s2Og = f_s2Oe ipv7_s2Od, !s2#_s2Oj = writeMutVar# ipv3_s2NL x_s2Og ipv6_s2Oh in <{GHC.Tuple.(,)}> s2#_s2Oj (Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s2Og true)))) (let !ds5_s2V6 = readMutVar# ipv3_s2NL ipv4_s2NM in select ds5_s2V6 (<{GHC.Tuple.(,)}> ipv6_s2O5 ipv7_s2O6 -> <{GHC.Tuple.(,)}> ipv6_s2O5 (Data.Maybe.Just (<{GHC.Tuple.(,)}> ipv7_s2O6 false))))))) FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW sc_s2M8 sg_s2Dr sc1_s2Mu = let !ds3_s2UE = FRP.Fursuit.Signal.compile1 s_s2LW sc_s2M8 in select ds3_s2UE (<{GHC.Tuple.(,)}> ipv4_s2Mc ipv5_s2Mf -> <{GHC.Tuple.(,)}> ipv4_s2Mc (FRP.Fursuit.Signal.compile1$14 ipv5_s2Mf predicate_s2Ms sc1_s2Mu)) FRP.Fursuit.Signal.compile1$14 ipv5_s2Mf predicate_s2Ms sc1_s2Mu s1_s2Me = let !ds4_s2UD = ipv5_s2Mf s1_s2Me in select ds4_s2UD (<{GHC.Tuple.(,)}> ipv6_s2Ml ipv7_s2Mj -> select ipv7_s2Mj (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv6_s2Ml Data.Maybe.Nothing) (Data.Maybe.Just ds5_s2Mn -> select ds5_s2Mn (<{GHC.Tuple.(,)}> val_s2Mr orig_s2MG -> let !wild3_s2UJ = predicate_s2Ms val_s2Mr in if wild3_s2UJ (if orig_s2MG (let !s2#_s2MV = writeMutVar# sc1_s2Mu (Data.Maybe.Just val_s2Mr) ipv6_s2Ml in <{GHC.Tuple.(,)}> s2#_s2MV (Data.Maybe.Just (<{GHC.Tuple.(,)}> val_s2Mr true))) (let !ds6_s2UN = readMutVar# sc1_s2Mu ipv6_s2Ml in select ds6_s2UN (<{GHC.Tuple.(,)}> ipv8_s2MN ipv9_s2ML -> select ipv9_s2ML (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv8_s2MN Data.Maybe.Nothing) (Data.Maybe.Just lastVal_s2MP -> <{GHC.Tuple.(,)}> ipv8_s2MN (Data.Maybe.Just (<{GHC.Tuple.(,)}> lastVal_s2MP false)))))) (let !ds6_s2UI = readMutVar# sc1_s2Mu ipv6_s2Ml in select ds6_s2UI (<{GHC.Tuple.(,)}> ipv8_s2MA ipv9_s2My -> select ipv9_s2My (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv8_s2MA Data.Maybe.Nothing) (Data.Maybe.Just lastVal_s2MC -> <{GHC.Tuple.(,)}> ipv8_s2MA (Data.Maybe.Just (<{GHC.Tuple.(,)}> lastVal_s2MC false)))))))) FRP.Fursuit.Signal.compile1$12 origin_s2LD value_s2Lv s_s2Lz = select value_s2Lv (GHC.STRef.STRef var#_s2Ly -> let !ds2_s2Uv = readMutVar# var#_s2Ly s_s2Lz in select ds2_s2Uv (<{GHC.Tuple.(,)}> ipv_s2LH ipv1_s2LM -> select origin_s2LD (GHC.STRef.STRef var#1_s2LG -> let !ds3_s2Ut = readMutVar# var#1_s2LG ipv_s2LH in select ds3_s2Ut (<{GHC.Tuple.(,)}> ipv2_s2LL ipv3_s2LQ -> <{GHC.Tuple.(,)}> ipv2_s2LL (FRP.Fursuit.Signal.compile1$4 ipv1_s2LM ipv3_s2LQ))))) FRP.Fursuit.Signal.compile1$4 ipv1_s2LM ipv3_s2LQ = select ipv1_s2LM (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x_s2LP -> Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s2LP ipv3_s2LQ)) FRP.Fursuit.Signal.compile1$11 x_s2Lm s_s2Ll = <{GHC.Tuple.(,)}> s_s2Ll (Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s2Lm false)) FRP.Fursuit.Signal.compile1$10 ipv1_s2KJ ipv3_s2KO s_s2KI = let !ds3_s2Uf = ipv1_s2KJ s_s2KI in select ds3_s2Uf (<{GHC.Tuple.(,)}> ipv4_s2KN ipv5_s2KT -> let !ds4_s2Ue = ipv3_s2KO ipv4_s2KN in select ds4_s2Ue (<{GHC.Tuple.(,)}> ipv6_s2KS ipv7_s2L0 -> <{GHC.Tuple.(,)}> ipv6_s2KS (FRP.Fursuit.Signal.compile1$3 ipv5_s2KT ipv7_s2L0))) FRP.Fursuit.Signal.compile1$3 ipv5_s2KT ipv7_s2L0 = select ipv5_s2KT (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x_s2KW -> select x_s2KW (<{GHC.Tuple.(,)}> f_s2L8 origf_s2La -> select ipv7_s2L0 (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x1_s2L3 -> select x1_s2L3 (<{GHC.Tuple.(,)}> x2_s2L7 origx_s2Lc -> Data.Maybe.Just (<{GHC.Tuple.(,)}> (f_s2L8 x2_s2L7) (FRP.Fursuit.Signal.compile1$5 origf_s2La origx_s2Lc)))))) FRP.Fursuit.Signal.compile1$5 origf_s2La origx_s2Lc = if origf_s2La true origx_s2Lc Gui.Generic.Types.signal ds_s9uc = select ds_s9uc (Gui.Generic.Types.Input ds1_s9ug ds2_s9Af -> ds1_s9ug) :: Gui.Generic.Types.Input = Gui.Generic.Types.Input a1 a2 MainGenGui.a2 x6_s1iz2 eta_s1izh = let !sat_s1iQB_s1iQB = <{GHC.Base.++}> MainGenGui.lvl19 (MainGenGui.a2$20 x6_s1iz2) in Javascript.Utils.dumpString1 sat_s1iQB_s1iQB eta_s1izh MainGenGui.a2$20 x6_s1iz2 = select x6_s1iz2 (Data.Maybe.Nothing -> GHC.Show.$fShowMaybe2) (Data.Maybe.Just x7_s1iz5 -> <{GHC.Base.++}> GHC.Show.$fShowMaybe1 (MainGenGui.a2$21 x7_s1iz5)) MainGenGui.a2$21 x7_s1iz5 = select x7_s1iz5 (MainGenGui.Test ww_s1iza ww1_s1izb ww2_s1izc -> MainGenGui.$w$cshowsPrec1 11 ww_s1iza ww1_s1izb ww2_s1izc <{GHC.Types.[]}>) MainGenGui.$w$cshowsPrec1 ww_s1itb ww1_s1isq ww2_s1isD ww3_s1isQ w_s1itd = let p_s1ita = MainGenGui.$w$cshowsPrec1$37 ww1_s1isq ww2_s1isD ww3_s1isQ, !wild_s1iOf = <{>=#}> ww_s1itb 11 in if wild_s1iOf (<{GHC.Types.:}> GHC.Show.shows11 (p_s1ita (<{GHC.Types.:}> GHC.Show.shows10 w_s1itd))) (p_s1ita w_s1itd) MainGenGui.$w$cshowsPrec1$37 ww1_s1isq ww2_s1isD ww3_s1isQ x6_s1isS = <{GHC.Base.++}> MainGenGui.$fShowTest5 (<{GHC.Base.++}> MainGenGui.$fShowTest4 (MainGenGui.$w$cshowsPrec1$10 ww1_s1isq ww2_s1isD ww3_s1isQ x6_s1isS)) MainGenGui.$w$cshowsPrec1$10 ww1_s1isq ww2_s1isD ww3_s1isQ x6_s1isS = select ww1_s1isq (GHC.Ptr.Ptr ds2_s1isu -> let !wild_s1iOa = ffi_wrapper3 jsFromString ds2_s1isu GHC.Prim.realWorld# in select wild_s1iOa (<{GHC.Tuple.(,)}> ds3_s1iO9 ds4_s1isz -> let !wild1_s1iO8 = GHC.Ptr.Ptr ds4_s1isz in select wild1_s1iO8 (Javascript.Base.Types.FakePtr val_s1isC -> <{GHC.Base.++}> val_s1isC (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> MainGenGui.$fShowTest3 (MainGenGui.$w$cshowsPrec1$11 ww2_s1isD ww3_s1isQ x6_s1isS)))))) MainGenGui.$w$cshowsPrec1$11 ww2_s1isD ww3_s1isQ x6_s1isS = select ww2_s1isD (GHC.Ptr.Ptr ds6_s1isH -> let !wild2_s1iO6 = ffi_wrapper3 jsFromString ds6_s1isH GHC.Prim.realWorld# in select wild2_s1iO6 (<{GHC.Tuple.(,)}> ds7_s1iO5 ds8_s1isM -> let !wild3_s1iO4 = GHC.Ptr.Ptr ds8_s1isM in select wild3_s1iO4 (Javascript.Base.Types.FakePtr val1_s1isP -> <{GHC.Base.++}> val1_s1isP (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> MainGenGui.$fShowTest2 (MainGenGui.$w$cshowsPrec1$12 ww3_s1isQ x6_s1isS)))))) MainGenGui.$w$cshowsPrec1$12 ww3_s1isQ x6_s1isS = select ww3_s1isQ (MainGenGui.A -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD4 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS)) (MainGenGui.B -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD6 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS)) (MainGenGui.C -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD8 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS)) (MainGenGui.D -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD10 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS)) MainGenGui.$fConstructorABCD10 =: GHC.Types.C# 'D' :: MainGenGui.ABCD = MainGenGui.A | MainGenGui.B | MainGenGui.C | MainGenGui.D MainGenGui.$fConstructorABCD8 =: GHC.Types.C# 'C' MainGenGui.$fConstructorABCD6 =: GHC.Types.C# 'B' MainGenGui.$fConstructorABCD4 =: GHC.Types.C# 'A' MainGenGui.$fShowTest2 =: GHC.CString.unpackCString# "abcd = " MainGenGui.$fShowTest3 =: GHC.CString.unpackCString# "description = " MainGenGui.$fShowTest4 =: GHC.CString.unpackCString# "label = " MainGenGui.$fShowTest5 =: GHC.CString.unpackCString# "Test {" :: MainGenGui.Test = MainGenGui.Test a1 a2 a3 MainGenGui.lvl19 =: GHC.CString.unpackCString# "output1:" Gui.Generic.Types.elems ds_s9u6 = select ds_s9u6 (Gui.Generic.Types.Input ds1_s9Aa ds2_s9ua -> ds2_s9ua) MainGenGui.main2$54 a10_s1iF1 ds8_s1iBb ds36_s1iEL eta3_s1iEN = select ds36_s1iEL (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s1iEN <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1iEQ ys_s1iEZ -> select y_s1iEQ (GHC.Ptr.Ptr ds38_s1iEU -> let !wild16_s1iSR = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds38_s1iEU ds8_s1iBb eta3_s1iEN in select wild16_s1iSR (<{GHC.Tuple.(,)}> ds39_s1iF0 ds40_s1iRA -> a10_s1iF1 ys_s1iEZ ds39_s1iF0))) MainGenGui.main2$26 ipv26_s1iEC = select ipv26_s1iEC (<{GHC.Tuple.(,)}> a10_s1iEG <{s'4_s1iRI}> -> a10_s1iEG) MainGenGui.main2$53 a9_s1iEv ds8_s1iBb ds35_s1iEf eta3_s1iEh = select ds35_s1iEf (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s1iEh <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1iEk ys_s1iEt -> select y_s1iEk (GHC.Ptr.Ptr ds37_s1iEo -> let !wild16_s1iSM = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds37_s1iEo ds8_s1iBb eta3_s1iEh in select wild16_s1iSM (<{GHC.Tuple.(,)}> ds38_s1iEu ds39_s1iRG -> a9_s1iEv ys_s1iEt ds38_s1iEu))) MainGenGui.main2$25 ipv24_s1iDy = select ipv24_s1iDy (<{GHC.Tuple.(,)}> a9_s1iEa <{s'4_s1iRM}> -> a9_s1iEa) MainGenGui.lvl18 =: Data.Maybe.Just MainGenGui.lvl17 MainGenGui.lvl17 =: <{MainGenGui.Test'}> MainGenGui.lvl13 MainGenGui.lvl14 MainGenGui.lvl16 MainGenGui.lvl16 =: <{MainGenGui.D'}> MainGenGui.lvl15 MainGenGui.lvl15 =: GHC.Types.D# 5.5 MainGenGui.lvl14 =: let !ds_s1iQu = Javascript.Base.Types.FakePtr MainGenGui.x3 in select ds_s1iQu (GHC.Ptr.Ptr ds1_s1iyU -> let !tpl_s1iQt = MainGenGui.x3, !wild_s1iQs = ffi_wrapper3 jsToString ds1_s1iyU GHC.Prim.realWorld# in select wild_s1iQs (<{GHC.Tuple.(,)}> ds2_s1iQr ds3_s1iyZ -> GHC.Ptr.Ptr ds3_s1iyZ)) MainGenGui.x3 =: GHC.CString.unpackCString# "xdef" MainGenGui.lvl13 =: let !ds_s1iQp = Javascript.Base.Types.FakePtr MainGenGui.x2 in select ds_s1iQp (GHC.Ptr.Ptr ds1_s1iyK -> let !tpl_s1iQo = MainGenGui.x2, !wild_s1iQn = ffi_wrapper3 jsToString ds1_s1iyK GHC.Prim.realWorld# in select wild_s1iQn (<{GHC.Tuple.(,)}> ds2_s1iQm ds3_s1iyP -> GHC.Ptr.Ptr ds3_s1iyP)) MainGenGui.x2 =: GHC.CString.unpackCString# "xabc" FRP.Fursuit.Pipe.$wa1 ww_s3NO ww1_s3NT ww2_s3NL w_s3NJ w1_s3NM = let !x_s3NP = w_s3NJ, !s2#_s3NR = writeMutVar# ww2_s3NL true w1_s3NM, !s2#1_s3NU = writeMutVar# ww_s3NO (Data.Maybe.Just x_s3NP) s2#_s3NR, !ds1_s3QL = readMutVar# ww1_s3NT s2#1_s3NU in select ds1_s3QL (<{GHC.Tuple.(,)}> ipv_s3O1 ipv1_s3NY -> select ipv1_s3NY (_ -> let !ds2_s3QK = FRP.Fursuit.Pipe.write2 FRP.Fursuit.Pipe.trigger3 ipv1_s3NY ipv_s3O1 in select ds2_s3QK (<{GHC.Tuple.(,)}> ipv2_s3O5 ipv3_s3QJ -> let !s2#2_s3O7 = writeMutVar# ww2_s3NL false ipv2_s3O5 in <{GHC.Tuple.(,)}> s2#2_s3O7 <{GHC.Tuple.()}>)) (Data.IntMap.Base.Bin rb_s3QG rb1_s3Oc l_s3Oe r_s3Og -> let !wild1_s3QM = <{<#}> rb1_s3Oc 0 in if wild1_s3QM (let !ds2_s3QO = FRP.Fursuit.Pipe.write2 (FRP.Fursuit.Pipe.$wa1$6 r_s3Og) l_s3Oe ipv_s3O1 in select ds2_s3QO (<{GHC.Tuple.(,)}> ipv2_s3Or ipv3_s3QI -> let !s2#2_s3Ot = writeMutVar# ww2_s3NL false ipv2_s3Or in <{GHC.Tuple.(,)}> s2#2_s3Ot <{GHC.Tuple.()}>)) (let !ds2_s3QN = FRP.Fursuit.Pipe.write2 (FRP.Fursuit.Pipe.$wa1$5 l_s3Oe) r_s3Og ipv_s3O1 in select ds2_s3QN (<{GHC.Tuple.(,)}> ipv2_s3Ok ipv3_s3QF -> let !s2#2_s3Om = writeMutVar# ww2_s3NL false ipv2_s3Ok in <{GHC.Tuple.(,)}> s2#2_s3Om <{GHC.Tuple.()}>)))) FRP.Fursuit.Pipe.$wa1$5 l_s3Oe eta_B1_B1 = FRP.Fursuit.Pipe.write2 FRP.Fursuit.Pipe.trigger3 l_s3Oe eta_B1_B1 FRP.Fursuit.Pipe.trigger3 s_s3Lv = <{GHC.Tuple.(,)}> s_s3Lv <{GHC.Tuple.()}> FRP.Fursuit.Pipe.write2 arg_s3Nk ds_s3Nm eta_s3Nw = let !nt_s3Ns = arg_s3Nk in select ds_s3Nm (Data.IntMap.Base.Bin rb_s3Qv rb1_s3Qw l_s3Nt r_s3Nv -> FRP.Fursuit.Pipe.write2 (FRP.Fursuit.Pipe.write2$4 l_s3Nt nt_s3Ns) r_s3Nv eta_s3Nw) (Data.IntMap.Base.Tip rb_s3QA x_s3ND -> let !ds1_s3Qz = nt_s3Ns eta_s3Nw in select ds1_s3Qz (<{GHC.Tuple.(,)}> ipv_s3NC ipv1_s3Qy -> x_s3ND ipv_s3NC)) (Data.IntMap.Base.Nil -> nt_s3Ns eta_s3Nw) FRP.Fursuit.Pipe.write2$4 l_s3Nt nt_s3Ns eta_B1_B1 = FRP.Fursuit.Pipe.write2 nt_s3Ns l_s3Nt eta_B1_B1 FRP.Fursuit.Pipe.$wa1$6 r_s3Og eta_B1_B1 = FRP.Fursuit.Pipe.write2 FRP.Fursuit.Pipe.trigger3 r_s3Og eta_B1_B1 MainGenGui.lvl12 =: Data.Maybe.Just MainGenGui.lvl11 MainGenGui.lvl11 =: MainGenGui.Test MainGenGui.lvl9 MainGenGui.lvl10 MainGenGui.C MainGenGui.lvl10 =: let !ds_s1iQi = Javascript.Base.Types.FakePtr MainGenGui.x3 in select ds_s1iQi (GHC.Ptr.Ptr ds1_s1iyA -> let !tpl_s1iQh = MainGenGui.x3, !wild_s1iQg = ffi_wrapper3 jsToString ds1_s1iyA GHC.Prim.realWorld# in select wild_s1iQg (<{GHC.Tuple.(,)}> ds2_s1iQf ds3_s1iyF -> GHC.Ptr.Ptr ds3_s1iyF)) MainGenGui.lvl9 =: let !ds_s1iQc = Javascript.Base.Types.FakePtr MainGenGui.x2 in select ds_s1iQc (GHC.Ptr.Ptr ds1_s1iyq -> let !tpl_s1iQb = MainGenGui.x2, !wild_s1iQa = ffi_wrapper3 jsToString ds1_s1iyq GHC.Prim.realWorld# in select wild_s1iQa (<{GHC.Tuple.(,)}> ds2_s1iQ9 ds3_s1iyv -> GHC.Ptr.Ptr ds3_s1iyv)) MainGenGui.main2$24 ipv24_s1iDy = select ipv24_s1iDy (<{GHC.Tuple.(,)}> a9_s1iRQ <{s'4_s1iDC}> -> <{s'4_s1iDC}>) Control.Monad.IO.Class.$fMonadIOIO =: <{Control.Monad.IO.Class.D:MonadIO}> GHC.Base.$fMonadIO GHC.Base.id GHC.Base.id x_s2ao = x_s2ao GHC.Base.$fMonadIO =: <{GHC.Base.D:Monad}> GHC.Base.bindIO1 <{GHC.Base.$fMonadIO_$c>>}> GHC.Base.returnIO1 GHC.Base.$fMonadIO_$cfail GHC.Base.$fMonadIO_$cfail s_s2cB = GHC.IO.failIO s_s2cB GHC.IO.failIO eta_B2_B2 eta_B1_B1 = GHC.IO.a2 eta_B2_B2 eta_B1_B1 GHC.IO.a2 s_s1tW eta_s1u0 = raiseIO# (GHC.IO.lvl (GHC.IO.Exception.userError s_s1tW)) eta_s1u0 GHC.IO.Exception.userError str_s6TO = GHC.IO.Exception.IOError Data.Maybe.Nothing GHC.IO.Exception.UserError <{GHC.Types.[]}> str_s6TO Data.Maybe.Nothing Data.Maybe.Nothing :: GHC.IO.Exception.IOErrorType = GHC.IO.Exception.AlreadyExists | GHC.IO.Exception.NoSuchThing | GHC.IO.Exception.ResourceBusy | GHC.IO.Exception.ResourceExhausted | GHC.IO.Exception.EOF | GHC.IO.Exception.IllegalOperation | GHC.IO.Exception.PermissionDenied | GHC.IO.Exception.UserError | GHC.IO.Exception.UnsatisfiedConstraints | GHC.IO.Exception.SystemError | GHC.IO.Exception.ProtocolError | GHC.IO.Exception.OtherError | GHC.IO.Exception.InvalidArgument | GHC.IO.Exception.InappropriateType | GHC.IO.Exception.HardwareFault | GHC.IO.Exception.UnsupportedOperation | GHC.IO.Exception.TimeExpired | GHC.IO.Exception.ResourceVanished | GHC.IO.Exception.Interrupted :: GHC.IO.Exception.IOException = GHC.IO.Exception.IOError a1 a2 a3 a4 a5 a6 GHC.IO.lvl =: GHC.Exception.toException GHC.IO.Exception.$fxExceptionIOException GHC.IO.Exception.$fxExceptionIOException =: GHC.IO.Exception.$fExceptionIOException GHC.IO.Exception.$fExceptionIOException =: <{GHC.Exception.D:Exception}> GHC.IO.Exception.$fExceptionIOException_$ctypeOf GHC.IO.Exception.$fShowIOException GHC.IO.Exception.$fExceptionIOException_$ctoException GHC.IO.Exception.$fExceptionIOException_$cfromException GHC.IO.Exception.$fExceptionIOException_$cfromException ds_s79j = select ds_s79j (GHC.Exception.SomeException $dException1_s79n e_s79p -> let !sat_s7i8_s7i8 = GHC.Exception.$p1Exception $dException1_s79n in Data.Typeable.cast sat_s7i8_s7i8 GHC.IO.Exception.$fExceptionIOException_$ctypeOf e_s79p) GHC.IO.Exception.$fExceptionIOException_$ctypeOf ds_s79h = GHC.IO.Exception.$fExceptionIOException1 GHC.IO.Exception.$fExceptionIOException1 =: Data.Typeable.Internal.TypeRep (ghcsapl_num64# -241344014 1685460941) (ghcsapl_num64# -601376313 -1787550655) GHC.IO.Exception.$fExceptionIOException_wild <{GHC.Types.[]}> GHC.IO.Exception.$fExceptionIOException_wild =: Data.Typeable.Internal.TyCon (ghcsapl_num64# -241344014 1685460941) (ghcsapl_num64# -601376313 -1787550655) GHC.IO.Exception.$fExceptionArrayException_ds GHC.IO.Exception.$fExceptionArrayException_ds1 GHC.IO.Exception.$fExceptionIOException_ds2 GHC.IO.Exception.$fExceptionIOException_ds2 =: GHC.CString.unpackCString# "IOException" GHC.IO.Exception.$fExceptionArrayException_ds1 =: GHC.CString.unpackCString# "GHC.IO.Exception" GHC.IO.Exception.$fExceptionArrayException_ds =: GHC.CString.unpackCString# "base" GHC.IO.Exception.$fExceptionIOException_$ctoException eta_B1_B1 = GHC.Exception.SomeException GHC.IO.Exception.$fExceptionIOException eta_B1_B1 GHC.IO.Exception.$fShowIOException =: <{GHC.Show.D:Show}> GHC.IO.Exception.$fShowIOException_$cshowsPrec GHC.IO.Exception.$fShowIOException_$cshow GHC.IO.Exception.$fShowIOException_$cshowList GHC.IO.Exception.$fShowIOException_$cshowList ls_s6YL s_s6YM = GHC.Show.showList__ GHC.IO.Exception.$w$cshowsPrec1 ls_s6YL s_s6YM GHC.IO.Exception.$w$cshowsPrec1 w_s6XI w1_s6XV = select w_s6XI (GHC.IO.Exception.IOError hdl_s6Ye iot_s6XS loc_s6Y5 s_s6XT ds_s7cC fn_s6Yc -> let a1_s6Yb = GHC.IO.Exception.$w$cshowsPrec1$22 iot_s6XS loc_s6Y5 s_s6XT w1_s6XV in select fn_s6Yc (Data.Maybe.Nothing -> select hdl_s6Ye (Data.Maybe.Nothing -> a1_s6Yb) (Data.Maybe.Just h_s6Yh -> select h_s6Yh (GHC.IO.Handle.Types.FileHandle file_s6Yl rb_s7cA -> <{GHC.Base.++}> GHC.IO.Handle.Types.showHandle2 (<{GHC.Base.++}> file_s6Yl (<{GHC.Types.:}> GHC.IO.Handle.Types.showHandle1 (<{GHC.Base.++}> GHC.IO.Exception.$fShowArrayException2 a1_s6Yb)))) (GHC.IO.Handle.Types.DuplexHandle file_s6Yu rb_s7cy rb1_s7cz -> <{GHC.Base.++}> GHC.IO.Handle.Types.showHandle2 (<{GHC.Base.++}> file_s6Yu (<{GHC.Types.:}> GHC.IO.Handle.Types.showHandle1 (<{GHC.Base.++}> GHC.IO.Exception.$fShowArrayException2 a1_s6Yb)))))) (Data.Maybe.Just name_s6YB -> <{GHC.Base.++}> name_s6YB (<{GHC.Base.++}> GHC.IO.Exception.$fShowArrayException2 a1_s6Yb))) GHC.IO.Exception.$fShowArrayException2 =: GHC.CString.unpackCString# ": " :: GHC.IO.Handle.Types.Handle = GHC.IO.Handle.Types.FileHandle a1 a2 | GHC.IO.Handle.Types.DuplexHandle a1 a2 a3 GHC.IO.Exception.$w$cshowsPrec1$22 iot_s6XS loc_s6Y5 s_s6XT w1_s6XV = let a2_s6Y4 = GHC.IO.Exception.$w$cshowsPrec2 iot_s6XS (GHC.IO.Exception.$w$cshowsPrec1$4 s_s6XT w1_s6XV) in select loc_s6Y5 (<{GHC.Types.[]}> -> a2_s6Y4) (<{GHC.Types.:}> ipv_s7ct ipv1_s7cu -> <{GHC.Base.++}> loc_s6Y5 (<{GHC.Base.++}> GHC.IO.Exception.$fShowArrayException2 a2_s6Y4)) GHC.IO.Exception.$w$cshowsPrec1$4 s_s6XT w1_s6XV = select s_s6XT (<{GHC.Types.[]}> -> w1_s6XV) (<{GHC.Types.:}> ipv_s7cE ipv1_s7cF -> <{GHC.Base.++}> GHC.IO.Exception.$fShowIOException2 (<{GHC.Base.++}> s_s6XT (<{GHC.Types.:}> GHC.IO.Exception.$fShowIOException1 w1_s6XV))) GHC.IO.Exception.$fShowIOException1 =: GHC.Types.C# ')' GHC.IO.Exception.$fShowIOException2 =: GHC.CString.unpackCString# " (" GHC.IO.Exception.$w$cshowsPrec2 w_s6Xr w1_s6Xt = select w_s6Xr (GHC.IO.Exception.AlreadyExists -> <{GHC.Base.++}> GHC.IO.Exception.lvl w1_s6Xt) (GHC.IO.Exception.NoSuchThing -> <{GHC.Base.++}> GHC.IO.Exception.lvl1 w1_s6Xt) (GHC.IO.Exception.ResourceBusy -> <{GHC.Base.++}> GHC.IO.Exception.lvl2 w1_s6Xt) (GHC.IO.Exception.ResourceExhausted -> <{GHC.Base.++}> GHC.IO.Exception.lvl3 w1_s6Xt) (GHC.IO.Exception.EOF -> <{GHC.Base.++}> GHC.IO.Exception.lvl4 w1_s6Xt) (GHC.IO.Exception.IllegalOperation -> <{GHC.Base.++}> GHC.IO.Exception.lvl5 w1_s6Xt) (GHC.IO.Exception.PermissionDenied -> <{GHC.Base.++}> GHC.IO.Exception.lvl6 w1_s6Xt) (GHC.IO.Exception.UserError -> <{GHC.Base.++}> GHC.IO.Exception.lvl7 w1_s6Xt) (GHC.IO.Exception.UnsatisfiedConstraints -> <{GHC.Base.++}> GHC.IO.Exception.lvl8 w1_s6Xt) (GHC.IO.Exception.SystemError -> <{GHC.Base.++}> GHC.IO.Exception.lvl9 w1_s6Xt) (GHC.IO.Exception.ProtocolError -> <{GHC.Base.++}> GHC.IO.Exception.lvl10 w1_s6Xt) (GHC.IO.Exception.OtherError -> <{GHC.Base.++}> GHC.IO.Exception.lvl11 w1_s6Xt) (GHC.IO.Exception.InvalidArgument -> <{GHC.Base.++}> GHC.IO.Exception.lvl12 w1_s6Xt) (GHC.IO.Exception.InappropriateType -> <{GHC.Base.++}> GHC.IO.Exception.lvl13 w1_s6Xt) (GHC.IO.Exception.HardwareFault -> <{GHC.Base.++}> GHC.IO.Exception.lvl14 w1_s6Xt) (GHC.IO.Exception.UnsupportedOperation -> <{GHC.Base.++}> GHC.IO.Exception.lvl15 w1_s6Xt) (GHC.IO.Exception.TimeExpired -> <{GHC.Base.++}> GHC.IO.Exception.lvl16 w1_s6Xt) (GHC.IO.Exception.ResourceVanished -> <{GHC.Base.++}> GHC.IO.Exception.lvl17 w1_s6Xt) (GHC.IO.Exception.Interrupted -> <{GHC.Base.++}> GHC.IO.Exception.lvl18 w1_s6Xt) GHC.IO.Exception.lvl18 =: GHC.CString.unpackCString# "interrupted" GHC.IO.Exception.lvl17 =: GHC.CString.unpackCString# "resource vanished" GHC.IO.Exception.lvl16 =: GHC.CString.unpackCString# "timeout" GHC.IO.Exception.lvl15 =: GHC.CString.unpackCString# "unsupported operation" GHC.IO.Exception.lvl14 =: GHC.CString.unpackCString# "hardware fault" GHC.IO.Exception.lvl13 =: GHC.CString.unpackCString# "inappropriate type" GHC.IO.Exception.lvl12 =: GHC.CString.unpackCString# "invalid argument" GHC.IO.Exception.lvl11 =: GHC.CString.unpackCString# "failed" GHC.IO.Exception.lvl10 =: GHC.CString.unpackCString# "protocol error" GHC.IO.Exception.lvl9 =: GHC.CString.unpackCString# "system error" GHC.IO.Exception.lvl8 =: GHC.CString.unpackCString# "unsatisified constraints" GHC.IO.Exception.lvl7 =: GHC.CString.unpackCString# "user error" GHC.IO.Exception.lvl6 =: GHC.CString.unpackCString# "permission denied" GHC.IO.Exception.lvl5 =: GHC.CString.unpackCString# "illegal operation" GHC.IO.Exception.lvl4 =: GHC.CString.unpackCString# "end of file" GHC.IO.Exception.lvl3 =: GHC.CString.unpackCString# "resource exhausted" GHC.IO.Exception.lvl2 =: GHC.CString.unpackCString# "resource busy" GHC.IO.Exception.lvl1 =: GHC.CString.unpackCString# "does not exist" GHC.IO.Exception.lvl =: GHC.CString.unpackCString# "already exists" GHC.IO.Exception.$fShowIOException_$cshow x_s6YO = GHC.IO.Exception.$w$cshowsPrec1 x_s6YO <{GHC.Types.[]}> GHC.IO.Exception.$fShowIOException_$cshowsPrec w_s6YI w1_s6YG w2_s6YH = GHC.IO.Exception.$w$cshowsPrec1 w1_s6YG w2_s6YH GHC.Exception.toException tpl_s1Qc_s1Qc = select tpl_s1Qc_s1Qc (<{GHC.Exception.D:Exception}> tpl_s1Uj_s1Uj tpl_s1Ul_s1Ul tpl_s1Qi_s1Qi tpl_s1Um_s1Um -> tpl_s1Qi_s1Qi) GHC.Base.returnIO1 x_s2cX s_s2cW = <{GHC.Tuple.(,)}> s_s2cW x_s2cX <{GHC.Base.$fMonadIO_$c>>}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = GHC.Base.thenIO1 eta_B3_B3 eta_B2_B2 eta_B1_B1 GHC.Base.thenIO1 ds_s2cO k_s2cT s_s2cN = let !ds1_s2ik = ds_s2cO s_s2cN in select ds1_s2ik (<{GHC.Tuple.(,)}> ipv_s2cS ipv1_s2il -> k_s2cT ipv_s2cS) GHC.Base.bindIO1 ds_s2d2 k_s2d8 s_s2d1 = let !ds1_s2it = ds_s2d2 s_s2d1 in select ds1_s2it (<{GHC.Tuple.(,)}> ipv_s2d7 ipv1_s2d6 -> k_s2d8 ipv1_s2d6 ipv_s2d7) :: GHC.Base.Monad = <{GHC.Base.D:Monad}> a1 a2 a3 a4 :: Control.Monad.IO.Class.MonadIO = <{Control.Monad.IO.Class.D:MonadIO}> a1 a2 <{MainGenGui.$fToInputsTest'_$ctoInput}> $dMonadIO_s1iop eta_s1ioq = let $dMonad_s1iov = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1iop in <{MainGenGui.$fToInputsTest'_$ctoInput$36}> (Gui.Generic.Classes.$fGToInputsM11_$cgToInput <{MainGenGui.$fToInputsTest'5}> $dMonadIO_s1iop Data.Maybe.Nothing (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsTest'3}> eta_s1ioq)) (<{MainGenGui.$fToInputsTest'_$ctoInput$35}> (GHC.Base.return $dMonad_s1iov)) (<{GHC.Base.>>=}> $dMonad_s1iov) <{GHC.Base.>>=}> tpl_s26D_s26D = select tpl_s26D_s26D (<{GHC.Base.D:Monad}> tpl_s26J_s26J tpl_s2fj_s2fj tpl_s2fk_s2fk tpl_s2fl_s2fl -> tpl_s26J_s26J) GHC.Base.return tpl_s26T_s26T = select tpl_s26T_s26T (<{GHC.Base.D:Monad}> tpl_s2fx_s2fx tpl_s2fz_s2fz tpl_s26Z_s26Z tpl_s2fA_s2fA -> tpl_s26Z_s26Z) <{MainGenGui.$fToInputsTest'_$ctoInput$35}> lvl45_s1iox ds_s1ioA = lvl45_s1iox (<{GHC.Tuple.(,)}> (<{MainGenGui.$fToInputsTest'_$ctoInput$9}> ds_s1ioA) (<{MainGenGui.$fToInputsTest'_$ctoInput$8}> ds_s1ioA)) <{MainGenGui.$fToInputsTest'_$ctoInput$8}> ds_s1ioA = select ds_s1ioA (<{GHC.Tuple.(,)}> a5_s1iMU <{s'_s1ioP}> -> <{s'_s1ioP}>) <{MainGenGui.$fToInputsTest'_$ctoInput$9}> ds_s1ioA = select ds_s1ioA (<{GHC.Tuple.(,)}> a5_s1ioE <{s'_s1iMS}> -> select a5_s1ioE (Gui.Generic.Types.Input ma_s1ioI e_s1ioK -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsTest'1}> ma_s1ioI) e_s1ioK)) <{MainGenGui.$fToInputsTest'1}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsTest'2}> <{MainGenGui.$fToInputsTest'2}> ds1_s1ioh = select ds1_s1ioh (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1iok -> Data.Maybe.Just (<{MainGenGui.$fGenericTest'_$cto}> a4_s1iok)) <{MainGenGui.$fGenericTest'_$cto}> ds_s1ihf = select ds_s1ihf (<{GHC.Generics.:*:}> ds1_s1ihn ds2_s1ihj -> select ds2_s1ihj (<{GHC.Generics.:*:}> ds3_s1iho ds4_s1ihp -> <{MainGenGui.Test'}> ds1_s1ihn ds3_s1iho ds4_s1ihp)) :: <{GHC.Generics.:*:}> = <{GHC.Generics.:*:}> a1 a2 <{MainGenGui.$fToInputsTest'3}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsTest'4}> <{MainGenGui.$fToInputsTest'4}> ds1_s1iob = select ds1_s1iob (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1ioe -> Data.Maybe.Just (<{MainGenGui.$fGenericTest'_$cfrom}> a4_s1ioe)) <{MainGenGui.$fGenericTest'_$cfrom}> ds_s1ihr = select ds_s1ihr (<{MainGenGui.Test'}> g1_s1ihw g2_s1ihx g3_s1ihy -> <{GHC.Generics.:*:}> g1_s1ihw (<{GHC.Generics.:*:}> g2_s1ihx g3_s1ihy)) <{MainGenGui.$fToInputsTest'5}> w2_s1io7 w3_s1io8 w4_s1io9 = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsTest'6}> w2_s1io7 w3_s1io8 w4_s1io9 <{MainGenGui.$fToInputsTest'6}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> <{MainGenGui.$fToInputsTest'12}> <{MainGenGui.$fToInputsTest'7}> eta_B3_B3 eta_B2_B2 eta_B1_B1 <{MainGenGui.$fToInputsTest'7}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> <{MainGenGui.$fToInputsTest'10}> <{MainGenGui.$fToInputsTest'8}> eta_B3_B3 eta_B2_B2 eta_B1_B1 <{MainGenGui.$fToInputsTest'8}> w2_s1io1 w3_s1io3 w4_s1io2 = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsTest'9}> <{MainGenGui.$fSelectorTest'1_$cselName}> w2_s1io1 w4_s1io2 <{MainGenGui.$fSelectorTest'1_$cselName}> ds_s1ifJ = <{MainGenGui.$fSelectorTest'4}> <{MainGenGui.$fSelectorTest'4}> =: GHC.CString.unpackCString# "abcd\'" <{MainGenGui.$fToInputsTest'9}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput <{MainGenGui.$fToInputsABCD'_$ctoInput}> eta_B3_B3 eta_B2_B2 eta_B1_B1 <{MainGenGui.$fToInputsABCD'_$ctoInput}> $dMonadIO_s1in9 eta_s1ina = let $dMonad_s1inf = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1in9 in <{MainGenGui.$fToInputsABCD'_$ctoInput$34}> (Gui.Generic.Classes.$fGToInputsM11_$cgToInput <{MainGenGui.$fToInputsABCD'5}> $dMonadIO_s1in9 Data.Maybe.Nothing (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsABCD'3}> eta_s1ina)) (<{MainGenGui.$fToInputsABCD'_$ctoInput$33}> (GHC.Base.return $dMonad_s1inf)) (<{GHC.Base.>>=}> $dMonad_s1inf) <{MainGenGui.$fToInputsABCD'_$ctoInput$33}> lvl45_s1inh ds_s1ink = lvl45_s1inh (<{GHC.Tuple.(,)}> (<{MainGenGui.$fToInputsABCD'_$ctoInput$7}> ds_s1ink) (<{MainGenGui.$fToInputsABCD'_$ctoInput$6}> ds_s1ink)) <{MainGenGui.$fToInputsABCD'_$ctoInput$6}> ds_s1ink = select ds_s1ink (<{GHC.Tuple.(,)}> a5_s1iMu <{s'_s1inz}> -> <{s'_s1inz}>) <{MainGenGui.$fToInputsABCD'_$ctoInput$7}> ds_s1ink = select ds_s1ink (<{GHC.Tuple.(,)}> a5_s1ino <{s'_s1iMs}> -> select a5_s1ino (Gui.Generic.Types.Input ma_s1ins e_s1inu -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsABCD'1}> ma_s1ins) e_s1inu)) <{MainGenGui.$fToInputsABCD'1}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsABCD'2}> <{MainGenGui.$fToInputsABCD'2}> ds1_s1in1 = select ds1_s1in1 (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1in4 -> Data.Maybe.Just (<{MainGenGui.$fGenericABCD'_$cto}> a4_s1in4)) <{MainGenGui.$fGenericABCD'_$cto}> ds_s1ilo = select ds_s1ilo (GHC.Generics.L1 ds1_s1ilr -> select ds1_s1ilr (GHC.Generics.L1 ds2_s1ilu -> <{MainGenGui.A'}> ds2_s1ilu) (GHC.Generics.R1 ds2_s1ilw -> <{MainGenGui.B'}> ds2_s1ilw)) (GHC.Generics.R1 ds1_s1ily -> select ds1_s1ily (GHC.Generics.L1 ds2_s1ilB -> select ds2_s1ilB (<{GHC.Generics.:*:}> ds3_s1ilF ds4_s1ilG -> <{MainGenGui.C'}> ds3_s1ilF ds4_s1ilG)) (GHC.Generics.R1 ds2_s1ilI -> <{MainGenGui.D'}> ds2_s1ilI)) :: <{GHC.Generics.:+:}> = GHC.Generics.L1 a1 | GHC.Generics.R1 a1 <{MainGenGui.$fToInputsABCD'3}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsABCD'4}> <{MainGenGui.$fToInputsABCD'4}> ds1_s1imV = select ds1_s1imV (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1imY -> Data.Maybe.Just (<{MainGenGui.$fGenericABCD'_$cfrom}> a4_s1imY)) <{MainGenGui.$fGenericABCD'_$cfrom}> ds_s1ilK = select ds_s1ilK (<{MainGenGui.A'}> g1_s1ilN -> GHC.Generics.L1 (GHC.Generics.L1 g1_s1ilN)) (<{MainGenGui.B'}> g1_s1ilQ -> GHC.Generics.L1 (GHC.Generics.R1 g1_s1ilQ)) (<{MainGenGui.C'}> g1_s1ilU g2_s1ilV -> GHC.Generics.R1 (GHC.Generics.L1 (<{GHC.Generics.:*:}> g1_s1ilU g2_s1ilV))) (<{MainGenGui.D'}> g1_s1im0 -> GHC.Generics.R1 (GHC.Generics.R1 g1_s1im0)) <{MainGenGui.$fToInputsABCD'5}> eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> <{MainGenGui.$fToInputsABCD'29}> <{MainGenGui.$fToInputsABCD'28}> <{MainGenGui.$fToInputsABCD'20}> <{MainGenGui.$fToInputsABCD'6}> eta_B1_B1 <{MainGenGui.$fToInputsABCD'6}> =: <{Gui.Generic.Classes.$fGToInputAlts:+:}> <{MainGenGui.$fToInputsABCD'19}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt <{MainGenGui.$fToInputsABCD'11}> <{MainGenGui.$fToInputsABCD'7}> <{MainGenGui.$fToInputsABCD'7}> =: Gui.Generic.Classes.$fGToInputAltsM1 <{MainGenGui.$fToInputsABCD'10}> <{MainGenGui.$fToInputsABCD'8}> <{MainGenGui.$fConstructorABCD'2}> <{MainGenGui.$fConstructorABCD'2}> =: <{GHC.Generics.D:Constructor}> <{MainGenGui.$fConstructorABCD'2_$cconName}> <{MainGenGui.$fConstructorABCD'2_$cconFixity}> <{MainGenGui.$fConstructorABCD'2_$cconIsRecord}> <{MainGenGui.$fConstructorABCD'2_$cconIsRecord}> ds_s1igP = false <{MainGenGui.$fConstructorABCD'2_$cconFixity}> ds_s1igR = GHC.Generics.Prefix :: GHC.Generics.Fixity = GHC.Generics.Prefix | GHC.Generics.Infix a1 a2 <{MainGenGui.$fConstructorABCD'2_$cconName}> ds_s1igN = <{MainGenGui.$fConstructorABCD'6}> <{MainGenGui.$fConstructorABCD'6}> =: GHC.CString.unpackCString# "D\'" :: GHC.Generics.Constructor = <{GHC.Generics.D:Constructor}> a1 a2 a3 <{MainGenGui.$fToInputsABCD'8}> w2_s1imb w3_s1imd w4_s1imc = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'9}> GHC.Generics.$fSelectorNoSelector_$cselName w2_s1imb w4_s1imc GHC.Generics.$fSelectorNoSelector_$cselName ds_sb1m = <{GHC.Types.[]}> <{MainGenGui.$fToInputsABCD'9}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput eta_B3_B3 eta_B2_B2 eta_B1_B1 Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput $dMonadIO_s14Ca = Gui.Generic.Instances.Basic.$wnumInput (Control.Monad.Trans.State.Lazy.$fMonadStateT (Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14Ca)) (Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput$18 $dMonadIO_s14Ca) Gui.Generic.ConvNum.$fConvNumDouble_$cconvNum GHC.Float.$fShowDouble GHC.Float.$fShowDouble =: <{GHC.Show.D:Show}> GHC.Float.$fShowDouble_$cshowsPrec GHC.Float.$fShowDouble_$cshow GHC.Float.$fShowDouble_$cshowList GHC.Float.$fShowDouble_$cshowList eta_B2_B2 eta_B1_B1 = GHC.Show.showList__ GHC.Float.$fShowDouble1 eta_B2_B2 eta_B1_B1 GHC.Float.$fShowDouble1 eta_szzw = select eta_szzw (GHC.Types.D# ww_szzz -> GHC.Float.$w$sshowSignedFloat GHC.Float.$fShowDouble_$sshowFloat GHC.Float.minExpt ww_szzz) GHC.Float.$fShowDouble_$cshow x_szzB = select x_szzB (GHC.Types.D# ww_szzE -> GHC.Float.$w$sshowSignedFloat GHC.Float.$fShowDouble_$sshowFloat GHC.Show.shows26 ww_szzE <{GHC.Types.[]}>) GHC.Float.$fShowDouble_$cshowsPrec x_szzt eta_szzq = select eta_szzq (GHC.Types.D# ww_szzu -> GHC.Float.$w$sshowSignedFloat GHC.Float.$fShowDouble_$sshowFloat x_szzt ww_szzu) Gui.Generic.ConvNum.$fConvNumDouble_$cconvNum a_sbsQ = let !wild_sbvb = Text.ParserCombinators.ReadP.run Gui.Generic.ConvNum.$fConvNumDouble2 a_sbsQ in select wild_sbvb (<{GHC.Types.[]}> -> Gui.Generic.ConvNum.$wfail) (<{GHC.Types.:}> ds_sbsU ds1_sbt0 -> select ds_sbsU (<{GHC.Tuple.(,)}> <{a'_sbt2}> ds2_sbsY -> select ds2_sbsY (<{GHC.Types.[]}> -> select ds1_sbt0 (<{GHC.Types.[]}> -> Data.Either.Right <{a'_sbt2}>) (<{GHC.Types.:}> ipv_sbvf ipv1_sbvg -> Gui.Generic.ConvNum.$wfail)) (<{GHC.Types.:}> ipv_sbvh ipv1_sbvi -> Gui.Generic.ConvNum.$wfail))) Gui.Generic.ConvNum.$wfail =: Data.Either.Left Gui.Generic.ConvNum.$fConvNumDouble1 Gui.Generic.ConvNum.$fConvNumDouble1 =: let !ds_sbv1 = Javascript.Base.Types.FakePtr Gui.Generic.ConvNum.$fConvNumDouble_x in select ds_sbv1 (GHC.Ptr.Ptr ds1_sbsJ -> let !tpl_sbv0 = Gui.Generic.ConvNum.$fConvNumDouble_x, !wild_sbuZ = ffi_wrapper3 jsToString ds1_sbsJ GHC.Prim.realWorld# in select wild_sbuZ (<{GHC.Tuple.(,)}> ds2_sbuY ds3_sbsO -> GHC.Ptr.Ptr ds3_sbsO)) Gui.Generic.ConvNum.$fConvNumDouble_x =: GHC.CString.unpackCString# "not an double" :: Data.Either.Either = Data.Either.Left a1 | Data.Either.Right a1 Gui.Generic.ConvNum.$fConvNumDouble2 =: GHC.Read.$fReadDouble13 GHC.Read.$fReadDouble_$sconvertFrac Text.ParserCombinators.ReadPrec.minPrec Text.ParserCombinators.ReadP.$fMonadP_$creturn Text.ParserCombinators.ReadP.$fMonadP_$creturn x_s2WV = Text.ParserCombinators.ReadP.Result x_s2WV Text.ParserCombinators.ReadP.Fail :: Text.ParserCombinators.ReadP.P = Text.ParserCombinators.ReadP.Get a1 | Text.ParserCombinators.ReadP.Look a1 | Text.ParserCombinators.ReadP.Fail | Text.ParserCombinators.ReadP.Result a1 a2 | Text.ParserCombinators.ReadP.Final a1 Text.ParserCombinators.ReadPrec.minPrec =: GHC.Types.I# 0 GHC.Read.$fReadDouble_$sconvertFrac eta_scir = select eta_scir (_ -> GHC.Read.$fReadDouble12) (Text.Read.Lex.Ident ds_sciu -> let !wild1_sdqG = GHC.Base.eqString ds_sciu GHC.Read.$fReadDouble11 in if wild1_sdqG GHC.Read.$fReadDouble6 (let !wild2_sdqF = GHC.Base.eqString ds_sciu GHC.Read.$fReadDouble10 in if wild2_sdqF GHC.Read.$fReadDouble7 GHC.Read.$fReadDouble9)) (Text.Read.Lex.Number n_sciy -> let !wild1_sdqH = Text.Read.Lex.$wnumberToRangedRational GHC.Float.$fRealFloatDouble4 GHC.Float.$fRealFloatDouble3 n_sciy in select wild1_sdqH (Data.Maybe.Nothing -> GHC.Read.$fReadDouble3) (Data.Maybe.Just rat_sciC -> GHC.Read.$fReadDouble_$sconvertFrac$18 (GHC.Read.$fReadDouble_$sconvertFrac$3 rat_sciC))) GHC.Read.$fReadDouble_$sconvertFrac$3 rat_sciC = select rat_sciC (<{GHC.Real.:%}> ww_sciG ww1_sciH -> GHC.Float.$w$cfromRational ww_sciG ww1_sciH) GHC.Float.$w$cfromRational ww_syqN ww1_syqL = let !wild_sA3y = GHC.Integer.Type.eqInteger ww1_syqL GHC.Float.$fFractionalDouble5 in if wild_sA3y (let !wild1_sA3C = GHC.Integer.Type.eqInteger ww_syqN GHC.Float.$fFractionalDouble5 in if wild1_sA3C GHC.Float.$fFractionalDouble1 (let !wild2_sA3B = GHC.Integer.Type.ltInteger ww_syqN GHC.Float.$fFractionalDouble5 in if wild2_sA3B GHC.Float.$fFractionalDouble2 GHC.Float.$fFractionalDouble3)) (let !wild1_sA3x = GHC.Integer.Type.eqInteger ww_syqN GHC.Float.$fFractionalDouble5 in if wild1_sA3x GHC.Float.$fFractionalDouble4 (let !wild2_sA3w = GHC.Integer.Type.ltInteger ww_syqN GHC.Float.$fFractionalDouble5 in if wild2_sA3w (let !sat_sA3A_sA3A = GHC.Integer.Type.negateInteger ww_syqN, !ww2_syqU = <{GHC.Float.$wfromRat''}> -1021 53 sat_sA3A_sA3A ww1_syqL, !sat_sA3z_sA3z = negateDouble# ww2_syqU in GHC.Types.D# sat_sA3z_sA3z) (let !ww2_syqR = <{GHC.Float.$wfromRat''}> -1021 53 ww_syqN ww1_syqL in GHC.Types.D# ww2_syqR))) <{GHC.Float.$wfromRat''}> ww_sydj ww1_sycM w_sycB w1_sycv = let !ds_szX4 = GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2# w1_sycv in select ds_szX4 (<{GHC.Tuple.(,)}> ipv_sycF ipv1_sycz -> select ipv1_sycz (_ -> let !wild1_sycE = GHC.Integer.Logarithms.Internals.integerLog2# w_sycB, !y1_sycG = <{-#}> wild1_sycE ipv_sycF, !wild2_szXi = <{<=#}> ww_sydj y1_sycG in if wild2_szXi (<{GHC.Float.$wfromRat''$3}> w1_sycv w_sycB ww1_sycM y1_sycG) (<{GHC.Float.$wfromRat''$3}> w1_sycv w_sycB ww1_sycM ww_sydj)) (0 -> let !ln#_sydm = GHC.Integer.Logarithms.Internals.integerLog2# w_sycB, !sat_szXm_szXm = <{+#}> ipv_sycF ww_sydj, !sat_szXl_szXl = <{-#}> sat_szXm_szXm 1, !wild1_szXt = <{>=#}> ln#_sydm sat_szXl_szXl in if wild1_szXt (let !wild2_szXU = <{<#}> ln#_sydm ww1_sycM in if wild2_szXU (let !sat_szY6_szY6 = negateInt# ipv_sycF in GHC.Integer.Type.encodeDoubleInteger w_sycB sat_szY6_szY6) (let !sat_szXR_szXR = <{+#}> ln#_sydm 1, !sat_sye5_sye5 = <{-#}> sat_szXR_szXR ww1_sycM, !ww2_sye3 = negateInt# sat_sye5_sye5, !<{n'_sye8}> = <{GHC.Float.$wfromRat''$230}> w_sycB ww2_sye3, !sat_szXP_szXP = <{-#}> ln#_sydm ww1_sycM, !ds1_szXT = GHC.Integer.Logarithms.Internals.roundingMode# w_sycB sat_szXP_szXP in select ds1_szXT (_ -> let !wild3_syec = GHC.Integer.Type.integerToInt <{n'_sye8}>, !sat_szXO_szXO = int2Word# wild3_syec, !sat_szXN_szXN = and# sat_szXO_szXO 1, !ds2_szXS = word2Int# sat_szXN_szXN in select ds2_szXS (_ -> let !sat_szXM_szXM = <{-#}> ln#_sydm ipv_sycF, !sat_szXL_szXL = <{+#}> sat_szXM_szXM 1, !sat_szXJ_szXJ = <{-#}> sat_szXL_szXL ww1_sycM, !sat_szXK_szXK = GHC.Integer.Type.plusInteger <{n'_sye8}> GHC.Float.$fRealDouble1 in GHC.Integer.Type.encodeDoubleInteger sat_szXK_szXK sat_szXJ_szXJ) (0 -> let !sat_szXX_szXX = <{-#}> ln#_sydm ipv_sycF, !sat_szXW_szXW = <{+#}> sat_szXX_szXX 1, !sat_szXV_szXV = <{-#}> sat_szXW_szXW ww1_sycM in GHC.Integer.Type.encodeDoubleInteger <{n'_sye8}> sat_szXV_szXV)) (0 -> let !sat_szY0_szY0 = <{-#}> ln#_sydm ipv_sycF, !sat_szXZ_szXZ = <{+#}> sat_szY0_szY0 1, !sat_szXY_szXY = <{-#}> sat_szXZ_szXZ ww1_sycM in GHC.Integer.Type.encodeDoubleInteger <{n'_sye8}> sat_szXY_szXY) (2 -> let !sat_szY4_szY4 = <{-#}> ln#_sydm ipv_sycF, !sat_szY3_szY3 = <{+#}> sat_szY4_szY4 1, !sat_szY1_szY1 = <{-#}> sat_szY3_szY3 ww1_sycM, !sat_szY2_szY2 = GHC.Integer.Type.plusInteger <{n'_sye8}> GHC.Float.$fRealDouble1 in GHC.Integer.Type.encodeDoubleInteger sat_szY2_szY2 sat_szY1_szY1))) (let !sat_sydt_sydt = <{-#}> ww_sydj ww1_sycM, !<{ld'#_syds}> = <{+#}> ipv_sycF sat_sydt_sydt, !wild2_szXs = <{<=#}> <{ld'#_syds}> 0 in if wild2_szXs (let !sat_szXI_szXI = <{-#}> ww_sydj ww1_sycM, !sat_szXH_szXH = <{-#}> sat_szXI_szXI <{ld'#_syds}> in GHC.Integer.Type.encodeDoubleInteger w_sycB sat_szXH_szXH) (let !wild3_szXr = <{<=#}> <{ld'#_syds}> ln#_sydm in if wild3_szXr (let !ww2_sydF = negateInt# <{ld'#_syds}>, !<{n'_sydJ}> = <{GHC.Float.$wfromRat''$231}> w_sycB ww2_sydF, !sat_szXw_szXw = <{-#}> <{ld'#_syds}> 1, !ds1_szXy = GHC.Integer.Logarithms.Internals.roundingMode# w_sycB sat_szXw_szXw in select ds1_szXy (_ -> let !sat_szXu_szXu = <{-#}> ww_sydj ww1_sycM, !sat_szXv_szXv = GHC.Integer.Type.plusInteger <{n'_sydJ}> GHC.Float.$fRealDouble1 in GHC.Integer.Type.encodeDoubleInteger sat_szXv_szXv sat_szXu_szXu) (0 -> let !sat_szXz_szXz = <{-#}> ww_sydj ww1_sycM in GHC.Integer.Type.encodeDoubleInteger <{n'_sydJ}> sat_szXz_szXz) (1 -> let !wild4_sydQ = GHC.Integer.Type.integerToInt <{n'_sydJ}>, !sat_szXD_szXD = int2Word# wild4_sydQ, !sat_szXC_szXC = and# sat_szXD_szXD 1, !wild5_szXE = word2Int# sat_szXC_szXC in select wild5_szXE (_ -> let !sat_szXA_szXA = <{-#}> ww_sydj ww1_sycM, !sat_szXB_szXB = GHC.Integer.Type.plusInteger <{n'_sydJ}> GHC.Float.$fRealDouble1 in GHC.Integer.Type.encodeDoubleInteger sat_szXB_szXB sat_szXA_szXA) (0 -> let !sat_szXF_szXF = <{-#}> ww_sydj ww1_sycM in GHC.Integer.Type.encodeDoubleInteger <{n'_sydJ}> sat_szXF_szXF))) (let !sat_szXk_szXk = <{+#}> ln#_sydm 1, !wild4_szXq = <{>#}> <{ld'#_syds}> sat_szXk_szXk in if wild4_szXq 0.0 (let !ds1_szXp = GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2# w_sycB in select ds1_szXp (<{GHC.Tuple.(,)}> ipv2_szXo ipv3_sydB -> select ipv3_sydB (_ -> let !sat_szXj_szXj = <{-#}> ww_sydj ww1_sycM in GHC.Integer.Type.encodeDoubleInteger GHC.Float.$fRealDouble1 sat_szXj_szXj) (0 -> 0.0)))))))) GHC.Integer.Type.encodeDoubleInteger ds_s59b j_s59f = select ds_s59b (GHC.Integer.Type.S# i_s59e -> GHC.Integer.Type.int_encodeDouble# i_s59e j_s59f) (GHC.Integer.Type.J# s#_s59i d#_s59j -> GHC.Integer.Type.encodeDouble# s#_s59i d#_s59j j_s59f) GHC.Integer.Type.encodeDouble# ds_s58C ds1_s58D ds2_s58E = let !wild_s5k2 = ffi_wrapper5 integer_cbits_encodeDouble ds_s58C ds1_s58D ds2_s58E GHC.Prim.realWorld# in select wild_s5k2 (<{GHC.Tuple.(,)}> ds3_s5k1 ds4_s58J -> ds4_s58J) GHC.Integer.Type.int_encodeDouble# ds_s592 ds1_s593 = let !wild_s5k9 = ffi_wrapper4 __int_encodeDouble ds_s592 ds1_s593 GHC.Prim.realWorld# in select wild_s5k9 (<{GHC.Tuple.(,)}> ds2_s5k8 ds3_s598 -> ds3_s598) GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2# ds_sWd = select ds_sWd (GHC.Integer.Type.S# i_sWh -> let !w_sWi = int2Word# i_sWh, !sat_sWl_sWl = minusWord# w_sWi 1, !sat_sWn_sWn = and# w_sWi sat_sWl_sWl, !sat_s10Z_s10Z = word2Int# sat_sWn_sWn, !sat_s110_s110 = GHC.Integer.Logarithms.Internals.wordLog2# w_sWi in <{GHC.Tuple.(,)}> sat_s110_s110 sat_s10Z_s10Z) (GHC.Integer.Type.J# s_sXh ba_sWv -> let test_sWx = GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$6 ba_sWv test_sWx, !sat_s118_s118 = <{-#}> s_sXh 1 in GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$2 ba_sWv test_sWx sat_s118_s118) GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$2 ba_sWv test_sWx i_sWB = let !ds1_sWG = indexWordArray# ba_sWv i_sWB in select ds1_sWG (_ -> let !sat_s117_s117 = minusWord# ds1_sWG 1, !sat_s112_s112 = GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$7 ds1_sWG i_sWB sat_s117_s117 test_sWx, !sat_s113_s113 = GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$4 ds1_sWG i_sWB in <{GHC.Tuple.(,)}> sat_s113_s113 sat_s112_s112) (0 -> let !sat_s119_s119 = <{-#}> i_sWB 1 in GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$2 ba_sWv test_sWx sat_s119_s119) GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$4 ds1_sWG i_sWB = select GHC.Integer.Logarithms.Internals.leadingZeros (GHC.Integer.Logarithms.Internals.BA lz_sWP -> let !e_sWH = uncheckedShiftRL# ds1_sWG 24, !wild2_s11p = neWord# e_sWH 0 in if wild2_s11p (let !sat_s11c_s11c = word2Int# e_sWH, !wild3_sX7 = indexInt8Array# lz_sWP sat_s11c_s11c, !sat_s11a_s11a = uncheckedIShiftL# i_sWB 5, !sat_s11b_s11b = <{-#}> 32 wild3_sX7 in <{+#}> sat_s11b_s11b sat_s11a_s11a) (let !f_sWK = uncheckedShiftRL# ds1_sWG 16, !wild3_s11o = neWord# f_sWK 0 in if wild3_s11o (let !sat_s11f_s11f = word2Int# f_sWK, !wild4_sX2 = indexInt8Array# lz_sWP sat_s11f_s11f, !sat_s11d_s11d = uncheckedIShiftL# i_sWB 5, !sat_s11e_s11e = <{-#}> 24 wild4_sX2 in <{+#}> sat_s11e_s11e sat_s11d_s11d) (let !g_sWN = uncheckedShiftRL# ds1_sWG 8, !wild4_s11n = neWord# g_sWN 0 in if wild4_s11n (let !sat_s11i_s11i = word2Int# g_sWN, !wild5_sWX = indexInt8Array# lz_sWP sat_s11i_s11i, !sat_s11g_s11g = uncheckedIShiftL# i_sWB 5, !sat_s11h_s11h = <{-#}> 16 wild5_sWX in <{+#}> sat_s11h_s11h sat_s11g_s11g) (let !sat_s116_s116 = word2Int# ds1_sWG, !wild5_sWS = indexInt8Array# lz_sWP sat_s116_s116, !sat_s114_s114 = uncheckedIShiftL# i_sWB 5, !sat_s115_s115 = <{-#}> 8 wild5_sWS in <{+#}> sat_s115_s115 sat_s114_s114)))) :: GHC.Integer.Logarithms.Internals.BA = GHC.Integer.Logarithms.Internals.BA a1 GHC.Integer.Logarithms.Internals.leadingZeros =: let !ds_sZT = newByteArray# 256 GHC.Prim.realWorld# in select ds_sZT (<{GHC.Tuple.(,)}> ipv_sVl ipv1_sVk -> let !s2_sVF = writeInt8Array# ipv1_sVk 0 9 ipv_sVl, fillA_sVx = GHC.Integer.Logarithms.Internals.leadingZeros$5 fillA_sVx ipv1_sVk, !s3_sVH = fillA_sVx 2 8 1 s2_sVF, !ds1_sZU = unsafeFreezeByteArray# ipv1_sVk s3_sVH in select ds1_sZU (<{GHC.Tuple.(,)}> ipv2_sZR ipv3_sVL -> GHC.Integer.Logarithms.Internals.BA ipv3_sVL)) GHC.Integer.Logarithms.Internals.leadingZeros$5 fillA_sVx ipv1_sVk lim_sVv val_sVz idx_sVs st_sVB = select idx_sVs (_ -> let !wild1_sZS = <{<#}> idx_sVs lim_sVv in if wild1_sZS (let !nx_sVE = writeInt8Array# ipv1_sVk idx_sVs val_sVz st_sVB, !sat_sZQ_sZQ = <{+#}> idx_sVs 1 in fillA_sVx lim_sVv val_sVz sat_sZQ_sZQ nx_sVE) (let !sat_sZO_sZO = <{-#}> val_sVz 1, !sat_sZP_sZP = <{*#}> 2 lim_sVv in fillA_sVx sat_sZP_sZP sat_sZO_sZO idx_sVs st_sVB)) (256 -> st_sVB) GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$7 ds1_sWG i_sWB sat_s117_s117 test_sWx = let !ds2_s11r = and# ds1_sWG sat_s117_s117 in select ds2_s11r (_ -> 1) (0 -> let !sat_s11j_s11j = <{-#}> i_sWB 1 in test_sWx sat_s11j_s11j) GHC.Integer.Logarithms.Internals.integerLog2IsPowerOf2#$6 ba_sWv test_sWx i_sWt = let !wild1_s11m = <{<#}> i_sWt 0 in if wild1_s11m 0 (let !ds1_s11l = indexWordArray# ba_sWv i_sWt in select ds1_s11l (_ -> 1) (0 -> let !sat_s11k_s11k = <{-#}> i_sWt 1 in test_sWx sat_s11k_s11k)) GHC.Integer.Logarithms.Internals.wordLog2# eta_sVQ = select GHC.Integer.Logarithms.Internals.leadingZeros (GHC.Integer.Logarithms.Internals.BA lz_sVZ -> let !e_sVR = uncheckedShiftRL# eta_sVQ 24, !wild1_s107 = neWord# e_sVR 0 in if wild1_s107 (let !sat_s10b_s10b = word2Int# e_sVR, !wild2_sWb = indexInt8Array# lz_sVZ sat_s10b_s10b in <{-#}> 32 wild2_sWb) (let !f_sVU = uncheckedShiftRL# eta_sVQ 16, !wild2_s106 = neWord# f_sVU 0 in if wild2_s106 (let !sat_s10a_s10a = word2Int# f_sVU, !wild3_sW8 = indexInt8Array# lz_sVZ sat_s10a_s10a in <{-#}> 24 wild3_sW8) (let !g_sVX = uncheckedShiftRL# eta_sVQ 8, !wild3_s105 = neWord# g_sVX 0 in if wild3_s105 (let !sat_s109_s109 = word2Int# g_sVX, !wild4_sW5 = indexInt8Array# lz_sVZ sat_s109_s109 in <{-#}> 16 wild4_sW5) (let !sat_s104_s104 = word2Int# eta_sVQ, !wild4_sW2 = indexInt8Array# lz_sVZ sat_s104_s104 in <{-#}> 8 wild4_sW2)))) GHC.Integer.Logarithms.Internals.roundingMode# ds_sUy t_sUE = select ds_sUy (GHC.Integer.Type.S# i_sUC -> let !sat_sYx_sYx = uncheckedShiftL# 2 t_sUE, !sat_sUK_sUK = minusWord# sat_sYx_sYx 1, !sat_sUL_sUL = int2Word# i_sUC, !k_sUH = and# sat_sUL_sUL sat_sUK_sUK, !c_sUJ = uncheckedShiftL# 1 t_sUE, !wild1_sYy = gtWord# c_sUJ k_sUH in if wild1_sYy 0 (let !wild2_sYJ = ltWord# c_sUJ k_sUH in if wild2_sYJ 2 1)) (GHC.Integer.Type.J# ds1_sYI ba_sUZ -> let !k_sUR = uncheckedIShiftRA# t_sUE 5, !sat_sYD_sYD = int2Word# t_sUE, !sat_sUX_sUX = and# sat_sYD_sYD 31, !j_sUV = word2Int# sat_sUX_sUX, !c_sUY = uncheckedShiftL# 1 j_sUV, !wild1_sV2 = indexWordArray# ba_sUZ k_sUR, !sat_sYC_sYC = uncheckedShiftL# 2 j_sUV, !sat_sV6_sV6 = minusWord# sat_sYC_sYC 1, !r_sV5 = and# wild1_sV2 sat_sV6_sV6, !wild2_sYH = gtWord# c_sUY r_sV5 in if wild2_sYH 0 (let !wild3_sYG = ltWord# c_sUY r_sV5 in if wild3_sYG 2 (let !sat_sYA_sYA = <{-#}> k_sUR 1 in GHC.Integer.Logarithms.Internals.roundingMode#$1 ba_sUZ sat_sYA_sYA))) GHC.Integer.Logarithms.Internals.roundingMode#$1 ba_sUZ i_sVb = let !wild4_sYF = <{<#}> i_sVb 0 in if wild4_sYF 1 (let !ds2_sYE = indexWordArray# ba_sUZ i_sVb in select ds2_sYE (_ -> 2) (0 -> let !sat_sYB_sYB = <{-#}> i_sVb 1 in GHC.Integer.Logarithms.Internals.roundingMode#$1 ba_sUZ sat_sYB_sYB)) <{GHC.Float.$wfromRat''$231}> w_sycB ww2_sydF = let !wild4_szXG = <{>=#}> ww2_sydF 0 in if wild4_szXG (GHC.Integer.Type.shiftLInteger w_sycB ww2_sydF) (let !sat_szXx_szXx = negateInt# ww2_sydF in GHC.Integer.Type.shiftRInteger w_sycB sat_szXx_szXx) GHC.Integer.Type.shiftRInteger j_s4PU i_s4Q6 = select j_s4PU (GHC.Integer.Type.S# ds_s4PY -> let !ds1_s5fu = integer_cmm_int2Integerzh ds_s4PY in select ds1_s5fu (<{GHC.Tuple.(,)}> ipv_s4Q3 ipv1_s4Q4 -> GHC.Integer.Type.shiftRInteger (GHC.Integer.Type.J# ipv_s4Q3 ipv1_s4Q4) i_s4Q6)) (GHC.Integer.Type.J# s_s4Qa d_s4Qb -> let !ds_s5fw = integer_cmm_fdivQ2ExpIntegerzh s_s4Qa d_s4Qb i_s4Q6 in select ds_s5fw (<{GHC.Tuple.(,)}> ipv_s4Qg ipv1_s4Qh -> GHC.Integer.Type.J# ipv_s4Qg ipv1_s4Qh)) GHC.Integer.Type.shiftLInteger j_s4Qk i_s4Qw = select j_s4Qk (GHC.Integer.Type.S# ds_s4Qo -> let !ds1_s5fB = integer_cmm_int2Integerzh ds_s4Qo in select ds1_s5fB (<{GHC.Tuple.(,)}> ipv_s4Qt ipv1_s4Qu -> GHC.Integer.Type.shiftLInteger (GHC.Integer.Type.J# ipv_s4Qt ipv1_s4Qu) i_s4Qw)) (GHC.Integer.Type.J# s_s4QA d_s4QB -> let !ds_s5fD = integer_cmm_mul2ExpIntegerzh s_s4QA d_s4QB i_s4Qw in select ds_s5fD (<{GHC.Tuple.(,)}> ipv_s4QG ipv1_s4QH -> GHC.Integer.Type.J# ipv_s4QG ipv1_s4QH)) <{GHC.Float.$wfromRat''$230}> w_sycB ww2_sye3 = let !wild3_szY5 = <{>=#}> ww2_sye3 0 in if wild3_szY5 (GHC.Integer.Type.shiftLInteger w_sycB ww2_sye3) (let !sat_szXQ_szXQ = negateInt# ww2_sye3 in GHC.Integer.Type.shiftRInteger w_sycB sat_szXQ_szXQ) GHC.Integer.Logarithms.Internals.integerLog2# ds_sXk = select ds_sXk (GHC.Integer.Type.S# i_sXq -> select GHC.Integer.Logarithms.Internals.leadingZeros (GHC.Integer.Logarithms.Internals.BA lz_sXB -> let !w_sXr = int2Word# i_sXq, !e_sXt = uncheckedShiftRL# w_sXr 24, !wild2_s11U = neWord# e_sXt 0 in if wild2_s11U (let !sat_s11Z_s11Z = word2Int# e_sXt, !wild3_sXN = indexInt8Array# lz_sXB sat_s11Z_s11Z in <{-#}> 32 wild3_sXN) (let !f_sXw = uncheckedShiftRL# w_sXr 16, !wild3_s11T = neWord# f_sXw 0 in if wild3_s11T (let !sat_s11Y_s11Y = word2Int# f_sXw, !wild4_sXK = indexInt8Array# lz_sXB sat_s11Y_s11Y in <{-#}> 24 wild4_sXK) (let !g_sXz = uncheckedShiftRL# w_sXr 8, !wild4_s11S = neWord# g_sXz 0 in if wild4_s11S (let !sat_s11X_s11X = word2Int# g_sXz, !wild5_sXH = indexInt8Array# lz_sXB sat_s11X_s11X in <{-#}> 16 wild5_sXH) (let !sat_s11R_s11R = word2Int# w_sXr, !wild5_sXE = indexInt8Array# lz_sXB sat_s11R_s11R in <{-#}> 8 wild5_sXE))))) (GHC.Integer.Type.J# s_sYu ba_sXS -> let !sat_s123_s123 = <{-#}> s_sYu 1 in GHC.Integer.Logarithms.Internals.integerLog2#$3 ba_sXS sat_s123_s123) GHC.Integer.Logarithms.Internals.integerLog2#$3 ba_sXS i_sXT = let !ds1_sXY = indexWordArray# ba_sXS i_sXT in select ds1_sXY (_ -> select GHC.Integer.Logarithms.Internals.leadingZeros (GHC.Integer.Logarithms.Internals.BA lz_sY7 -> let !e_sXZ = uncheckedShiftRL# ds1_sXY 24, !wild2_s12g = neWord# e_sXZ 0 in if wild2_s12g (let !sat_s127_s127 = word2Int# e_sXZ, !wild3_sYp = indexInt8Array# lz_sY7 sat_s127_s127, !sat_s125_s125 = uncheckedIShiftL# i_sXT 5, !sat_s126_s126 = <{-#}> 32 wild3_sYp in <{+#}> sat_s126_s126 sat_s125_s125) (let !f_sY2 = uncheckedShiftRL# ds1_sXY 16, !wild3_s12f = neWord# f_sY2 0 in if wild3_s12f (let !sat_s12a_s12a = word2Int# f_sY2, !wild4_sYk = indexInt8Array# lz_sY7 sat_s12a_s12a, !sat_s128_s128 = uncheckedIShiftL# i_sXT 5, !sat_s129_s129 = <{-#}> 24 wild4_sYk in <{+#}> sat_s129_s129 sat_s128_s128) (let !g_sY5 = uncheckedShiftRL# ds1_sXY 8, !wild4_s12e = neWord# g_sY5 0 in if wild4_s12e (let !sat_s12d_s12d = word2Int# g_sY5, !wild5_sYf = indexInt8Array# lz_sY7 sat_s12d_s12d, !sat_s12b_s12b = uncheckedIShiftL# i_sXT 5, !sat_s12c_s12c = <{-#}> 16 wild5_sYf in <{+#}> sat_s12c_s12c sat_s12b_s12b) (let !sat_s122_s122 = word2Int# ds1_sXY, !wild5_sYa = indexInt8Array# lz_sY7 sat_s122_s122, !sat_s120_s120 = uncheckedIShiftL# i_sXT 5, !sat_s121_s121 = <{-#}> 8 wild5_sYa in <{+#}> sat_s121_s121 sat_s120_s120))))) (0 -> let !sat_s124_s124 = <{-#}> i_sXT 1 in GHC.Integer.Logarithms.Internals.integerLog2#$3 ba_sXS sat_s124_s124) <{GHC.Float.$wfromRat''$3}> w1_sycv w_sycB ww1_sycM ww2_sycU = let !wild2_szXg = <{<#}> ww2_sycU ww1_sycM in if wild2_szXg (<{GHC.Float.$wfromRat''$4}> ww1_sycM ww2_sycU (<{GHC.Float.$wfromRat''$232}> w_sycB ww1_sycM ww2_sycU) w1_sycv) (let !wild3_szXf = <{==#}> ww2_sycU ww1_sycM in if wild3_szXf (<{GHC.Float.$wfromRat''$4}> ww1_sycM ww2_sycU w_sycB w1_sycv) (<{GHC.Float.$wfromRat''$4}> ww1_sycM ww2_sycU w_sycB (<{GHC.Float.$wfromRat''$233}> w1_sycv ww1_sycM ww2_sycU))) <{GHC.Float.$wfromRat''$233}> w1_sycv ww1_sycM ww2_sycU = let !ww3_syd9 = <{-#}> ww2_sycU ww1_sycM, !wild4_szXe = <{>=#}> ww3_syd9 0 in if wild4_szXe (GHC.Integer.Type.shiftLInteger w1_sycv ww3_syd9) (let !sat_szWX_szWX = negateInt# ww3_syd9 in GHC.Integer.Type.shiftRInteger w1_sycv sat_szWX_szWX) <{GHC.Float.$wfromRat''$4}> ww1_sycM ww2_sycU ww3_sycS ww4_sycO = let !wild2_szX2 = <{>=#}> ww1_sycM 0 in if wild2_szX2 (let !sat_szX9_szX9 = GHC.Integer.Type.shiftLInteger ww4_sycO ww1_sycM, !wild3_szXa = GHC.Integer.Type.leInteger sat_szX9_szX9 ww3_sycS in if wild3_szXa (let !sat_szXb_szXb = GHC.Integer.Type.shiftLInteger ww4_sycO 1, !sat_szXd_szXd = <{-#}> ww2_sycU ww1_sycM, !sat_szXc_szXc = <{+#}> sat_szXd_szXd 1 in GHC.Float.$w$j sat_szXc_szXc ww3_sycS sat_szXb_szXb) (let !sat_szX8_szX8 = <{-#}> ww2_sycU ww1_sycM in GHC.Float.$w$j sat_szX8_szX8 ww3_sycS ww4_sycO)) (let !sat_sycQ_sycQ = negateInt# ww1_sycM, !sat_szWW_szWW = GHC.Integer.Type.shiftRInteger ww4_sycO sat_sycQ_sycQ, !wild3_szX1 = GHC.Integer.Type.leInteger sat_szWW_szWW ww3_sycS in if wild3_szX1 (let !sat_szX5_szX5 = GHC.Integer.Type.shiftLInteger ww4_sycO 1, !sat_szX7_szX7 = <{-#}> ww2_sycU ww1_sycM, !sat_szX6_szX6 = <{+#}> sat_szX7_szX7 1 in GHC.Float.$w$j sat_szX6_szX6 ww3_sycS sat_szX5_szX5) (let !sat_szWV_szWV = <{-#}> ww2_sycU ww1_sycM in GHC.Float.$w$j sat_szWV_szWV ww3_sycS ww4_sycO)) GHC.Float.$w$j ww_syci w_syca w1_syc8 = let !wild_szWO = GHC.Integer.Type.eqInteger w1_syc8 GHC.Real.even1 in if wild_szWO GHC.Err.divZeroError (let !ww1_szWN = GHC.Integer.Type.quotRemInteger w_syca w1_syc8 in select ww1_szWN (<{GHC.Tuple.(,)}> ww2_sych ww3_syce -> let !sat_szWL_szWL = GHC.Integer.Type.shiftLInteger ww3_syce 1, !wild1_szWM = GHC.Integer.Type.compareInteger sat_szWL_szWL w1_syc8 in select wild1_szWM (GHC.Types.LT -> GHC.Integer.Type.encodeDoubleInteger ww2_sych ww_syci) (GHC.Types.EQ -> let !wild2_syck = GHC.Integer.Type.integerToInt ww2_sych, !sat_szWR_szWR = int2Word# wild2_syck, !sat_szWQ_szWQ = and# sat_szWR_szWR 1, !wild3_szWS = word2Int# sat_szWQ_szWQ in select wild3_szWS (_ -> let !sat_szWP_szWP = GHC.Integer.Type.plusInteger ww2_sych GHC.Float.$fRealDouble1 in GHC.Integer.Type.encodeDoubleInteger sat_szWP_szWP ww_syci) (0 -> GHC.Integer.Type.encodeDoubleInteger ww2_sych ww_syci)) (GHC.Types.GT -> let !sat_szWT_szWT = GHC.Integer.Type.plusInteger ww2_sych GHC.Float.$fRealDouble1 in GHC.Integer.Type.encodeDoubleInteger sat_szWT_szWT ww_syci))) :: GHC.Types.Ordering = GHC.Types.LT | GHC.Types.EQ | GHC.Types.GT GHC.Integer.Type.compareInteger ds_s4If ds1_s4Ii = select ds_s4If (GHC.Integer.Type.S# i_s4Il -> select ds1_s4Ii (GHC.Integer.Type.S# j_s4Im -> let !wild2_s59B = <{==#}> i_s4Il j_s4Im in if wild2_s59B GHC.Types.EQ (let !wild3_s59A = <{<=#}> i_s4Il j_s4Im in if wild3_s59A GHC.Types.LT GHC.Types.GT)) (GHC.Integer.Type.J# s_s4Is d_s4It -> let !res#_s4Iw = integer_cmm_cmpIntegerIntzh s_s4Is d_s4It i_s4Il, !wild2_s59F = <{>#}> res#_s4Iw 0 in if wild2_s59F GHC.Types.LT (let !wild3_s59E = <{<#}> res#_s4Iw 0 in if wild3_s59E GHC.Types.GT GHC.Types.EQ))) (GHC.Integer.Type.J# s_s4IE d_s4IF -> select ds1_s4Ii (GHC.Integer.Type.S# i_s4IG -> let !res#_s4IJ = integer_cmm_cmpIntegerIntzh s_s4IE d_s4IF i_s4IG, !wild2_s59H = <{<#}> res#_s4IJ 0 in if wild2_s59H GHC.Types.LT (let !wild3_s59G = <{>#}> res#_s4IJ 0 in if wild3_s59G GHC.Types.GT GHC.Types.EQ)) (GHC.Integer.Type.J# s2_s4IP d2_s4IQ -> let !res#_s4IT = integer_cmm_cmpIntegerzh s_s4IE d_s4IF s2_s4IP d2_s4IQ, !wild2_s59K = <{<#}> res#_s4IT 0 in if wild2_s59K GHC.Types.LT (let !wild3_s59J = <{>#}> res#_s4IT 0 in if wild3_s59J GHC.Types.GT GHC.Types.EQ))) <{GHC.Float.$wfromRat''$232}> w_sycB ww1_sycM ww2_sycU = let !ww3_syde = <{-#}> ww1_sycM ww2_sycU, !wild3_szXh = <{>=#}> ww3_syde 0 in if wild3_szXh (GHC.Integer.Type.shiftLInteger w_sycB ww3_syde) (let !sat_szWZ_szWZ = negateInt# ww3_syde in GHC.Integer.Type.shiftRInteger w_sycB sat_szWZ_szWZ) GHC.Integer.Type.negateInteger ds_s4Vd = select ds_s4Vd (GHC.Integer.Type.S# ds1_s4Vg -> select ds1_s4Vg (_ -> let !sat_s5gK_s5gK = negateInt# ds1_s4Vg in GHC.Integer.Type.S# sat_s5gK_s5gK) (-2147483648 -> GHC.Integer.Type.lvl4)) (GHC.Integer.Type.J# s_s4Vm d_s4Vo -> let !sat_s5gM_s5gM = negateInt# s_s4Vm in GHC.Integer.Type.J# sat_s5gM_s5gM d_s4Vo) GHC.Integer.Type.lvl4 =: GHC.Integer.Type.plusInteger GHC.Integer.Type.lvl3 GHC.Integer.Type.lvl GHC.Integer.Type.lvl =: GHC.Integer.Type.S# 1 GHC.Integer.Type.lvl3 =: GHC.Integer.Type.S# 2147483647 GHC.Float.$fFractionalDouble5 =: GHC.Integer.Type.S# 0 GHC.Float.$fFractionalDouble4 =: GHC.Types.D# 0.0 GHC.Float.$fFractionalDouble3 =: let !wild_sybI = <{/##}> 1.0 0.0 in GHC.Types.D# wild_sybI GHC.Float.$fFractionalDouble2 =: let !wild_sybG = <{/##}> -1.0 0.0 in GHC.Types.D# wild_sybG GHC.Float.$fFractionalDouble1 =: let !wild_sybE = <{/##}> 0.0 0.0 in GHC.Types.D# wild_sybE :: GHC.Real.Ratio = <{GHC.Real.:%}> a1 a2 GHC.Read.$fReadDouble_$sconvertFrac$18 x_sciI ds_sciM eta1_sciL = eta1_sciL x_sciI GHC.Read.$fReadDouble3 ds_schx eta_schw = eta_schw GHC.Read.$fReadDouble5 GHC.Read.$fReadDouble5 =: let !wild2_schp = <{/##}> 1.0 0.0 in GHC.Types.D# wild2_schp GHC.Float.$fRealFloatDouble3 =: GHC.Types.I# 1024 GHC.Float.$fRealFloatDouble4 =: GHC.Types.I# -1021 Text.Read.Lex.$wnumberToRangedRational ww_s8Ry ww1_s8Ro w_s8QV = select w_s8QV (Text.Read.Lex.MkNumber ipv_s9jT ipv1_s9jU -> Data.Maybe.Just (Text.Read.Lex.$wnumberToRangedRational$140 w_s8QV)) (Text.Read.Lex.MkDecimal iPart_s8RL mFPart_s8RN ds_s8R9 -> select ds_s8R9 (Data.Maybe.Nothing -> Data.Maybe.Just (Text.Read.Lex.$wnumberToRangedRational$141 w_s8QV)) (Data.Maybe.Just exp_s8Ri -> let !wild2_s9kc = GHC.Integer.Type.gtInteger exp_s8Ri Text.Read.Lex.numberToRangedRational8 in if wild2_s9kc Data.Maybe.Nothing (let !wild3_s9kb = GHC.Integer.Type.ltInteger exp_s8Ri Text.Read.Lex.numberToRangedRational7 in if wild3_s9kb Data.Maybe.Nothing (let !wild4_s8S4 = GHC.List.dropWhile Text.Read.Lex.numberToRangedRational4 iPart_s8RL in select wild4_s8S4 (<{GHC.Types.[]}> -> select mFPart_s8RN (Data.Maybe.Nothing -> Text.Read.Lex.numberToRangedRational2) (Data.Maybe.Just fPart_s8RQ -> let !ww2_s9kf = GHC.List.$wspan Text.Read.Lex.numberToRangedRational1 fPart_s8RQ in select ww2_s9kf (<{GHC.Tuple.(,)}> ww3_s8RY ww4_s8RU -> select ww4_s8RU (<{GHC.Types.[]}> -> Text.Read.Lex.numberToRangedRational2) (<{GHC.Types.:}> ipv_s9k4 ipv1_s9k5 -> let !ww5_s8S0 = GHC.List.$wlen ww3_s8RY 0, !sat_s9k3_s9k3 = negateInt# ww5_s8S0 in Text.Read.Lex.$wnumberToRangedRational$1 exp_s8Ri w_s8QV ww1_s8Ro ww_s8Ry sat_s9k3_s9k3)))) (<{GHC.Types.:}> ds1_s9k1 ds3_s9k2 -> let !ww2_s8S6 = GHC.List.$wlen wild4_s8S4 0 in Text.Read.Lex.$wnumberToRangedRational$1 exp_s8Ri w_s8QV ww1_s8Ro ww_s8Ry ww2_s8S6))))) Text.Read.Lex.$wnumberToRangedRational$1 exp_s8Ri w_s8QV ww1_s8Ro ww_s8Ry ww2_s8Rs = let !wild4_s8Rt = GHC.Integer.Type.integerToInt exp_s8Ri in select ww1_s8Ro (GHC.Types.I# x34_s8Rv -> let !x35_s8Ru = <{+#}> ww2_s8Rs wild4_s8Rt, !sat_s9k0_s9k0 = <{+#}> x34_s8Rv 3, !wild6_s9k9 = <{>#}> x35_s8Ru sat_s9k0_s9k0 in if wild6_s9k9 Data.Maybe.Nothing (select ww_s8Ry (GHC.Types.I# x36_s8RB -> let !sat_s9jZ_s9jZ = <{-#}> x36_s8RB 3, !wild8_s9k7 = <{<#}> x35_s8Ru sat_s9jZ_s9jZ in if wild8_s9k7 Text.Read.Lex.numberToRangedRational5 (Data.Maybe.Just (Text.Read.Lex.$wnumberToRangedRational$142 w_s8QV))))) Text.Read.Lex.$wnumberToRangedRational$142 w_s8QV = let !ww3_s9k6 = Text.Read.Lex.$wnumberToRational w_s8QV in select ww3_s9k6 (<{GHC.Tuple.(,)}> ww4_s8RH ww5_s8RI -> <{GHC.Real.:%}> ww4_s8RH ww5_s8RI) Text.Read.Lex.$wnumberToRational w_s8Q1 = select w_s8Q1 (Text.Read.Lex.MkNumber base_s8Q5 iPart_s8Qa -> let !sat_s9jo_s9jo = Text.Read.Lex.numberToInteger_$sval (Text.Read.Lex.$wnumberToRational$10 base_s8Q5) Text.Read.Lex.numberToInteger2 iPart_s8Qa, !sat_s9jp_s9jp = GHC.Integer.Type.timesInteger sat_s9jo_s9jo Text.Read.Lex.lvl5 in GHC.Real.$wreduce sat_s9jp_s9jp Text.Read.Lex.lvl5) (Text.Read.Lex.MkDecimal iPart_s8Qk mFPart_s8Qg mExp_s8Qi -> select mFPart_s8Qg (Data.Maybe.Nothing -> select mExp_s8Qi (Data.Maybe.Nothing -> let !sat_s9js_s9js = Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 iPart_s8Qk, !sat_s9jt_s9jt = GHC.Integer.Type.timesInteger sat_s9js_s9js Text.Read.Lex.lvl5 in GHC.Real.$wreduce sat_s9jt_s9jt Text.Read.Lex.lvl5) (Data.Maybe.Just exp_s8Qo -> let !wild3_s9jz = GHC.Integer.Type.geInteger exp_s8Qo Text.Read.Lex.numberToInteger2 in if wild3_s9jz (let !sat_s8QB_s8QB = <{GHC.Real.^_^2}> Text.Read.Lex.numberToInteger1 exp_s8Qo, !sat_s9jA_s9jA = Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 iPart_s8Qk, !sat_s9jB_s9jB = GHC.Integer.Type.timesInteger sat_s9jA_s9jA sat_s8QB_s8QB, !sat_s9jC_s9jC = GHC.Integer.Type.timesInteger sat_s9jB_s9jB Text.Read.Lex.lvl5 in GHC.Real.$wreduce sat_s9jC_s9jC Text.Read.Lex.lvl5) (let !sat_s8Qu_s8Qu = GHC.Integer.Type.negateInteger exp_s8Qo, !w1_s8Qs = <{GHC.Real.^_^2}> Text.Read.Lex.numberToInteger1 sat_s8Qu_s8Qu, !sat_s9jx_s9jx = GHC.Integer.Type.absInteger w1_s8Qs, !sat_s8Qw_s8Qw = GHC.Integer.Type.signumInteger w1_s8Qs, !sat_s9jw_s9jw = Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 iPart_s8Qk, !sat_s9jy_s9jy = GHC.Integer.Type.timesInteger sat_s9jw_s9jw sat_s8Qw_s8Qw in GHC.Real.$wreduce sat_s9jy_s9jy sat_s9jx_s9jx))) (Data.Maybe.Just fPart_s8QH -> select mExp_s8Qi (Data.Maybe.Nothing -> let !sat_s9jD_s9jD = Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 iPart_s8Qk in Text.Read.Lex.$wfracExp Text.Read.Lex.numberToInteger2 sat_s9jD_s9jD fPart_s8QH) (Data.Maybe.Just exp_s8QJ -> let !sat_s9jF_s9jF = Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 iPart_s8Qk in Text.Read.Lex.$wfracExp exp_s8QJ sat_s9jF_s9jF fPart_s8QH))) Text.Read.Lex.$wfracExp w_s8Pz w1_s8PB w2_s8Px = select w2_s8Px (<{GHC.Types.[]}> -> let !wild1_s9je = GHC.Integer.Type.ltInteger w_s8Pz Text.Read.Lex.numberToInteger2 in if wild1_s9je (let !sat_s8PI_s8PI = GHC.Integer.Type.negateInteger w_s8Pz, !w3_s8PH = <{GHC.Real.^_^2}> Text.Read.Lex.numberToInteger1 sat_s8PI_s8PI, !sat_s9jg_s9jg = GHC.Integer.Type.absInteger w3_s8PH, !sat_s8PK_s8PK = GHC.Integer.Type.signumInteger w3_s8PH, !sat_s9jh_s9jh = GHC.Integer.Type.timesInteger w1_s8PB sat_s8PK_s8PK in GHC.Real.$wreduce sat_s9jh_s9jh sat_s9jg_s9jg) (let !sat_s9jd_s9jd = <{GHC.Real.^_^2}> Text.Read.Lex.numberToInteger1 w_s8Pz, !tpl_s8PE = GHC.Integer.Type.timesInteger w1_s8PB sat_s9jd_s9jd in <{GHC.Tuple.(,)}> tpl_s8PE GHC.Real.$fNumRatio3)) (<{GHC.Types.:}> d_s8PQ ds_s8PZ -> let !<{exp'_s8PX}> = GHC.Integer.Type.minusInteger w_s8Pz Text.Read.Lex.lvl5 in select d_s8PQ (GHC.Types.I# i_s8PU -> let !sat_s9ji_s9ji = GHC.Integer.Type.smallInteger i_s8PU, !sat_s9jj_s9jj = GHC.Integer.Type.timesInteger w1_s8PB Text.Read.Lex.numberToInteger1, !<{mant'_s8PY}> = GHC.Integer.Type.plusInteger sat_s9jj_s9jj sat_s9ji_s9ji in Text.Read.Lex.$wfracExp <{exp'_s8PX}> <{mant'_s8PY}> ds_s8PZ)) Text.Read.Lex.numberToInteger1 =: GHC.Integer.Type.S# 10 GHC.Integer.Type.smallInteger eta_B1_B1 = GHC.Integer.Type.S# eta_B1_B1 Text.Read.Lex.lvl5 =: GHC.Integer.Type.S# 1 GHC.Integer.Type.minusInteger i1_s4Y2 i2_s4Y5 = select i1_s4Y2 (GHC.Integer.Type.S# i_s4Y8 -> select i2_s4Y5 (GHC.Integer.Type.S# j_s4Y9 -> let !wild2_s5hE = subIntC# i_s4Y8 j_s4Y9 in select wild2_s5hE (<{GHC.Tuple.(,)}> r_s4Yv c_s4Yd -> select c_s4Yd (_ -> let !ds_s5hC = integer_cmm_int2Integerzh i_s4Y8 in select ds_s5hC (<{GHC.Tuple.(,)}> ipv_s4Yp ipv1_s4Yq -> let !ds1_s5hB = integer_cmm_int2Integerzh j_s4Y9 in select ds1_s5hB (<{GHC.Tuple.(,)}> ipv2_s4Ys ipv3_s4Yt -> GHC.Integer.Type.minusInteger (GHC.Integer.Type.J# ipv_s4Yp ipv1_s4Yq) (GHC.Integer.Type.J# ipv2_s4Ys ipv3_s4Yt)))) (0 -> GHC.Integer.Type.S# r_s4Yv))) (GHC.Integer.Type.J# ds_s5hH ds1_s5hI -> let !ds2_s5hG = integer_cmm_int2Integerzh i_s4Y8 in select ds2_s5hG (<{GHC.Tuple.(,)}> ipv_s4YD ipv1_s4YE -> GHC.Integer.Type.minusInteger (GHC.Integer.Type.J# ipv_s4YD ipv1_s4YE) i2_s4Y5))) (GHC.Integer.Type.J# ds_s4YY ds1_s4YZ -> select i2_s4Y5 (GHC.Integer.Type.S# ds2_s4YM -> let !ds3_s5hK = integer_cmm_int2Integerzh ds2_s4YM in select ds3_s5hK (<{GHC.Tuple.(,)}> ipv_s4YS ipv1_s4YT -> GHC.Integer.Type.minusInteger i1_s4Y2 (GHC.Integer.Type.J# ipv_s4YS ipv1_s4YT))) (GHC.Integer.Type.J# s2_s4Z0 d2_s4Z1 -> let !ds2_s5hM = integer_cmm_minusIntegerzh ds_s4YY ds1_s4YZ s2_s4Z0 d2_s4Z1 in select ds2_s5hM (<{GHC.Tuple.(,)}> ipv_s4Z6 ipv1_s4Z7 -> GHC.Integer.Type.J# ipv_s4Z6 ipv1_s4Z7))) <{GHC.Real.^_^2}> x0_siid y0_siia = let !wild_sj0n = GHC.Integer.Type.ltInteger y0_siia GHC.Real.even1 in if wild_sj0n <{GHC.Real.^4}> (let !wild1_sj0m = GHC.Integer.Type.eqInteger y0_siia GHC.Real.even1 in if wild1_sj0m GHC.Real.$fNumRatio3 (<{GHC.Real.^_f2}> x0_siid y0_siia)) <{GHC.Real.^_f2}> x_sii1 y_sihX = let !sat_sj0d_sj0d = GHC.Integer.Type.remInteger y_sihX GHC.Real.even2, !wild_sj0f = GHC.Integer.Type.eqInteger sat_sj0d_sj0d GHC.Real.even1 in if wild_sj0f (let !sat_sj0g_sj0g = GHC.Integer.Type.quotInteger y_sihX GHC.Real.even2, !sat_sj0h_sj0h = GHC.Integer.Type.timesInteger x_sii1 x_sii1 in <{GHC.Real.^_f2}> sat_sj0h_sj0h sat_sj0g_sj0g) (let !wild1_sj0e = GHC.Integer.Type.eqInteger y_sihX GHC.Real.$fNumRatio3 in if wild1_sj0e x_sii1 (let !sat_sj0a_sj0a = GHC.Integer.Type.minusInteger y_sihX GHC.Real.$fNumRatio3, !sat_sj0b_sj0b = GHC.Integer.Type.quotInteger sat_sj0a_sj0a GHC.Real.even2, !sat_sj0c_sj0c = GHC.Integer.Type.timesInteger x_sii1 x_sii1 in GHC.Real.g sat_sj0c_sj0c sat_sj0b_sj0b x_sii1)) GHC.Real.g x_sihN y_sihJ z_sihR = let !sat_sj02_sj02 = GHC.Integer.Type.remInteger y_sihJ GHC.Real.even2, !wild_sj04 = GHC.Integer.Type.eqInteger sat_sj02_sj02 GHC.Real.even1 in if wild_sj04 (let !sat_sj05_sj05 = GHC.Integer.Type.quotInteger y_sihJ GHC.Real.even2, !sat_sj06_sj06 = GHC.Integer.Type.timesInteger x_sihN x_sihN in GHC.Real.g sat_sj06_sj06 sat_sj05_sj05 z_sihR) (let !wild1_sj03 = GHC.Integer.Type.eqInteger y_sihJ GHC.Real.$fNumRatio3 in if wild1_sj03 (GHC.Integer.Type.timesInteger x_sihN z_sihR) (let !sat_siZZ_siZZ = GHC.Integer.Type.timesInteger x_sihN z_sihR, !sat_siZY_siZY = GHC.Integer.Type.minusInteger y_sihJ GHC.Real.$fNumRatio3, !sat_sj00_sj00 = GHC.Integer.Type.quotInteger sat_siZY_siZY GHC.Real.even2, !sat_sj01_sj01 = GHC.Integer.Type.timesInteger x_sihN x_sihN in GHC.Real.g sat_sj01_sj01 sat_sj00_sj00 sat_siZZ_siZZ)) GHC.Real.even2 =: GHC.Integer.Type.S# 2 GHC.Integer.Type.remInteger a_s4QK b_s4QP = select a_s4QK (GHC.Integer.Type.S# ds_s4QN -> select ds_s4QN (_ -> select b_s4QP (GHC.Integer.Type.S# b1_s4QT -> let !wild2_s4QV = remInt# ds_s4QN b1_s4QT in GHC.Integer.Type.S# wild2_s4QV) (GHC.Integer.Type.J# ds2_s5fK ds3_s5fL -> let !ds4_s5fJ = integer_cmm_int2Integerzh ds_s4QN in select ds4_s5fJ (<{GHC.Tuple.(,)}> ipv_s4R3 ipv1_s4R4 -> GHC.Integer.Type.remInteger (GHC.Integer.Type.J# ipv_s4R3 ipv1_s4R4) b_s4QP))) (-2147483648 -> let !ds2_s5fN = integer_cmm_int2Integerzh -2147483648 in select ds2_s5fN (<{GHC.Tuple.(,)}> ipv_s4Rc ipv1_s4Rd -> GHC.Integer.Type.remInteger (GHC.Integer.Type.J# ipv_s4Rc ipv1_s4Rd) b_s4QP))) (GHC.Integer.Type.J# sa_s4Rq a1_s4Rr -> select b_s4QP (GHC.Integer.Type.S# b1_s4Rk -> let !ds_s5fQ = integer_cmm_int2Integerzh b1_s4Rk in select ds_s5fQ (<{GHC.Tuple.(,)}> ipv_s4Rs ipv1_s4Rt -> let !ds1_s5fP = integer_cmm_remIntegerzh sa_s4Rq a1_s4Rr ipv_s4Rs ipv1_s4Rt in select ds1_s5fP (<{GHC.Tuple.(,)}> ipv2_s4Ry ipv3_s4RA -> select ipv2_s4Ry (_ -> let !v_s4RE = indexIntArray# ipv3_s4RA 0, !wild3_s5fO = <{<#}> ipv2_s4Ry 0 in if wild3_s5fO (let !sat_s5fS_s5fS = negateInt# v_s4RE in GHC.Integer.Type.S# sat_s5fS_s5fS) (GHC.Integer.Type.S# v_s4RE)) (0 -> GHC.Integer.Type.lvl1)))) (GHC.Integer.Type.J# sb_s4RJ b1_s4RK -> let !ds_s5fT = integer_cmm_remIntegerzh sa_s4Rq a1_s4Rr sb_s4RJ b1_s4RK in select ds_s5fT (<{GHC.Tuple.(,)}> ipv_s4RP ipv1_s4RQ -> GHC.Integer.Type.J# ipv_s4RP ipv1_s4RQ))) GHC.Integer.Type.lvl1 =: GHC.Integer.Type.S# 0 <{GHC.Real.^4}> =: GHC.Err.error GHC.Real.lvl8 GHC.Real.$wreduce w_shDP w1_shDM = let !wild_siLL = GHC.Integer.Type.eqInteger w1_shDM GHC.Real.even1 in if wild_siLL GHC.Err.ratioZeroDenominatorError (let !d_shDQ = GHC.Integer.Type.gcdInteger w_shDP w1_shDM, !wild1_siLK = GHC.Integer.Type.eqInteger d_shDQ GHC.Real.even1 in if wild1_siLK GHC.Err.divZeroError (let !tpl_shDU = GHC.Integer.Type.quotInteger w_shDP d_shDQ, !tpl1_shDV = GHC.Integer.Type.quotInteger w1_shDM d_shDQ in <{GHC.Tuple.(,)}> tpl_shDU tpl1_shDV)) GHC.Integer.Type.gcdInteger a_s4Zc b_s4Zf = let $wfail_s50q = GHC.Integer.Type.gcdInteger$2 a_s4Zc b_s4Zf in select a_s4Zc (GHC.Integer.Type.S# ds_s50t -> select ds_s50t (_ -> $wfail_s50q) (-2147483648 -> let !ds2_s5ia = integer_cmm_int2Integerzh -2147483648 in select ds2_s5ia (<{GHC.Tuple.(,)}> ipv_s50A ipv1_s50B -> GHC.Integer.Type.gcdInteger (GHC.Integer.Type.J# ipv_s50A ipv1_s50B) b_s4Zf))) (GHC.Integer.Type.J# ipv_s5hT ipv1_s5hU -> $wfail_s50q) GHC.Integer.Type.gcdInteger$2 a_s4Zc b_s4Zf = let $wfail1_s50b = GHC.Integer.Type.gcdInteger$1 a_s4Zc b_s4Zf in select b_s4Zf (GHC.Integer.Type.S# ds_s50e -> select ds_s50e (_ -> $wfail1_s50b) (-2147483648 -> let !ds2_s5i7 = integer_cmm_int2Integerzh -2147483648 in select ds2_s5i7 (<{GHC.Tuple.(,)}> ipv_s50l ipv1_s50m -> GHC.Integer.Type.gcdInteger a_s4Zc (GHC.Integer.Type.J# ipv_s50l ipv1_s50m)))) (GHC.Integer.Type.J# ipv_s5hQ ipv1_s5hR -> $wfail1_s50b) GHC.Integer.Type.gcdInteger$1 a_s4Zc b_s4Zf = select a_s4Zc (GHC.Integer.Type.S# a1_s4Zi -> select b_s4Zf (GHC.Integer.Type.S# b1_s4Zj -> let !wild2_s4Zl = GHC.Integer.Type.gcdInt a1_s4Zi b1_s4Zj in GHC.Integer.Type.S# wild2_s4Zl) (GHC.Integer.Type.J# sb_s4Zp b1_s4Zw -> select a1_s4Zi (_ -> select sb_s4Zp (_ -> let !wild4_s5hX = <{<#}> sb_s4Zp 0 in if wild4_s5hX (let !wild5_s5i0 = <{<#}> a1_s4Zi 0 in if wild5_s5i0 (let !sat_s5i1_s5i1 = negateInt# a1_s4Zi, !sat_s5i2_s5i2 = negateInt# sb_s4Zp, !wild6_s4ZQ = integer_cmm_gcdIntegerIntzh sat_s5i2_s5i2 b1_s4Zw sat_s5i1_s5i1 in GHC.Integer.Type.S# wild6_s4ZQ) (let !sat_s5hZ_s5hZ = negateInt# sb_s4Zp, !wild6_s4ZK = integer_cmm_gcdIntegerIntzh sat_s5hZ_s5hZ b1_s4Zw a1_s4Zi in GHC.Integer.Type.S# wild6_s4ZK)) (let !wild5_s5hW = <{<#}> a1_s4Zi 0 in if wild5_s5hW (let !sat_s5hY_s5hY = negateInt# a1_s4Zi, !wild6_s4ZE = integer_cmm_gcdIntegerIntzh sb_s4Zp b1_s4Zw sat_s5hY_s5hY in GHC.Integer.Type.S# wild6_s4ZE) (let !wild6_s4Zz = integer_cmm_gcdIntegerIntzh sb_s4Zp b1_s4Zw a1_s4Zi in GHC.Integer.Type.S# wild6_s4Zz))) (0 -> GHC.Integer.Type.absInteger a_s4Zc)) (0 -> GHC.Integer.Type.absInteger b_s4Zf))) (GHC.Integer.Type.J# ds_s501 ds1_s502 -> select b_s4Zf (GHC.Integer.Type.S# ds2_s5i3 -> GHC.Integer.Type.gcdInteger b_s4Zf a_s4Zc) (GHC.Integer.Type.J# sb_s503 b1_s504 -> let !ds2_s5i4 = integer_cmm_gcdIntegerzh ds_s501 ds1_s502 sb_s503 b1_s504 in select ds2_s5i4 (<{GHC.Tuple.(,)}> ipv_s509 ipv1_s50a -> GHC.Integer.Type.J# ipv_s509 ipv1_s50a))) GHC.Integer.Type.absInteger ds_s4Vr = select ds_s4Vr (GHC.Integer.Type.S# ds1_s4Vu -> select ds1_s4Vu (_ -> let !wild1_s5gQ = <{>=#}> ds1_s4Vu 0 in if wild1_s5gQ ds_s4Vr (let !sat_s5gP_s5gP = negateInt# ds1_s4Vu in GHC.Integer.Type.S# sat_s5gP_s5gP)) (-2147483648 -> GHC.Integer.Type.lvl5)) (GHC.Integer.Type.J# s_s4VC d_s4VF -> let !wild1_s5gS = <{>=#}> s_s4VC 0 in if wild1_s5gS ds_s4Vr (let !sat_s5gR_s5gR = negateInt# s_s4VC in GHC.Integer.Type.J# sat_s5gR_s5gR d_s4VF)) GHC.Integer.Type.lvl5 =: GHC.Integer.Type.plusInteger GHC.Integer.Type.lvl3 GHC.Integer.Type.lvl GHC.Integer.Type.gcdInt ds_s4K2 y_s4K4 = select ds_s4K2 (_ -> select y_s4K4 (_ -> let !wild_s5bu = <{<#}> y_s4K4 0 in if wild_s5bu (let !wild1_s5bx = <{<#}> ds_s4K2 0 in if wild1_s5bx (let !sat_s5by_s5by = negateInt# y_s4K4, !sat_s5bz_s5bz = negateInt# ds_s4K2 in integer_cmm_gcdIntzh sat_s5bz_s5bz sat_s5by_s5by) (let !sat_s5bw_s5bw = negateInt# y_s4K4 in integer_cmm_gcdIntzh ds_s4K2 sat_s5bw_s5bw)) (let !wild1_s5bt = <{<#}> ds_s4K2 0 in if wild1_s5bt (let !sat_s5bv_s5bv = negateInt# ds_s4K2 in integer_cmm_gcdIntzh sat_s5bv_s5bv y_s4K4) (integer_cmm_gcdIntzh ds_s4K2 y_s4K4))) (0 -> let !wild_s5bA = <{<#}> ds_s4K2 0 in if wild_s5bA (negateInt# ds_s4K2) ds_s4K2)) (0 -> GHC.Integer.Type.absInt y_s4K4) GHC.Integer.Type.absInt x_s4Ib = let !wild_s59v = <{<#}> x_s4Ib 0 in if wild_s59v (negateInt# x_s4Ib) x_s4Ib GHC.Err.ratioZeroDenominatorError =: GHC.Exception.throw2 GHC.Exception.RatioZeroDenominator GHC.Exception.$fExceptionArithException_$ctoException GHC.Integer.Type.signumInteger ds_s4No = select ds_s4No (GHC.Integer.Type.S# i_s4Nr -> let !wild1_s5en = <{<#}> i_s4Nr 0 in if wild1_s5en GHC.Integer.Type.lvl2 (select i_s4Nr (_ -> GHC.Integer.Type.lvl) (0 -> GHC.Integer.Type.lvl1))) (GHC.Integer.Type.J# s_s4Nx d_s4Ny -> let !cmp_s4NB = integer_cmm_cmpIntegerIntzh s_s4Nx d_s4Ny 0, !wild1_s5eq = <{>#}> cmp_s4NB 0 in if wild1_s5eq GHC.Integer.Type.lvl (select cmp_s4NB (_ -> GHC.Integer.Type.lvl2) (0 -> GHC.Integer.Type.lvl1))) GHC.Integer.Type.lvl2 =: GHC.Integer.Type.S# -1 Text.Read.Lex.numberToInteger2 =: GHC.Integer.Type.S# 0 Text.Read.Lex.numberToInteger_$sval ds_s8GJ y_s8GD ds1_s8GB = select ds1_s8GB (<{GHC.Types.[]}> -> y_s8GD) (<{GHC.Types.:}> x34_s8GG xs_s8GP -> select x34_s8GG (GHC.Types.I# i_s8GL -> let !sat_s9eo_s9eo = GHC.Integer.Type.smallInteger i_s8GL, !sat_s9ep_s9ep = GHC.Integer.Type.timesInteger y_s8GD ds_s8GJ, !<{y'_s8GO}> = GHC.Integer.Type.plusInteger sat_s9ep_s9ep sat_s9eo_s9eo in Text.Read.Lex.numberToInteger_$sval ds_s8GJ <{y'_s8GO}> xs_s8GP)) GHC.Integer.Type.geInteger ds_s4Kq ds1_s4Kt = select ds_s4Kq (GHC.Integer.Type.S# i_s4Kw -> select ds1_s4Kt (GHC.Integer.Type.S# j_s4Kx -> <{>=#}> i_s4Kw j_s4Kx) (GHC.Integer.Type.J# s_s4KB d_s4KC -> let !wild2_s4KF = integer_cmm_cmpIntegerIntzh s_s4KB d_s4KC i_s4Kw in <{<=#}> wild2_s4KF 0)) (GHC.Integer.Type.J# s_s4KL d_s4KM -> select ds1_s4Kt (GHC.Integer.Type.S# i_s4KN -> let !wild2_s4KQ = integer_cmm_cmpIntegerIntzh s_s4KL d_s4KM i_s4KN in <{>=#}> wild2_s4KQ 0) (GHC.Integer.Type.J# s2_s4KU d2_s4KV -> let !wild2_s4KY = integer_cmm_cmpIntegerzh s_s4KL d_s4KM s2_s4KU d2_s4KV in <{>=#}> wild2_s4KY 0)) :: Text.Read.Lex.Number = Text.Read.Lex.MkNumber a1 a2 | Text.Read.Lex.MkDecimal a1 a2 a3 Text.Read.Lex.$wnumberToRational$10 base_s8Q5 = select base_s8Q5 (GHC.Types.I# i_s8Q8 -> GHC.Integer.Type.smallInteger i_s8Q8) Text.Read.Lex.numberToRangedRational5 =: Data.Maybe.Just Text.Read.Lex.numberToRangedRational6 Text.Read.Lex.numberToRangedRational6 =: <{GHC.Real.:%}> Text.Read.Lex.numberToInteger2 GHC.Real.$fNumRatio3 Text.Read.Lex.numberToRangedRational2 =: Data.Maybe.Just Text.Read.Lex.numberToRangedRational3 Text.Read.Lex.numberToRangedRational3 =: <{GHC.Real.:%}> Text.Read.Lex.numberToInteger2 GHC.Real.$fNumRatio3 Text.Read.Lex.numberToRangedRational1 eta_B1_B1 = GHC.Classes.eqInt Text.Read.Lex.$fShowLexeme2 eta_B1_B1 Text.Read.Lex.$fShowLexeme2 =: GHC.Types.I# 0 GHC.Classes.eqInt eta_s7o7 eta1_s7oa = select eta_s7o7 (GHC.Types.I# x_s7od -> select eta1_s7oa (GHC.Types.I# y_s7oe -> <{==#}> x_s7od y_s7oe)) Text.Read.Lex.numberToRangedRational4 eta_B1_B1 = GHC.Classes.eqInt Text.Read.Lex.$fShowLexeme2 eta_B1_B1 GHC.List.dropWhile ds_s3y4 ds1_s3xZ = select ds1_s3xZ (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> x_s3y3 <{xs'_s3y7}> -> let !wild1_s3Mq = ds_s3y4 x_s3y3 in if wild1_s3Mq (GHC.List.dropWhile ds_s3y4 <{xs'_s3y7}>) ds1_s3xZ) Text.Read.Lex.numberToRangedRational7 =: GHC.Integer.Type.S# -2147483648 Text.Read.Lex.numberToRangedRational8 =: GHC.Integer.Type.S# 2147483647 Text.Read.Lex.$wnumberToRangedRational$141 w_s8QV = let !ww2_s9jW = Text.Read.Lex.$wnumberToRational w_s8QV in select ww2_s9jW (<{GHC.Tuple.(,)}> ww3_s8Re ww4_s8Rf -> <{GHC.Real.:%}> ww3_s8Re ww4_s8Rf) Text.Read.Lex.$wnumberToRangedRational$140 w_s8QV = let !ww2_s9jS = Text.Read.Lex.$wnumberToRational w_s8QV in select ww2_s9jS (<{GHC.Tuple.(,)}> ww3_s8R3 ww4_s8R4 -> <{GHC.Real.:%}> ww3_s8R3 ww4_s8R4) :: Text.Read.Lex.Lexeme = Text.Read.Lex.Char a1 | Text.Read.Lex.String a1 | Text.Read.Lex.Punc a1 | Text.Read.Lex.Ident a1 | Text.Read.Lex.Symbol a1 | Text.Read.Lex.Number a1 | Text.Read.Lex.EOF GHC.Read.$fReadDouble9 eta_sch0 eta1_sch1 = Text.ParserCombinators.ReadP.Fail GHC.Read.$fReadDouble7 ds_schn eta_schm = eta_schm GHC.Read.$fReadDouble8 GHC.Read.$fReadDouble8 =: let !wild2_schj = <{/##}> 0.0 0.0 in GHC.Types.D# wild2_schj GHC.Read.$fReadDouble10 =: GHC.CString.unpackCString# "NaN" GHC.Base.eqString ds_s2dx ds1_s2dz = select ds_s2dx (<{GHC.Types.[]}> -> select ds1_s2dz (<{GHC.Types.[]}> -> true) (<{GHC.Types.:}> ipv_s2iL ipv1_s2iM -> false)) (<{GHC.Types.:}> c1_s2dI cs1_s2dR -> select ds1_s2dz (<{GHC.Types.[]}> -> false) (<{GHC.Types.:}> c2_s2dL cs2_s2dS -> select c1_s2dI (GHC.Types.C# c3_s2dO -> select c2_s2dL (GHC.Types.C# c4_s2dP -> let !wild4_s2iO = eqChar# c3_s2dO c4_s2dP in if wild4_s2iO (GHC.Base.eqString cs1_s2dR cs2_s2dS) false)))) GHC.Read.$fReadDouble6 ds_scht eta_schs = eta_schs GHC.Read.$fReadDouble5 GHC.Read.$fReadDouble11 =: GHC.CString.unpackCString# "Infinity" GHC.Read.$fReadDouble12 eta_B2_B2 eta_B1_B1 = GHC.Read.$fReadDouble9 eta_B2_B2 eta_B1_B1 GHC.Read.$fReadDouble13 convert_scmt eta_scne eta1_scnf = let a4_scnc = GHC.Read.$fReadDouble13$38 a4_scnc convert_scmt in a4_scnc eta_scne eta1_scnf GHC.Read.$fReadDouble13$38 a4_scnc convert_scmt n_scms eta2_scmm = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Look (GHC.Read.$fReadDouble13$45 (GHC.Read.$fReadDouble13$44 (GHC.Read.$fReadDouble13$43 (GHC.Read.$fReadDouble13$42 (GHC.Read.$fReadDouble13$41 (GHC.Read.$fReadDouble13$40 convert_scmt (GHC.Read.$fReadDouble13$39 eta2_scmm) n_scms))) convert_scmt eta2_scmm n_scms)))) (GHC.Read.$wa3 a4_scnc eta2_scmm) GHC.Read.$wa3 w_scjf w1_sciU = Text.Read.Lex.lex1 (GHC.Read.$wa3$19 (w_scjf Text.ParserCombinators.ReadPrec.minPrec (GHC.Read.$wa3$20 w1_sciU))) GHC.Read.$wa3$20 w1_sciU a4_sciT = Text.Read.Lex.lex1 (GHC.Read.$wa3$21 a4_sciT w1_sciU) GHC.Read.$wa3$21 a4_sciT w1_sciU a5_sciX = select a5_sciX (_ -> Text.ParserCombinators.ReadP.Fail) (Text.Read.Lex.Punc ds_scj0 -> select ds_scj0 (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.Fail) (<{GHC.Types.:}> ds1_scj4 ds2_scj9 -> select ds1_scj4 (GHC.Types.C# ds3_scj7 -> select ds3_scj7 (_ -> Text.ParserCombinators.ReadP.Fail) (')' -> select ds2_scj9 (<{GHC.Types.[]}> -> w1_sciU a4_sciT) (<{GHC.Types.:}> ipv_sdqM ipv1_sdqN -> Text.ParserCombinators.ReadP.Fail))))) Text.Read.Lex.lex1 k_s9d5 = Text.ParserCombinators.ReadP.Look (Text.Read.Lex.lex1$131 (Text.Read.Lex.lex1$130 k_s9d5)) Text.Read.Lex.lex1$130 k_s9d5 a104_s9d9 = Text.Read.Lex.hsLex2 k_s9d5 Text.Read.Lex.hsLex2 k_s9az = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Look (Text.Read.Lex.hsLex2$115 k_s9az)) (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$117 (Text.Read.Lex.hsLex2$116 k_s9az (Text.Read.Lex.lexChar2 (Text.Read.Lex.hsLex2$123 (Text.Read.Lex.hsLex2$122 k_s9az)))))) (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$118 k_s9az)) (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$119 k_s9az)) (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$120 k_s9az)) (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$121 k_s9az)) (<{Text.ParserCombinators.ReadP.<++1}> Text.Read.Lex.a27 Text.Read.Lex.a103 k_s9az)))))) Text.Read.Lex.a103 k_s9ar = Text.Read.Lex.a26 Text.Read.Lex.lvl8 (Text.Read.Lex.a103$112 k_s9ar) Text.Read.Lex.a103$112 k_s9ar a104_s9an = <{Text.ParserCombinators.ReadP.<++1}> Text.Read.Lex.a28 Text.Read.Lex.a101 (Text.Read.Lex.a103$113 a104_s9an k_s9ar) Text.Read.Lex.a103$113 a104_s9an k_s9ar a105_s9ao = <{Text.ParserCombinators.ReadP.<++1}> Text.Read.Lex.a100 Text.Read.Lex.a102 (Text.Read.Lex.a103$114 a104_s9an a105_s9ao k_s9ar) Text.Read.Lex.a103$114 a104_s9an a105_s9ao k_s9ar a106_s9ap = k_s9ar (Text.Read.Lex.Number (Text.Read.Lex.MkDecimal a104_s9an a105_s9ao a106_s9ap)) Text.Read.Lex.a102 k_s9ah = k_s9ah Data.Maybe.Nothing Text.Read.Lex.a100 k_s99q = let lvl85_s99V = Text.Read.Lex.a100$151 k_s99q in Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a100$106 lvl85_s99V)) (Text.Read.Lex.a100$105 lvl85_s99V) Text.Read.Lex.a100$105 lvl85_s99V a104_s9a6 = select a104_s9a6 (GHC.Types.C# c2_s9a9 -> select c2_s9a9 (_ -> Text.ParserCombinators.ReadP.Fail) ('E' -> lvl85_s99V)) Text.Read.Lex.a100$106 lvl85_s99V a104_s99X = select a104_s99X (GHC.Types.C# c2_s9a0 -> select c2_s9a0 (_ -> Text.ParserCombinators.ReadP.Fail) ('e' -> lvl85_s99V)) Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus sc_s2X1 sc1_s2X8 = select sc_s2X1 (Text.ParserCombinators.ReadP.Get f1_s2X6 -> Text.ParserCombinators.ReadP.Get (Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus$5 f1_s2X6 sc1_s2X8)) (Text.ParserCombinators.ReadP.Look f_s2Xe -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus$6 f_s2Xe sc1_s2X8)) (Text.ParserCombinators.ReadP.Fail -> Text.ParserCombinators.ReadP.Get sc1_s2X8) (Text.ParserCombinators.ReadP.Result x_s2Xj p_s2Xk -> Text.ParserCombinators.ReadP.Result x_s2Xj (Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus p_s2Xk sc1_s2X8)) (Text.ParserCombinators.ReadP.Final r_s2Xo -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus$7 r_s2Xo sc1_s2X8)) Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus$7 r_s2Xo sc1_s2X8 s_s2Xq = Text.ParserCombinators.ReadP.Final (<{GHC.Base.++}> r_s2Xo (Text.ParserCombinators.ReadP.run (Text.ParserCombinators.ReadP.Get sc1_s2X8) s_s2Xq)) Text.ParserCombinators.ReadP.run ds_s2W3 ds1_s2W6 = select ds_s2W3 (Text.ParserCombinators.ReadP.Get f_s2Wb -> select ds1_s2W6 (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> c_s2Wa s_s2Wd -> let !sat_s3aJ_s3aJ = f_s2Wb c_s2Wa in Text.ParserCombinators.ReadP.run sat_s3aJ_s3aJ s_s2Wd)) (Text.ParserCombinators.ReadP.Look f_s2Wf -> let !sat_s3aK_s3aK = f_s2Wf ds1_s2W6 in Text.ParserCombinators.ReadP.run sat_s3aK_s3aK ds1_s2W6) (Text.ParserCombinators.ReadP.Fail -> <{GHC.Types.[]}>) (Text.ParserCombinators.ReadP.Result x_s2Wj p_s2Wl -> <{GHC.Types.:}> (<{GHC.Tuple.(,)}> x_s2Wj ds1_s2W6) (Text.ParserCombinators.ReadP.run p_s2Wl ds1_s2W6)) (Text.ParserCombinators.ReadP.Final r_s2Wo -> r_s2Wo) Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus$6 f_s2Xe sc1_s2X8 s_s2Xd = let !sat_s3bn_s3bn = f_s2Xe s_s2Xd in Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus sat_s3bn_s3bn sc1_s2X8 Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus$5 f1_s2X6 sc1_s2X8 c_s2X5 = let !sat_s3b5_s3b5 = f1_s2X6 c_s2X5 in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s3b5_s3b5 (sc1_s2X8 c_s2X5) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus ds_s2XB ds1_s2Xz = let $wfail_s2YW = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$1 ds1_s2Xz ds_s2XB in select ds_s2XB (_ -> $wfail_s2YW) (Text.ParserCombinators.ReadP.Get f1_s2Z3 -> select ds1_s2Xz (_ -> $wfail_s2YW) (Text.ParserCombinators.ReadP.Get f2_s2Z5 -> Text.ParserCombinators.ReadP.Get (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$8 f1_s2Z3 f2_s2Z5))) (Text.ParserCombinators.ReadP.Result x_s2Za p_s2Zb -> Text.ParserCombinators.ReadP.Result x_s2Za (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus p_s2Zb ds1_s2Xz)) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$8 f1_s2Z3 f2_s2Z5 c_s2Z2 = let !sat_s3bl_s3bl = f1_s2Z3 c_s2Z2 in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s3bl_s3bl (f2_s2Z5 c_s2Z2) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$1 ds1_s2Xz ds_s2XB = select ds1_s2Xz (_ -> select ds_s2XB (_ -> select ds1_s2Xz (_ -> let $wfail1_s2Yh = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$2 ds1_s2Xz ds_s2XB in select ds_s2XB (_ -> $wfail1_s2Yh) (Text.ParserCombinators.ReadP.Look f_s2Yo -> select ds1_s2Xz (_ -> $wfail1_s2Yh) (Text.ParserCombinators.ReadP.Final r_s2Yr -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$9 f_s2Yo r_s2Yr))) (Text.ParserCombinators.ReadP.Final r_s2Yy -> select ds1_s2Xz (Text.ParserCombinators.ReadP.Get ipv_s3be -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$10 ds1_s2Xz r_s2Yy)) (Text.ParserCombinators.ReadP.Look f_s2YI -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$11 f_s2YI r_s2Yy)) (Text.ParserCombinators.ReadP.Final t_s2YP -> Text.ParserCombinators.ReadP.Final (<{GHC.Base.++}> r_s2Yy t_s2YP)))) (Text.ParserCombinators.ReadP.Fail -> ds_s2XB)) (Text.ParserCombinators.ReadP.Fail -> ds1_s2Xz)) (Text.ParserCombinators.ReadP.Result x_s2YT q_s2YU -> Text.ParserCombinators.ReadP.Result x_s2YT (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus ds_s2XB q_s2YU)) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$11 f_s2YI r_s2Yy s_s2YH = Text.ParserCombinators.ReadP.Final (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$92 f_s2YI r_s2Yy s_s2YH) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$92 f_s2YI r_s2Yy s_s2YH = <{GHC.Base.++}> r_s2Yy (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$93 f_s2YI s_s2YH) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$93 f_s2YI s_s2YH = let !sat_s3ba_s3ba = f_s2YI s_s2YH in Text.ParserCombinators.ReadP.run sat_s3ba_s3ba s_s2YH Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$10 ds1_s2Xz r_s2Yy s_s2YA = Text.ParserCombinators.ReadP.Final (<{GHC.Base.++}> r_s2Yy (Text.ParserCombinators.ReadP.run ds1_s2Xz s_s2YA)) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$9 f_s2Yo r_s2Yr s_s2Yn = Text.ParserCombinators.ReadP.Final (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$91 f_s2Yo r_s2Yr s_s2Yn) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$91 f_s2Yo r_s2Yr s_s2Yn = let !sat_s3bf_s3bf = f_s2Yo s_s2Yn, !sat_s3bg_s3bg = Text.ParserCombinators.ReadP.run sat_s3bf_s3bf s_s2Yn in <{GHC.Base.++}> sat_s3bg_s3bg r_s2Yr Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$2 ds1_s2Xz ds_s2XB = select ds1_s2Xz (_ -> select ds_s2XB (_ -> select ds1_s2Xz (Text.ParserCombinators.ReadP.Get ipv_s3bt -> Text.ParserCombinators.ReadP.lvl) (Text.ParserCombinators.ReadP.Look f_s2XR -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$12 ds_s2XB f_s2XR))) (Text.ParserCombinators.ReadP.Look f_s2XZ -> select ds1_s2Xz (Text.ParserCombinators.ReadP.Get ipv_s2Y1 -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$13 f_s2XZ ipv_s2Y1)) (Text.ParserCombinators.ReadP.Look g_s2Y7 -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$14 f_s2XZ g_s2Y7)))) (Text.ParserCombinators.ReadP.Final r_s2Ye -> Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$15 ds_s2XB r_s2Ye)) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$15 ds_s2XB r_s2Ye s_s2Yc = Text.ParserCombinators.ReadP.Final (Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$94 ds_s2XB r_s2Ye s_s2Yc) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$94 ds_s2XB r_s2Ye s_s2Yc = let !sat_s3bD_s3bD = Text.ParserCombinators.ReadP.run ds_s2XB s_s2Yc in <{GHC.Base.++}> sat_s3bD_s3bD r_s2Ye Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$14 f_s2XZ g_s2Y7 s_s2Y5 = let !sat_s3bB_s3bB = f_s2XZ s_s2Y5 in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s3bB_s3bB (g_s2Y7 s_s2Y5) Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$13 f_s2XZ ipv_s2Y1 s_s2XY = let !sat_s3bx_s3bx = f_s2XZ s_s2XY in Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus sat_s3bx_s3bx ipv_s2Y1 Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus$12 ds_s2XB f_s2XR s_s2XQ = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus ds_s2XB (f_s2XR s_s2XQ) Text.ParserCombinators.ReadP.lvl =: Control.Exception.Base.patError "libraries/base/Text/ParserCombinators/ReadP.hs:(134,3)-(157,60)|function mplus" Control.Exception.Base.patError s_s2ZW = GHC.Exception.throw2 (Control.Exception.Base.PatternMatchFail (GHC.IO.Exception.untangle s_s2ZW Control.Exception.Base.lvl1)) Control.Exception.Base.$fExceptionPatternMatchFail_$ctoException Control.Exception.Base.lvl1 =: GHC.CString.unpackCString# "Non-exhaustive patterns in" Text.Read.Lex.a100$151 k_s99q = let !sat_s9ql_s9ql = Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a100$108 k_s99q)) (Text.Read.Lex.a100$107 k_s99q) in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s9ql_s9ql (Text.Read.Lex.a26 Text.Read.Lex.lvl8 (Text.Read.Lex.a100$109 k_s99q)) Text.Read.Lex.a100$109 k_s99q a104_s99N = k_s99q (Data.Maybe.Just (Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 a104_s99N)) Text.Read.Lex.lvl8 =: GHC.Types.I# 10 Text.Read.Lex.a26 base_s8TB eta_s8Tu = Text.ParserCombinators.ReadP.Look (Text.Read.Lex.a26$30 base_s8TB (Text.Read.Lex.a26$29 eta_s8Tu)) Text.Read.Lex.a26$29 eta_s8Tu a104_s8Tp = select a104_s8Tp (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.Fail) (<{GHC.Types.:}> ds1_s9la ds3_s9lb -> eta_s8Tu a104_s8Tp) Text.Read.Lex.a26$30 base_s8TB lvl85_s8Tv a104_s8Tx = select a104_s8Tx (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.Fail) (<{GHC.Types.:}> c_s8TE cs_s8VO -> select base_s8TB (GHC.Types.I# ww_s8Um -> select c_s8TE (GHC.Types.C# ww1_s8W7 -> let $j_s8W4 = Text.Read.Lex.a26$31 cs_s8VO ww_s8Um in select ww_s8Um (_ -> Text.Read.Lex.lvl7) (8 -> let !wild2_s9lx = leChar# '0' ww1_s8W7 in if wild2_s9lx (let !wild3_s9ly = leChar# ww1_s8W7 '7' in if wild3_s9ly (let !sat_s8Wc_s8Wc = ord# ww1_s8W7, !sat_s8Wd_s8Wd = <{-#}> sat_s8Wc_s8Wc 48 in $j_s8W4 (GHC.Types.I# sat_s8Wd_s8Wd) lvl85_s8Tv) Text.ParserCombinators.ReadP.Fail) Text.ParserCombinators.ReadP.Fail) (10 -> let !wild2_s9lz = leChar# '0' ww1_s8W7 in if wild2_s9lz (let !wild3_s9lA = leChar# ww1_s8W7 '9' in if wild3_s9lA (let !sat_s8Wj_s8Wj = ord# ww1_s8W7, !sat_s8Wk_s8Wk = <{-#}> sat_s8Wj_s8Wj 48 in $j_s8W4 (GHC.Types.I# sat_s8Wk_s8Wk) lvl85_s8Tv) Text.ParserCombinators.ReadP.Fail) Text.ParserCombinators.ReadP.Fail) (16 -> let $w$j_s8WO = Text.Read.Lex.a26$144 ww1_s8W7, !wild2_s9lI = leChar# '0' ww1_s8W7 in if wild2_s9lI (let !wild3_s9lK = leChar# ww1_s8W7 '9' in if wild3_s9lK (let !sat_s8WZ_s8WZ = ord# ww1_s8W7, !sat_s8X0_s8X0 = <{-#}> sat_s8WZ_s8WZ 48 in $j_s8W4 (GHC.Types.I# sat_s8X0_s8X0) lvl85_s8Tv) (select $w$j_s8WO (Data.Maybe.Nothing -> Text.ParserCombinators.ReadP.Fail) (Data.Maybe.Just n_s8WW -> $j_s8W4 n_s8WW lvl85_s8Tv))) (select $w$j_s8WO (Data.Maybe.Nothing -> Text.ParserCombinators.ReadP.Fail) (Data.Maybe.Just n_s8WS -> $j_s8W4 n_s8WS lvl85_s8Tv)))))) Text.Read.Lex.a26$144 ww1_s8W7 = let !wild2_s9lC = leChar# 'a' ww1_s8W7 in if wild2_s9lC (let !wild3_s9lF = leChar# ww1_s8W7 'f' in if wild3_s9lF (let !sat_s8WK_s8WK = ord# ww1_s8W7, !sat_s8WL_s8WL = <{-#}> sat_s8WK_s8WK 97, !sat_s8WM_s8WM = <{+#}> sat_s8WL_s8WL 10 in Data.Maybe.Just (GHC.Types.I# sat_s8WM_s8WM)) (let !wild4_s9lE = leChar# 'A' ww1_s8W7 in if wild4_s9lE (let !wild5_s9lG = leChar# ww1_s8W7 'F' in if wild5_s9lG (let !sat_s8WD_s8WD = ord# ww1_s8W7, !sat_s8WE_s8WE = <{-#}> sat_s8WD_s8WD 65, !sat_s8WF_s8WF = <{+#}> sat_s8WE_s8WE 10 in Data.Maybe.Just (GHC.Types.I# sat_s8WF_s8WF)) Data.Maybe.Nothing) Data.Maybe.Nothing)) (let !wild3_s9lB = leChar# 'A' ww1_s8W7 in if wild3_s9lB (let !wild4_s9lD = leChar# ww1_s8W7 'F' in if wild4_s9lD (let !sat_s8Wt_s8Wt = ord# ww1_s8W7, !sat_s8Wu_s8Wu = <{-#}> sat_s8Wt_s8Wt 65, !sat_s8Wv_s8Wv = <{+#}> sat_s8Wu_s8Wu 10 in Data.Maybe.Just (GHC.Types.I# sat_s8Wv_s8Wv)) Data.Maybe.Nothing) Data.Maybe.Nothing) Text.Read.Lex.lvl7 =: GHC.Err.error Text.Read.Lex.lvl6 Text.Read.Lex.lvl6 =: GHC.CString.unpackCString# "valDig: Bad base" Text.Read.Lex.a26$31 cs_s8VO ww_s8Um n_s8VQ = Text.Read.Lex.a26$32 (Text.Read.Lex.a26$145 cs_s8VO n_s8VQ ww_s8Um) Text.Read.Lex.a26$145 cs_s8VO n_s8VQ ww_s8Um = let scan_s8U8 = Text.Read.Lex.a26$33 scan_s8U8 ww_s8Um in scan_s8U8 cs_s8VO (Text.Read.Lex.a26$34 n_s8VQ) Text.Read.Lex.a26$34 n_s8VQ x34_s8VR = <{GHC.Types.:}> n_s8VQ x34_s8VR Text.Read.Lex.a26$33 scan_s8U8 ww_s8Um ds_s8TN f_s8TQ = select ds_s8TN (<{GHC.Types.[]}> -> Text.Read.Lex.a26$36 f_s8TQ) (<{GHC.Types.:}> c1_s8TX cs1_s8U3 -> select c1_s8TX (GHC.Types.C# ww2_s8Up -> select ww_s8Um (_ -> Text.Read.Lex.lvl7) (8 -> let !wild3_s9li = leChar# '0' ww2_s8Up in if wild3_s9li (let !wild4_s9lj = leChar# ww2_s8Up '7' in if wild4_s9lj (let !sat_s8UE_s8UE = ord# ww2_s8Up, !sat_s8UF_s8UF = <{-#}> sat_s8UE_s8UE 48 in Text.Read.Lex.a26$2 cs1_s8U3 f_s8TQ scan_s8U8 (GHC.Types.I# sat_s8UF_s8UF)) (Text.Read.Lex.a26$38 f_s8TQ)) (Text.Read.Lex.a26$37 f_s8TQ)) (10 -> let !wild3_s9lk = leChar# '0' ww2_s8Up in if wild3_s9lk (let !wild4_s9ll = leChar# ww2_s8Up '9' in if wild4_s9ll (let !sat_s8UV_s8UV = ord# ww2_s8Up, !sat_s8UW_s8UW = <{-#}> sat_s8UV_s8UV 48 in Text.Read.Lex.a26$2 cs1_s8U3 f_s8TQ scan_s8U8 (GHC.Types.I# sat_s8UW_s8UW)) (Text.Read.Lex.a26$40 f_s8TQ)) (Text.Read.Lex.a26$39 f_s8TQ)) (16 -> let $w$j_s8Vq = Text.Read.Lex.a26$146 ww2_s8Up, !wild3_s9lt = leChar# '0' ww2_s8Up in if wild3_s9lt (let !wild4_s9lv = leChar# ww2_s8Up '9' in if wild4_s9lv (let !sat_s8VL_s8VL = ord# ww2_s8Up, !sat_s8VM_s8VM = <{-#}> sat_s8VL_s8VL 48 in Text.Read.Lex.a26$2 cs1_s8U3 f_s8TQ scan_s8U8 (GHC.Types.I# sat_s8VM_s8VM)) (select $w$j_s8Vq (Data.Maybe.Nothing -> Text.Read.Lex.a26$42 f_s8TQ) (Data.Maybe.Just n1_s8VI -> Text.Read.Lex.a26$2 cs1_s8U3 f_s8TQ scan_s8U8 n1_s8VI))) (select $w$j_s8Vq (Data.Maybe.Nothing -> Text.Read.Lex.a26$41 f_s8TQ) (Data.Maybe.Just n1_s8Vz -> Text.Read.Lex.a26$2 cs1_s8U3 f_s8TQ scan_s8U8 n1_s8Vz))))) Text.Read.Lex.a26$2 cs1_s8U3 f_s8TQ scan_s8U8 n1_s8U5 = Text.Read.Lex.a26$43 (scan_s8U8 cs1_s8U3 (Text.Read.Lex.a26$44 f_s8TQ n1_s8U5)) Text.Read.Lex.a26$44 f_s8TQ n1_s8U5 x34_s8U6 = f_s8TQ (<{GHC.Types.:}> n1_s8U5 x34_s8U6) Text.Read.Lex.a26$43 lvl87_s8Ub k_s8Ue = Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a26$45 k_s8Ue lvl87_s8Ub) Text.Read.Lex.a26$45 k_s8Ue lvl87_s8Ub a105_s8Uh = lvl87_s8Ub k_s8Ue Text.Read.Lex.a26$41 f_s8TQ k_s8Vw = k_s8Vw (f_s8TQ <{GHC.Types.[]}>) Text.Read.Lex.a26$42 f_s8TQ k_s8VF = k_s8VF (f_s8TQ <{GHC.Types.[]}>) Text.Read.Lex.a26$146 ww2_s8Up = let !wild3_s9ln = leChar# 'a' ww2_s8Up in if wild3_s9ln (let !wild4_s9lq = leChar# ww2_s8Up 'f' in if wild4_s9lq (let !sat_s8Vm_s8Vm = ord# ww2_s8Up, !sat_s8Vn_s8Vn = <{-#}> sat_s8Vm_s8Vm 97, !sat_s8Vo_s8Vo = <{+#}> sat_s8Vn_s8Vn 10 in Data.Maybe.Just (GHC.Types.I# sat_s8Vo_s8Vo)) (let !wild5_s9lp = leChar# 'A' ww2_s8Up in if wild5_s9lp (let !wild6_s9lr = leChar# ww2_s8Up 'F' in if wild6_s9lr (let !sat_s8Vf_s8Vf = ord# ww2_s8Up, !sat_s8Vg_s8Vg = <{-#}> sat_s8Vf_s8Vf 65, !sat_s8Vh_s8Vh = <{+#}> sat_s8Vg_s8Vg 10 in Data.Maybe.Just (GHC.Types.I# sat_s8Vh_s8Vh)) Data.Maybe.Nothing) Data.Maybe.Nothing)) (let !wild4_s9lm = leChar# 'A' ww2_s8Up in if wild4_s9lm (let !wild5_s9lo = leChar# ww2_s8Up 'F' in if wild5_s9lo (let !sat_s8V5_s8V5 = ord# ww2_s8Up, !sat_s8V6_s8V6 = <{-#}> sat_s8V5_s8V5 65, !sat_s8V7_s8V7 = <{+#}> sat_s8V6_s8V6 10 in Data.Maybe.Just (GHC.Types.I# sat_s8V7_s8V7)) Data.Maybe.Nothing) Data.Maybe.Nothing) Text.Read.Lex.a26$39 f_s8TQ k_s8UL = k_s8UL (f_s8TQ <{GHC.Types.[]}>) Text.Read.Lex.a26$40 f_s8TQ k_s8UR = k_s8UR (f_s8TQ <{GHC.Types.[]}>) Text.Read.Lex.a26$37 f_s8TQ k_s8Uu = k_s8Uu (f_s8TQ <{GHC.Types.[]}>) Text.Read.Lex.a26$38 f_s8TQ k_s8UA = k_s8UA (f_s8TQ <{GHC.Types.[]}>) Text.Read.Lex.a26$36 f_s8TQ k_s8TT = k_s8TT (f_s8TQ <{GHC.Types.[]}>) Text.Read.Lex.a26$32 lvl86_s8VU k_s8VX = Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a26$35 k_s8VX lvl86_s8VU) Text.Read.Lex.a26$35 k_s8VX lvl86_s8VU a105_s8W0 = lvl86_s8VU k_s8VX Text.Read.Lex.a100$107 k_s99q a104_s99y = select a104_s99y (GHC.Types.C# c2_s99B -> select c2_s99B (_ -> Text.ParserCombinators.ReadP.Fail) ('+' -> Text.Read.Lex.a26 Text.Read.Lex.lvl8 (Text.Read.Lex.a100$110 k_s99q))) Text.Read.Lex.a100$110 k_s99q a105_s99E = k_s99q (Data.Maybe.Just (Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 a105_s99E)) Text.Read.Lex.a100$108 k_s99q a104_s99h = select a104_s99h (GHC.Types.C# c2_s99k -> select c2_s99k (_ -> Text.ParserCombinators.ReadP.Fail) ('-' -> Text.Read.Lex.a26 Text.Read.Lex.lvl8 (Text.Read.Lex.a100$111 k_s99q))) Text.Read.Lex.a100$111 k_s99q a105_s99n = k_s99q (Data.Maybe.Just (Text.Read.Lex.a100$152 a105_s99n)) Text.Read.Lex.a100$152 a105_s99n = let !sat_s9qm_s9qm = Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 a105_s99n in GHC.Integer.Type.negateInteger sat_s9qm_s9qm <{Text.ParserCombinators.ReadP.<++1}> ds_s39x q_s39I eta_s3aa = let probe_s39N = <{Text.ParserCombinators.ReadP.<++1$82}> probe_s39N q_s39I in Text.ParserCombinators.ReadP.Look (<{Text.ParserCombinators.ReadP.<++1$83}> ds_s39x eta_s3aa probe_s39N) <{Text.ParserCombinators.ReadP.<++1$83}> ds_s39x eta_s3aa probe_s39N a1_s3a9 = probe_s39N (ds_s39x Text.ParserCombinators.ReadP.$fMonadP_$creturn) a1_s3a9 0 eta_s3aa <{Text.ParserCombinators.ReadP.<++1$82}> probe_s39N q_s39I ds1_s39D ds2_s39G n_s39Q = select ds1_s39D (Text.ParserCombinators.ReadP.Get f_s39M -> select ds2_s39G (<{GHC.Types.[]}> -> q_s39I) (<{GHC.Types.:}> c_s39L s_s39P -> let !sat_s3fj_s3fj = <{+#}> n_s39Q 1, !sat_s3fk_s3fk = f_s39M c_s39L in probe_s39N sat_s3fk_s3fk s_s39P sat_s3fj_s3fj)) (Text.ParserCombinators.ReadP.Look f_s39T -> let !sat_s3fe_s3fe = f_s39T ds2_s39G in probe_s39N sat_s3fe_s3fe ds2_s39G n_s39Q) (Text.ParserCombinators.ReadP.Fail -> q_s39I) (Text.ParserCombinators.ReadP.Result ds3_s3fh ds4_s3fi -> <{Text.ParserCombinators.ReadP.<++1$84}> ds1_s39D n_s39Q) (Text.ParserCombinators.ReadP.Final r_s3fg -> <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=}> ds1_s39D) <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=}> ds_s2Zf k_s2Zm = select ds_s2Zf (Text.ParserCombinators.ReadP.Get f_s2Zk -> Text.ParserCombinators.ReadP.Get (<{Text.ParserCombinators.ReadP.$fMonadP_$c>>=$16}> f_s2Zk k_s2Zm)) (Text.ParserCombinators.ReadP.Look f_s2Zr -> Text.ParserCombinators.ReadP.Look (<{Text.ParserCombinators.ReadP.$fMonadP_$c>>=$17}> f_s2Zr k_s2Zm)) (Text.ParserCombinators.ReadP.Fail -> Text.ParserCombinators.ReadP.Fail) (Text.ParserCombinators.ReadP.Result x_s2Zw p_s2Zy -> let !sat_s3bU_s3bU = k_s2Zm x_s2Zw in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s3bU_s3bU (<{Text.ParserCombinators.ReadP.$fMonadP_$c>>=}> p_s2Zy k_s2Zm)) (Text.ParserCombinators.ReadP.Final r_s2ZS -> let go_s2ZQ = <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=$18}> go_s2ZQ k_s2Zm, !wild1_s2ZW = go_s2ZQ r_s2ZS in select wild1_s2ZW (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.Fail) (<{GHC.Types.:}> ipv_s3bY ipv1_s3bZ -> Text.ParserCombinators.ReadP.Final wild1_s2ZW)) <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=$18}> go_s2ZQ k_s2Zm ds1_s2ZD = select ds1_s2ZD (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> y_s2ZH ys_s2ZP -> select y_s2ZH (<{GHC.Tuple.(,)}> x_s2ZL s_s2ZN -> let !sat_s3bV_s3bV = k_s2Zm x_s2ZL, !sat_s3bX_s3bX = Text.ParserCombinators.ReadP.run sat_s3bV_s3bV s_s2ZN in <{GHC.Base.++}> sat_s3bX_s3bX (go_s2ZQ ys_s2ZP))) <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=$17}> f_s2Zr k_s2Zm s_s2Zq = let !sat_s3bR_s3bR = f_s2Zr s_s2Zq in <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=}> sat_s3bR_s3bR k_s2Zm <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=$16}> f_s2Zk k_s2Zm c_s2Zj = let !sat_s3bO_s3bO = f_s2Zk c_s2Zj in <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=}> sat_s3bO_s3bO k_s2Zm <{Text.ParserCombinators.ReadP.<++1$84}> ds1_s39D n_s39Q k_s3a0 = <{Text.ParserCombinators.ReadP.<++2}> n_s39Q (<{Text.ParserCombinators.ReadP.<++1$85}> ds1_s39D k_s3a0) <{Text.ParserCombinators.ReadP.<++1$85}> ds1_s39D k_s3a0 a1_s3a3 = <{Text.ParserCombinators.ReadP.$fMonadP_$c>>=}> ds1_s39D k_s3a0 <{Text.ParserCombinators.ReadP.<++2}> ds_s39i eta_s39n = select ds_s39i (_ -> Text.ParserCombinators.ReadP.Get (<{Text.ParserCombinators.ReadP.<++2$81}> (<{Text.ParserCombinators.ReadP.<++2$96}> ds_s39i eta_s39n))) (0 -> eta_s39n <{GHC.Tuple.()}>) <{Text.ParserCombinators.ReadP.<++2$96}> ds_s39i eta_s39n = let !sat_s39o_s39o = <{-#}> ds_s39i 1 in <{Text.ParserCombinators.ReadP.<++2}> sat_s39o_s39o eta_s39n <{Text.ParserCombinators.ReadP.<++2$81}> lvl4_s39p a1_s39r = lvl4_s39p Text.Read.Lex.a101 k_s9ae = k_s9ae Data.Maybe.Nothing Text.Read.Lex.a28 k_s8Y3 = Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a28$52 (Text.Read.Lex.a26 Text.Read.Lex.lvl8 (Text.Read.Lex.a28$53 k_s8Y3))) Text.Read.Lex.a28$53 k_s8Y3 a104_s8Y2 = k_s8Y3 (Data.Maybe.Just a104_s8Y2) Text.Read.Lex.a28$52 lvl85_s8Y7 a104_s8Y9 = select a104_s8Y9 (GHC.Types.C# c2_s8Yc -> select c2_s8Yc (_ -> Text.ParserCombinators.ReadP.Fail) ('.' -> lvl85_s8Y7)) Text.Read.Lex.a27 k_s8X9 = Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a27$47 (Text.Read.Lex.a27$46 (Text.Read.Lex.a26 Text.Read.Lex.lvl1 (Text.Read.Lex.a27$51 k_s8X9)) (Text.Read.Lex.a26 Text.Read.Lex.lvl (Text.Read.Lex.a27$50 k_s8X9)) (Text.Read.Lex.a26 Text.Read.Lex.lvl1 (Text.Read.Lex.a27$49 k_s8X9)) (Text.Read.Lex.a26 Text.Read.Lex.lvl (Text.Read.Lex.a27$48 k_s8X9)))) Text.Read.Lex.a27$48 k_s8X9 a104_s8Xz = k_s8X9 (Text.Read.Lex.Number (Text.Read.Lex.MkNumber Text.Read.Lex.lvl a104_s8Xz)) Text.Read.Lex.lvl =: GHC.Types.I# 8 Text.Read.Lex.a27$49 k_s8X9 a104_s8Xq = k_s8X9 (Text.Read.Lex.Number (Text.Read.Lex.MkNumber Text.Read.Lex.lvl1 a104_s8Xq)) Text.Read.Lex.lvl1 =: GHC.Types.I# 16 Text.Read.Lex.a27$50 k_s8X9 a104_s8Xh = k_s8X9 (Text.Read.Lex.Number (Text.Read.Lex.MkNumber Text.Read.Lex.lvl a104_s8Xh)) Text.Read.Lex.a27$51 k_s8X9 a104_s8X7 = k_s8X9 (Text.Read.Lex.Number (Text.Read.Lex.MkNumber Text.Read.Lex.lvl1 a104_s8X7)) Text.Read.Lex.a27$46 lvl85_s8Xe lvl86_s8Xn lvl87_s8Xw lvl88_s8XF a105_s8XI = select a105_s8XI (GHC.Types.C# ds_s8XL -> select ds_s8XL (_ -> Text.ParserCombinators.ReadP.Fail) ('O' -> lvl88_s8XF) ('X' -> lvl87_s8Xw) ('o' -> lvl86_s8Xn) ('x' -> lvl85_s8Xe)) Text.Read.Lex.a27$47 a104_s8XN a105_s8XR = select a105_s8XR (GHC.Types.C# c2_s8XU -> select c2_s8XU (_ -> Text.ParserCombinators.ReadP.Fail) ('0' -> Text.ParserCombinators.ReadP.Get a104_s8XN)) Text.Read.Lex.hsLex2$121 k_s9az a105_s9cr = let !wild_s9ra = GHC.Unicode.isAlpha a105_s9cr in if wild_s9ra (Text.ParserCombinators.ReadP.munch2 Text.Read.Lex.isIdfChar (Text.Read.Lex.hsLex2$127 a105_s9cr k_s9az)) (select a105_s9cr (GHC.Types.C# c1_s9cv -> select c1_s9cv (_ -> Text.ParserCombinators.ReadP.Fail) ('_' -> Text.ParserCombinators.ReadP.munch2 Text.Read.Lex.isIdfChar (Text.Read.Lex.hsLex2$126 a105_s9cr k_s9az)))) Text.Read.Lex.hsLex2$126 a105_s9cr k_s9az a106_s9cz = k_s9az (Text.Read.Lex.Ident (<{GHC.Types.:}> a105_s9cr a106_s9cz)) Text.Read.Lex.isIdfChar c_s8Ob = let !wild_s9ip = GHC.Unicode.isAlphaNum c_s8Ob in if wild_s9ip true (GHC.List.elem GHC.Classes.$fEqChar c_s8Ob Text.Read.Lex.lvl2) Text.Read.Lex.lvl2 =: GHC.CString.unpackCString# "_\'" GHC.Classes.$fEqChar =: <{GHC.Classes.D:Eq}> <{GHC.Classes.$fEqChar_$c==}> <{GHC.Classes.$fEqChar_$c/=}> <{GHC.Classes.$fEqChar_$c/=}> ds_s7pJ ds1_s7pM = select ds_s7pJ (GHC.Types.C# c1_s7pP -> select ds1_s7pM (GHC.Types.C# c2_s7pQ -> neChar# c1_s7pP c2_s7pQ)) <{GHC.Classes.$fEqChar_$c==}> ds_s7pT ds1_s7pW = select ds_s7pT (GHC.Types.C# c1_s7pZ -> select ds1_s7pW (GHC.Types.C# c2_s7q0 -> eqChar# c1_s7pZ c2_s7q0)) :: GHC.Classes.Eq = <{GHC.Classes.D:Eq}> a1 a2 GHC.List.elem $dEq_s3yf ds_s3yg ds1_s3yb = select ds1_s3yb (<{GHC.Types.[]}> -> false) (<{GHC.Types.:}> y_s3yh ys_s3yj -> let !wild1_s3Mv = <{GHC.Classes.==}> $dEq_s3yf ds_s3yg y_s3yh in if wild1_s3Mv true (GHC.List.elem $dEq_s3yf ds_s3yg ys_s3yj)) <{GHC.Classes.==}> tpl_s7kT_s7kT = select tpl_s7kT_s7kT (<{GHC.Classes.D:Eq}> tpl_s7kX_s7kX tpl_sa8s_sa8s -> tpl_s7kX_s7kX) GHC.Unicode.isAlphaNum c_s2dC = select c_s2dC (GHC.Types.C# c#_s2dG -> let !sat_s2g9_s2g9 = ord# c#_s2dG, !wild1_s2gc = ffi_wrapper3 u_iswalnum sat_s2g9_s2g9 GHC.Prim.realWorld# in select wild1_s2gc (<{GHC.Tuple.(,)}> ds_s2gb ds1_s2dM -> select ds1_s2dM (_ -> true) (0 -> false))) Text.ParserCombinators.ReadP.munch2 p_s348 eta_s34v = let scan_s34c = Text.ParserCombinators.ReadP.munch2$43 p_s348 scan_s34c in Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.munch2$44 eta_s34v scan_s34c) Text.ParserCombinators.ReadP.munch2$44 eta_s34v scan_s34c a1_s34u = scan_s34c a1_s34u eta_s34v Text.ParserCombinators.ReadP.munch2$43 p_s348 scan_s34c ds_s343 = select ds_s343 (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.munch3) (<{GHC.Types.:}> c_s347 cs_s34b -> let !wild1_s3du = p_s348 c_s347 in if wild1_s3du (Text.ParserCombinators.ReadP.munch2$45 c_s347 (scan_s34c cs_s34b)) Text.ParserCombinators.ReadP.munch3) Text.ParserCombinators.ReadP.munch3 eta_s33Y = eta_s33Y <{GHC.Types.[]}> Text.ParserCombinators.ReadP.munch2$45 c_s347 ds1_s34d k_s34i = Text.ParserCombinators.ReadP.Get (Text.ParserCombinators.ReadP.munch2$46 (ds1_s34d (Text.ParserCombinators.ReadP.munch2$47 c_s347 k_s34i))) Text.ParserCombinators.ReadP.munch2$47 c_s347 k_s34i a1_s34h = k_s34i (<{GHC.Types.:}> c_s347 a1_s34h) Text.ParserCombinators.ReadP.munch2$46 lvl4_s34m a1_s34o = lvl4_s34m Text.Read.Lex.hsLex2$127 a105_s9cr k_s9az a106_s9cF = k_s9az (Text.Read.Lex.Ident (<{GHC.Types.:}> a105_s9cr a106_s9cF)) GHC.Unicode.isAlpha c_s2dP = select c_s2dP (GHC.Types.C# c#_s2dT -> let !sat_s2gf_s2gf = ord# c#_s2dT, !wild1_s2gi = ffi_wrapper3 u_iswalpha sat_s2gf_s2gf GHC.Prim.realWorld# in select wild1_s2gi (<{GHC.Tuple.(,)}> ds_s2gh ds1_s2dZ -> select ds1_s2dZ (_ -> true) (0 -> false))) Text.Read.Lex.hsLex2$120 k_s9az a105_s9cd = let !wild_s9rb = GHC.List.elem GHC.Classes.$fEqChar a105_s9cd Text.Read.Lex.lvl3 in if wild_s9rb (Text.ParserCombinators.ReadP.munch2 Text.Read.Lex.a25 (Text.Read.Lex.hsLex2$125 a105_s9cd k_s9az)) Text.ParserCombinators.ReadP.Fail Text.Read.Lex.hsLex2$125 a105_s9cd k_s9az a106_s9ch = let s_s9ci = <{GHC.Types.:}> a105_s9cd a106_s9ch, !wild1_s9rc = GHC.List.elem Text.Read.Lex.$dEq s_s9ci Text.Read.Lex.reserved_ops in if wild1_s9rc (k_s9az (Text.Read.Lex.Punc s_s9ci)) (k_s9az (Text.Read.Lex.Symbol s_s9ci)) Text.Read.Lex.reserved_ops =: <{GHC.Types.:}> Text.Read.Lex.a1 Text.Read.Lex.a24 Text.Read.Lex.a24 =: <{GHC.Types.:}> Text.Read.Lex.a2 Text.Read.Lex.a23 Text.Read.Lex.a23 =: <{GHC.Types.:}> Text.Read.Lex.a4 Text.Read.Lex.a22 Text.Read.Lex.a22 =: <{GHC.Types.:}> Text.Read.Lex.a6 Text.Read.Lex.a21 Text.Read.Lex.a21 =: <{GHC.Types.:}> Text.Read.Lex.a8 Text.Read.Lex.a20 Text.Read.Lex.a20 =: <{GHC.Types.:}> Text.Read.Lex.a9 Text.Read.Lex.a19 Text.Read.Lex.a19 =: <{GHC.Types.:}> Text.Read.Lex.a10 Text.Read.Lex.a18 Text.Read.Lex.a18 =: <{GHC.Types.:}> Text.Read.Lex.a12 Text.Read.Lex.a17 Text.Read.Lex.a17 =: <{GHC.Types.:}> Text.Read.Lex.a14 Text.Read.Lex.a16 Text.Read.Lex.a16 =: <{GHC.Types.:}> Text.Read.Lex.a15 <{GHC.Types.[]}> Text.Read.Lex.a15 =: GHC.CString.unpackCString# "=>" Text.Read.Lex.a14 =: <{GHC.Types.:}> Text.Read.Lex.a13 <{GHC.Types.[]}> Text.Read.Lex.a13 =: GHC.Types.C# '~' Text.Read.Lex.a12 =: <{GHC.Types.:}> Text.Read.Lex.a11 <{GHC.Types.[]}> Text.Read.Lex.a11 =: GHC.Types.C# '@' Text.Read.Lex.a10 =: GHC.CString.unpackCString# "->" Text.Read.Lex.a9 =: GHC.CString.unpackCString# "<-" Text.Read.Lex.a8 =: <{GHC.Types.:}> Text.Read.Lex.a7 <{GHC.Types.[]}> Text.Read.Lex.a7 =: GHC.Types.C# '|' Text.Read.Lex.a6 =: <{GHC.Types.:}> Text.Read.Lex.a5 <{GHC.Types.[]}> Text.Read.Lex.a5 =: GHC.Types.C# '\\' Text.Read.Lex.a4 =: <{GHC.Types.:}> Text.Read.Lex.a3 <{GHC.Types.[]}> Text.Read.Lex.a3 =: GHC.Types.C# '=' Text.Read.Lex.a2 =: GHC.CString.unpackCString# "::" Text.Read.Lex.a1 =: GHC.CString.unpackCString# ".." Text.Read.Lex.$dEq =: <{GHC.Classes.$fEq[]}> GHC.Classes.$fEqChar <{GHC.Classes.$fEq[]}> $dEq_s7sb = <{GHC.Classes.D:Eq}> (<{GHC.Classes.$fEq[]$2}> $dEq_s7sb) (<{GHC.Classes.$fEq[]$1}> $dEq_s7sb) <{GHC.Classes.$fEq[]$1}> $dEq_s7sb eta_B2_B2 eta_B1_B1 = <{GHC.Classes.$fEq[]_$c/=}> $dEq_s7sb eta_B2_B2 eta_B1_B1 <{GHC.Classes.$fEq[]_$c/=}> $dEq_s7s6 eta_s7s7 eta1_s7s8 = let !wild_safr = <{GHC.Classes.$fEq[]_$c==}> $dEq_s7s6 eta_s7s7 eta1_s7s8 in if wild_safr false true <{GHC.Classes.$fEq[]_$c==}> $dEq_s7rX ds_s7rM ds1_s7rO = select ds_s7rM (<{GHC.Types.[]}> -> select ds1_s7rO (<{GHC.Types.[]}> -> true) (<{GHC.Types.:}> ipv_safl ipv1_safm -> false)) (<{GHC.Types.:}> x_s7rY xs_s7s1 -> select ds1_s7rO (<{GHC.Types.[]}> -> false) (<{GHC.Types.:}> y_s7rZ ys_s7s2 -> let !wild2_safo = <{GHC.Classes.==}> $dEq_s7rX x_s7rY y_s7rZ in if wild2_safo (<{GHC.Classes.$fEq[]_$c==}> $dEq_s7rX xs_s7s1 ys_s7s2) false)) <{GHC.Classes.$fEq[]$2}> $dEq_s7sb eta_B2_B2 eta_B1_B1 = <{GHC.Classes.$fEq[]_$c==}> $dEq_s7sb eta_B2_B2 eta_B1_B1 Text.Read.Lex.a25 c_s8OF = GHC.List.elem GHC.Classes.$fEqChar c_s8OF Text.Read.Lex.lvl3 Text.Read.Lex.lvl3 =: GHC.CString.unpackCString# "!@#$%&*+./<=>?\\^|:-~" Text.Read.Lex.hsLex2$119 k_s9az a105_s9c4 = let !wild_s9rd = GHC.List.elem GHC.Classes.$fEqChar a105_s9c4 Text.Read.Lex.lvl4 in if wild_s9rd (k_s9az (Text.Read.Lex.Punc (<{GHC.Types.:}> a105_s9c4 <{GHC.Types.[]}>))) Text.ParserCombinators.ReadP.Fail Text.Read.Lex.lvl4 =: GHC.CString.unpackCString# ",;()[]{}`" Text.Read.Lex.hsLex2$118 k_s9az a105_s9bV = select a105_s9bV (GHC.Types.C# c2_s9bY -> select c2_s9bY (_ -> Text.ParserCombinators.ReadP.Fail) ('\"' -> Text.Read.Lex.a99 GHC.Base.id k_s9az)) Text.Read.Lex.a99 f_s98K eta_s98M = Text.Read.Lex.a98 (Text.Read.Lex.a99$102 eta_s98M f_s98K) Text.Read.Lex.a99$102 eta_s98M f_s98K a104_s98S = select a104_s98S (<{GHC.Tuple.(,)}> c_s98W esc_s996 -> select c_s98W (GHC.Types.C# c1_s98Z -> select c1_s98Z (_ -> Text.Read.Lex.a99 (Text.Read.Lex.a99$103 c_s98W f_s98K) eta_s98M) ('\"' -> if esc_s996 (Text.Read.Lex.a99 (Text.Read.Lex.a99$104 c_s98W f_s98K) eta_s98M) (eta_s98M (Text.Read.Lex.String (f_s98K <{GHC.Types.[]}>)))))) Text.Read.Lex.a99$104 c_s98W f_s98K x34_s999 = f_s98K (<{GHC.Types.:}> c_s98W x34_s999) Text.Read.Lex.a99$103 c_s98W f_s98K x34_s993 = f_s98K (<{GHC.Types.:}> c_s98W x34_s993) Text.Read.Lex.a98 k_s97O = let lvl86_s97R = Text.Read.Lex.a98 k_s97O in Text.ParserCombinators.ReadP.$fMonadPlusP_$s$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a98$101 (Text.Read.Lex.a98$99 (Text.Read.Lex.a98$98 (Text.Read.Lex.a98$97 (Text.Read.Lex.a98$96 lvl86_s97R))) lvl86_s97R))) (Text.Read.Lex.a98$100 k_s97O) Text.Read.Lex.a98$100 k_s97O a107_s98y = select a107_s98y (GHC.Types.C# c1_s98B -> select c1_s98B (_ -> k_s97O (<{GHC.Tuple.(,)}> a107_s98y false)) ('\\' -> Text.Read.Lex.lexChar2 k_s97O)) Text.Read.Lex.lexChar2 k_s953 = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.lexChar2$88 k_s953)) (Text.Read.Lex.lexChar2$147 k_s953) Text.Read.Lex.lexChar2$147 k_s953 = let !sat_s9pC_s9pC = <{Text.ParserCombinators.ReadP.<++1}> Text.Read.Lex.a Text.Read.Lex.a97 (Text.Read.Lex.lexChar2$89 k_s953) in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s9pC_s9pC (Text.Read.Lex.lexChar2$148 k_s953) Text.Read.Lex.lexChar2$148 k_s953 = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.lexChar2$91 (Text.Read.Lex.lexChar2$90 k_s953))) (Text.Read.Lex.lexChar2$149 k_s953) Text.Read.Lex.lexChar2$149 k_s953 = let k1_s97j = Text.Read.Lex.lexChar2$92 k_s953, !sat_s9pw_s9pw = <{Text.ParserCombinators.ReadP.<++1}> Text.Read.Lex.a30 Text.Read.Lex.a32 k1_s97j in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s9pw_s9pw (Text.Read.Lex.ds2 k1_s97j) Text.Read.Lex.ds2 =: Text.ParserCombinators.ReadP.choice_$schoice Text.Read.Lex.a34 Text.Read.Lex.lvl39 Text.Read.Lex.lvl39 =: <{GHC.Types.:}> Text.Read.Lex.a36 Text.Read.Lex.lvl38 Text.Read.Lex.lvl38 =: <{GHC.Types.:}> Text.Read.Lex.a38 Text.Read.Lex.lvl37 Text.Read.Lex.lvl37 =: <{GHC.Types.:}> Text.Read.Lex.a40 Text.Read.Lex.lvl36 Text.Read.Lex.lvl36 =: <{GHC.Types.:}> Text.Read.Lex.a42 Text.Read.Lex.lvl35 Text.Read.Lex.lvl35 =: <{GHC.Types.:}> Text.Read.Lex.a44 Text.Read.Lex.lvl34 Text.Read.Lex.lvl34 =: <{GHC.Types.:}> Text.Read.Lex.a46 Text.Read.Lex.lvl33 Text.Read.Lex.lvl33 =: <{GHC.Types.:}> Text.Read.Lex.a48 Text.Read.Lex.lvl32 Text.Read.Lex.lvl32 =: <{GHC.Types.:}> Text.Read.Lex.a50 Text.Read.Lex.lvl31 Text.Read.Lex.lvl31 =: <{GHC.Types.:}> Text.Read.Lex.a52 Text.Read.Lex.lvl30 Text.Read.Lex.lvl30 =: <{GHC.Types.:}> Text.Read.Lex.a54 Text.Read.Lex.lvl29 Text.Read.Lex.lvl29 =: <{GHC.Types.:}> Text.Read.Lex.a56 Text.Read.Lex.lvl28 Text.Read.Lex.lvl28 =: <{GHC.Types.:}> Text.Read.Lex.a58 Text.Read.Lex.lvl27 Text.Read.Lex.lvl27 =: <{GHC.Types.:}> Text.Read.Lex.a60 Text.Read.Lex.lvl26 Text.Read.Lex.lvl26 =: <{GHC.Types.:}> Text.Read.Lex.a62 Text.Read.Lex.lvl25 Text.Read.Lex.lvl25 =: <{GHC.Types.:}> Text.Read.Lex.a64 Text.Read.Lex.lvl24 Text.Read.Lex.lvl24 =: <{GHC.Types.:}> Text.Read.Lex.a66 Text.Read.Lex.lvl23 Text.Read.Lex.lvl23 =: <{GHC.Types.:}> Text.Read.Lex.a68 Text.Read.Lex.lvl22 Text.Read.Lex.lvl22 =: <{GHC.Types.:}> Text.Read.Lex.a70 Text.Read.Lex.lvl21 Text.Read.Lex.lvl21 =: <{GHC.Types.:}> Text.Read.Lex.a72 Text.Read.Lex.lvl20 Text.Read.Lex.lvl20 =: <{GHC.Types.:}> Text.Read.Lex.a74 Text.Read.Lex.lvl19 Text.Read.Lex.lvl19 =: <{GHC.Types.:}> Text.Read.Lex.a76 Text.Read.Lex.lvl18 Text.Read.Lex.lvl18 =: <{GHC.Types.:}> Text.Read.Lex.a78 Text.Read.Lex.lvl17 Text.Read.Lex.lvl17 =: <{GHC.Types.:}> Text.Read.Lex.a80 Text.Read.Lex.lvl16 Text.Read.Lex.lvl16 =: <{GHC.Types.:}> Text.Read.Lex.a82 Text.Read.Lex.lvl15 Text.Read.Lex.lvl15 =: <{GHC.Types.:}> Text.Read.Lex.a84 Text.Read.Lex.lvl14 Text.Read.Lex.lvl14 =: <{GHC.Types.:}> Text.Read.Lex.a86 Text.Read.Lex.lvl13 Text.Read.Lex.lvl13 =: <{GHC.Types.:}> Text.Read.Lex.a88 Text.Read.Lex.lvl12 Text.Read.Lex.lvl12 =: <{GHC.Types.:}> Text.Read.Lex.a90 Text.Read.Lex.lvl11 Text.Read.Lex.lvl11 =: <{GHC.Types.:}> Text.Read.Lex.a92 Text.Read.Lex.lvl10 Text.Read.Lex.lvl10 =: <{GHC.Types.:}> Text.Read.Lex.a94 Text.Read.Lex.lvl9 Text.Read.Lex.lvl9 =: <{GHC.Types.:}> Text.Read.Lex.a96 <{GHC.Types.[]}> Text.Read.Lex.a96 k_s93E = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a95 (Text.Read.Lex.a96$87 k_s93E) Text.Read.Lex.a96$87 k_s93E a104_s93H = k_s93E Text.Read.Lex.x33 Text.Read.Lex.x33 =: GHC.Types.C# '\x7f' Text.Read.Lex.a95 =: GHC.CString.unpackCString# "DEL" Text.ParserCombinators.ReadP.string1 this_s33i eta_s33V = let scan_s33I = Text.ParserCombinators.ReadP.string1$39 (Text.ParserCombinators.ReadP.string1$38 this_s33i) scan_s33I in Text.ParserCombinators.ReadP.Look (Text.ParserCombinators.ReadP.string1$40 eta_s33V scan_s33I this_s33i) Text.ParserCombinators.ReadP.string1$40 eta_s33V scan_s33I this_s33i a2_s33U = scan_s33I this_s33i a2_s33U eta_s33V Text.ParserCombinators.ReadP.string1$38 this_s33i k_s33j = k_s33j this_s33i Text.ParserCombinators.ReadP.string1$39 a1_s33k scan_s33I ds_s33o ds1_s33s = select ds_s33o (<{GHC.Types.[]}> -> a1_s33k) (<{GHC.Types.:}> x_s33w xs_s33G -> select ds1_s33s (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.string3) (<{GHC.Types.:}> y_s33z ys_s33H -> select x_s33w (GHC.Types.C# c1_s33C -> select y_s33z (GHC.Types.C# c2_s33D -> let !wild4_s3dl = eqChar# c1_s33C c2_s33D in if wild4_s3dl (Text.ParserCombinators.ReadP.string1$41 (scan_s33I xs_s33G ys_s33H)) Text.ParserCombinators.ReadP.string2)))) Text.ParserCombinators.ReadP.string2 eta_B1_B1 = Text.ParserCombinators.ReadP.string3 eta_B1_B1 Text.ParserCombinators.ReadP.string3 eta_s33d = Text.ParserCombinators.ReadP.Fail Text.ParserCombinators.ReadP.string1$41 lvl4_s33J k_s33M = Text.ParserCombinators.ReadP.Get (Text.ParserCombinators.ReadP.string1$42 k_s33M lvl4_s33J) Text.ParserCombinators.ReadP.string1$42 k_s33M lvl4_s33J a2_s33P = lvl4_s33J k_s33M Text.Read.Lex.a94 k_s93u = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a93 (Text.Read.Lex.a94$86 k_s93u) Text.Read.Lex.a94$86 k_s93u a104_s93x = k_s93u Text.Read.Lex.x32 Text.Read.Lex.x32 =: GHC.Types.C# ' ' Text.Read.Lex.a93 =: GHC.CString.unpackCString# "SP" Text.Read.Lex.a92 k_s93k = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a91 (Text.Read.Lex.a92$85 k_s93k) Text.Read.Lex.a92$85 k_s93k a104_s93n = k_s93k Text.Read.Lex.x31 Text.Read.Lex.x31 =: GHC.Types.C# '\x1f' Text.Read.Lex.a91 =: GHC.CString.unpackCString# "US" Text.Read.Lex.a90 k_s93a = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a89 (Text.Read.Lex.a90$84 k_s93a) Text.Read.Lex.a90$84 k_s93a a104_s93d = k_s93a Text.Read.Lex.x30 Text.Read.Lex.x30 =: GHC.Types.C# '\x1e' Text.Read.Lex.a89 =: GHC.CString.unpackCString# "RS" Text.Read.Lex.a88 k_s930 = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a87 (Text.Read.Lex.a88$83 k_s930) Text.Read.Lex.a88$83 k_s930 a104_s933 = k_s930 Text.Read.Lex.x29 Text.Read.Lex.x29 =: GHC.Types.C# '\x1d' Text.Read.Lex.a87 =: GHC.CString.unpackCString# "GS" Text.Read.Lex.a86 k_s92Q = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a85 (Text.Read.Lex.a86$82 k_s92Q) Text.Read.Lex.a86$82 k_s92Q a104_s92T = k_s92Q Text.Read.Lex.x28 Text.Read.Lex.x28 =: GHC.Types.C# '\x1c' Text.Read.Lex.a85 =: GHC.CString.unpackCString# "FS" Text.Read.Lex.a84 k_s92G = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a83 (Text.Read.Lex.a84$81 k_s92G) Text.Read.Lex.a84$81 k_s92G a104_s92J = k_s92G Text.Read.Lex.x27 Text.Read.Lex.x27 =: GHC.Types.C# '\x1b' Text.Read.Lex.a83 =: GHC.CString.unpackCString# "ESC" Text.Read.Lex.a82 k_s92w = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a81 (Text.Read.Lex.a82$80 k_s92w) Text.Read.Lex.a82$80 k_s92w a104_s92z = k_s92w Text.Read.Lex.x26 Text.Read.Lex.x26 =: GHC.Types.C# '\x1a' Text.Read.Lex.a81 =: GHC.CString.unpackCString# "SUB" Text.Read.Lex.a80 k_s92m = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a79 (Text.Read.Lex.a80$79 k_s92m) Text.Read.Lex.a80$79 k_s92m a104_s92p = k_s92m Text.Read.Lex.x25 Text.Read.Lex.x25 =: GHC.Types.C# '\x19' Text.Read.Lex.a79 =: GHC.CString.unpackCString# "EM" Text.Read.Lex.a78 k_s92c = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a77 (Text.Read.Lex.a78$78 k_s92c) Text.Read.Lex.a78$78 k_s92c a104_s92f = k_s92c Text.Read.Lex.x24 Text.Read.Lex.x24 =: GHC.Types.C# '\x18' Text.Read.Lex.a77 =: GHC.CString.unpackCString# "CAN" Text.Read.Lex.a76 k_s922 = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a75 (Text.Read.Lex.a76$77 k_s922) Text.Read.Lex.a76$77 k_s922 a104_s925 = k_s922 Text.Read.Lex.x23 Text.Read.Lex.x23 =: GHC.Types.C# '\x17' Text.Read.Lex.a75 =: GHC.CString.unpackCString# "ETB" Text.Read.Lex.a74 k_s91S = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a73 (Text.Read.Lex.a74$76 k_s91S) Text.Read.Lex.a74$76 k_s91S a104_s91V = k_s91S Text.Read.Lex.x22 Text.Read.Lex.x22 =: GHC.Types.C# '\x16' Text.Read.Lex.a73 =: GHC.CString.unpackCString# "SYN" Text.Read.Lex.a72 k_s91I = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a71 (Text.Read.Lex.a72$75 k_s91I) Text.Read.Lex.a72$75 k_s91I a104_s91L = k_s91I Text.Read.Lex.x21 Text.Read.Lex.x21 =: GHC.Types.C# '\x15' Text.Read.Lex.a71 =: GHC.CString.unpackCString# "NAK" Text.Read.Lex.a70 k_s91y = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a69 (Text.Read.Lex.a70$74 k_s91y) Text.Read.Lex.a70$74 k_s91y a104_s91B = k_s91y Text.Read.Lex.x20 Text.Read.Lex.x20 =: GHC.Types.C# '\x14' Text.Read.Lex.a69 =: GHC.CString.unpackCString# "DC4" Text.Read.Lex.a68 k_s91o = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a67 (Text.Read.Lex.a68$73 k_s91o) Text.Read.Lex.a68$73 k_s91o a104_s91r = k_s91o Text.Read.Lex.x19 Text.Read.Lex.x19 =: GHC.Types.C# '\x13' Text.Read.Lex.a67 =: GHC.CString.unpackCString# "DC3" Text.Read.Lex.a66 k_s91e = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a65 (Text.Read.Lex.a66$72 k_s91e) Text.Read.Lex.a66$72 k_s91e a104_s91h = k_s91e Text.Read.Lex.x18 Text.Read.Lex.x18 =: GHC.Types.C# '\x12' Text.Read.Lex.a65 =: GHC.CString.unpackCString# "DC2" Text.Read.Lex.a64 k_s914 = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a63 (Text.Read.Lex.a64$71 k_s914) Text.Read.Lex.a64$71 k_s914 a104_s917 = k_s914 Text.Read.Lex.x17 Text.Read.Lex.x17 =: GHC.Types.C# '\x11' Text.Read.Lex.a63 =: GHC.CString.unpackCString# "DC1" Text.Read.Lex.a62 k_s90U = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a61 (Text.Read.Lex.a62$70 k_s90U) Text.Read.Lex.a62$70 k_s90U a104_s90X = k_s90U Text.Read.Lex.x16 Text.Read.Lex.x16 =: GHC.Types.C# '\x10' Text.Read.Lex.a61 =: GHC.CString.unpackCString# "DLE" Text.Read.Lex.a60 k_s90K = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a59 (Text.Read.Lex.a60$69 k_s90K) Text.Read.Lex.a60$69 k_s90K a104_s90N = k_s90K Text.Read.Lex.x15 Text.Read.Lex.x15 =: GHC.Types.C# '\x0f' Text.Read.Lex.a59 =: GHC.CString.unpackCString# "SI" Text.Read.Lex.a58 k_s90A = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a57 (Text.Read.Lex.a58$68 k_s90A) Text.Read.Lex.a58$68 k_s90A a104_s90D = k_s90A Text.Read.Lex.x14 Text.Read.Lex.x14 =: GHC.Types.C# '\r' Text.Read.Lex.a57 =: GHC.CString.unpackCString# "CR" Text.Read.Lex.a56 k_s90q = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a55 (Text.Read.Lex.a56$67 k_s90q) Text.Read.Lex.a56$67 k_s90q a104_s90t = k_s90q Text.Read.Lex.x13 Text.Read.Lex.x13 =: GHC.Types.C# '\f' Text.Read.Lex.a55 =: GHC.CString.unpackCString# "FF" Text.Read.Lex.a54 k_s90g = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a53 (Text.Read.Lex.a54$66 k_s90g) Text.Read.Lex.a54$66 k_s90g a104_s90j = k_s90g Text.Read.Lex.x12 Text.Read.Lex.x12 =: GHC.Types.C# '\v' Text.Read.Lex.a53 =: GHC.CString.unpackCString# "VT" Text.Read.Lex.a52 k_s906 = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a51 (Text.Read.Lex.a52$65 k_s906) Text.Read.Lex.a52$65 k_s906 a104_s909 = k_s906 Text.Read.Lex.x11 Text.Read.Lex.x11 =: GHC.Types.C# '\n' Text.Read.Lex.a51 =: GHC.CString.unpackCString# "LF" Text.Read.Lex.a50 k_s8ZW = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a49 (Text.Read.Lex.a50$64 k_s8ZW) Text.Read.Lex.a50$64 k_s8ZW a104_s8ZZ = k_s8ZW Text.Read.Lex.x10 Text.Read.Lex.x10 =: GHC.Types.C# '\t' Text.Read.Lex.a49 =: GHC.CString.unpackCString# "HT" Text.Read.Lex.a48 k_s8ZM = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a47 (Text.Read.Lex.a48$63 k_s8ZM) Text.Read.Lex.a48$63 k_s8ZM a104_s8ZP = k_s8ZM Text.Read.Lex.x9 Text.Read.Lex.x9 =: GHC.Types.C# '\b' Text.Read.Lex.a47 =: GHC.CString.unpackCString# "BS" Text.Read.Lex.a46 k_s8ZC = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a45 (Text.Read.Lex.a46$62 k_s8ZC) Text.Read.Lex.a46$62 k_s8ZC a104_s8ZF = k_s8ZC Text.Read.Lex.x8 Text.Read.Lex.x8 =: GHC.Types.C# '\a' Text.Read.Lex.a45 =: GHC.CString.unpackCString# "BEL" Text.Read.Lex.a44 k_s8Zs = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a43 (Text.Read.Lex.a44$61 k_s8Zs) Text.Read.Lex.a44$61 k_s8Zs a104_s8Zv = k_s8Zs Text.Read.Lex.x7 Text.Read.Lex.x7 =: GHC.Types.C# '\x06' Text.Read.Lex.a43 =: GHC.CString.unpackCString# "ACK" Text.Read.Lex.a42 k_s8Zi = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a41 (Text.Read.Lex.a42$60 k_s8Zi) Text.Read.Lex.a42$60 k_s8Zi a104_s8Zl = k_s8Zi Text.Read.Lex.x6 Text.Read.Lex.x6 =: GHC.Types.C# '\x05' Text.Read.Lex.a41 =: GHC.CString.unpackCString# "ENQ" Text.Read.Lex.a40 k_s8Z8 = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a39 (Text.Read.Lex.a40$59 k_s8Z8) Text.Read.Lex.a40$59 k_s8Z8 a104_s8Zb = k_s8Z8 Text.Read.Lex.x5 Text.Read.Lex.x5 =: GHC.Types.C# '\x04' Text.Read.Lex.a39 =: GHC.CString.unpackCString# "EOT" Text.Read.Lex.a38 k_s8YY = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a37 (Text.Read.Lex.a38$58 k_s8YY) Text.Read.Lex.a38$58 k_s8YY a104_s8Z1 = k_s8YY Text.Read.Lex.x4 Text.Read.Lex.x4 =: GHC.Types.C# '\x03' Text.Read.Lex.a37 =: GHC.CString.unpackCString# "ETX" Text.Read.Lex.a36 k_s8YO = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a35 (Text.Read.Lex.a36$57 k_s8YO) Text.Read.Lex.a36$57 k_s8YO a104_s8YR = k_s8YO Text.Read.Lex.x3 Text.Read.Lex.x3 =: GHC.Types.C# '\x02' Text.Read.Lex.a35 =: GHC.CString.unpackCString# "STX" Text.Read.Lex.a34 k_s8YE = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a33 (Text.Read.Lex.a34$56 k_s8YE) Text.Read.Lex.a34$56 k_s8YE a104_s8YH = k_s8YE Text.Read.Lex.x2 Text.Read.Lex.x2 =: GHC.Types.C# '\0' Text.Read.Lex.a33 =: GHC.CString.unpackCString# "NUL" Text.ParserCombinators.ReadP.choice_$schoice sc_s30g sc1_s30e = select sc1_s30e (<{GHC.Types.[]}> -> sc_s30g) (<{GHC.Types.:}> ipv_s30k ipv1_s30l -> Text.ParserCombinators.ReadP.choice_$schoice$20 (Text.ParserCombinators.ReadP.choice_$schoice ipv_s30k ipv1_s30l) sc_s30g) Text.ParserCombinators.ReadP.choice_$schoice$20 ds_s30m sc_s30g k_s30o = let !sat_s30r_s30r = sc_s30g k_s30o in Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus sat_s30r_s30r (ds_s30m k_s30o) Text.Read.Lex.a32 k_s8Yu = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a31 (Text.Read.Lex.a32$55 k_s8Yu) Text.Read.Lex.a32$55 k_s8Yu a104_s8Yx = k_s8Yu Text.Read.Lex.x1 Text.Read.Lex.x1 =: GHC.Types.C# '\x0e' Text.Read.Lex.a31 =: GHC.CString.unpackCString# "SO" Text.Read.Lex.a30 k_s8Yk = Text.ParserCombinators.ReadP.string1 Text.Read.Lex.a29 (Text.Read.Lex.a30$54 k_s8Yk) Text.Read.Lex.a30$54 k_s8Yk a104_s8Yn = k_s8Yk Text.Read.Lex.x Text.Read.Lex.x =: GHC.Types.C# '\x01' Text.Read.Lex.a29 =: GHC.CString.unpackCString# "SOH" Text.Read.Lex.lexChar2$92 k_s953 a105_s97h = k_s953 (<{GHC.Tuple.(,)}> a105_s97h true) Text.Read.Lex.lexChar2$90 k_s953 a105_s96Y = select a105_s96Y (GHC.Types.C# ds_s971 -> select ds_s971 (_ -> Text.ParserCombinators.ReadP.Fail) ('@' -> k_s953 Text.Read.Lex.lvl53) ('A' -> k_s953 Text.Read.Lex.lvl54) ('B' -> k_s953 Text.Read.Lex.lvl55) ('C' -> k_s953 Text.Read.Lex.lvl56) ('D' -> k_s953 Text.Read.Lex.lvl57) ('E' -> k_s953 Text.Read.Lex.lvl58) ('F' -> k_s953 Text.Read.Lex.lvl59) ('G' -> k_s953 Text.Read.Lex.lvl60) ('H' -> k_s953 Text.Read.Lex.lvl61) ('I' -> k_s953 Text.Read.Lex.lvl62) ('J' -> k_s953 Text.Read.Lex.lvl63) ('K' -> k_s953 Text.Read.Lex.lvl64) ('L' -> k_s953 Text.Read.Lex.lvl65) ('M' -> k_s953 Text.Read.Lex.lvl66) ('N' -> k_s953 Text.Read.Lex.lvl67) ('O' -> k_s953 Text.Read.Lex.lvl68) ('P' -> k_s953 Text.Read.Lex.lvl69) ('Q' -> k_s953 Text.Read.Lex.lvl70) ('R' -> k_s953 Text.Read.Lex.lvl71) ('S' -> k_s953 Text.Read.Lex.lvl72) ('T' -> k_s953 Text.Read.Lex.lvl73) ('U' -> k_s953 Text.Read.Lex.lvl74) ('V' -> k_s953 Text.Read.Lex.lvl75) ('W' -> k_s953 Text.Read.Lex.lvl76) ('X' -> k_s953 Text.Read.Lex.lvl77) ('Y' -> k_s953 Text.Read.Lex.lvl78) ('Z' -> k_s953 Text.Read.Lex.lvl79) ('[' -> k_s953 Text.Read.Lex.lvl80) ('\\' -> k_s953 Text.Read.Lex.lvl81) (']' -> k_s953 Text.Read.Lex.lvl82) ('^' -> k_s953 Text.Read.Lex.lvl83) ('_' -> k_s953 Text.Read.Lex.lvl84)) Text.Read.Lex.lvl84 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x31 true Text.Read.Lex.lvl83 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x30 true Text.Read.Lex.lvl82 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x29 true Text.Read.Lex.lvl81 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x28 true Text.Read.Lex.lvl80 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x27 true Text.Read.Lex.lvl79 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x26 true Text.Read.Lex.lvl78 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x25 true Text.Read.Lex.lvl77 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x24 true Text.Read.Lex.lvl76 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x23 true Text.Read.Lex.lvl75 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x22 true Text.Read.Lex.lvl74 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x21 true Text.Read.Lex.lvl73 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x20 true Text.Read.Lex.lvl72 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x19 true Text.Read.Lex.lvl71 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x18 true Text.Read.Lex.lvl70 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x17 true Text.Read.Lex.lvl69 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x16 true Text.Read.Lex.lvl68 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x15 true Text.Read.Lex.lvl67 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x1 true Text.Read.Lex.lvl66 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x14 true Text.Read.Lex.lvl65 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x13 true Text.Read.Lex.lvl64 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x12 true Text.Read.Lex.lvl63 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x11 true Text.Read.Lex.lvl62 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x10 true Text.Read.Lex.lvl61 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x9 true Text.Read.Lex.lvl60 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x8 true Text.Read.Lex.lvl59 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x7 true Text.Read.Lex.lvl58 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x6 true Text.Read.Lex.lvl57 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x5 true Text.Read.Lex.lvl56 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x4 true Text.Read.Lex.lvl55 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x3 true Text.Read.Lex.lvl54 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x true Text.Read.Lex.lvl53 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x2 true Text.Read.Lex.lexChar2$91 a104_s973 a105_s977 = select a105_s977 (GHC.Types.C# c2_s97a -> select c2_s97a (_ -> Text.ParserCombinators.ReadP.Fail) ('^' -> Text.ParserCombinators.ReadP.Get a104_s973)) Text.Read.Lex.lexChar2$89 k_s953 a104_s95y = Text.Read.Lex.a26 a104_s95y (Text.Read.Lex.lexChar2$93 k_s953 (Text.Read.Lex.lexChar2$11 a104_s95y)) Text.Read.Lex.lexChar2$11 a104_s95y = select a104_s95y (GHC.Types.I# i_s95B -> GHC.Integer.Type.smallInteger i_s95B) Text.Read.Lex.lexChar2$93 k_s953 lvl95_s95C a105_s95F = let !n_s95G = Text.Read.Lex.numberToInteger_$sval lvl95_s95C Text.Read.Lex.numberToInteger2 a105_s95F, !wild_s9pK = GHC.Integer.Type.leInteger n_s95G Text.Read.Lex.lvl40 in if wild_s9pK (k_s953 (<{GHC.Tuple.(,)}> (Text.Read.Lex.lexChar2$150 n_s95G) true)) Text.ParserCombinators.ReadP.Fail Text.Read.Lex.lexChar2$150 n_s95G = let !wild1_s95J = GHC.Integer.Type.integerToInt n_s95G, !sat_s9py_s9py = int2Word# wild1_s95J, !wild2_s9pL = leWord# sat_s9py_s9py 1114111 in if wild2_s9pL (let !sat_s9pA_s9pA = chr# wild1_s95J in GHC.Types.C# sat_s9pA_s9pA) (GHC.Char.chr2 wild1_s95J) GHC.Char.chr2 ww_scG = let !sat_scY_scY = GHC.CString.unpackAppendCString# "Prelude.chr: bad argument: " (GHC.Show.$wshowSignedInt 9 ww_scG <{GHC.Types.[]}>) in GHC.Err.error sat_scY_scY Text.Read.Lex.lvl40 =: GHC.Integer.Type.S# 1114111 Text.Read.Lex.a97 k_s94h = k_s94h Text.Read.Lex.lvl8 Text.Read.Lex.a k_s8NT = Text.ParserCombinators.ReadP.Get (Text.Read.Lex.a$26 k_s8NT) Text.Read.Lex.a$26 k_s8NT a104_s8O2 = select a104_s8O2 (GHC.Types.C# ds_s8O5 -> select ds_s8O5 (_ -> Text.ParserCombinators.ReadP.Fail) ('O' -> k_s8NT Text.Read.Lex.lvl) ('X' -> k_s8NT Text.Read.Lex.lvl1) ('o' -> k_s8NT Text.Read.Lex.lvl) ('x' -> k_s8NT Text.Read.Lex.lvl1)) Text.Read.Lex.lexChar2$88 k_s953 a104_s95o = select a104_s95o (GHC.Types.C# ds_s95r -> select ds_s95r (_ -> Text.ParserCombinators.ReadP.Fail) ('\"' -> k_s953 Text.Read.Lex.lvl43) ('\'' -> k_s953 Text.Read.Lex.lvl44) ('\\' -> k_s953 Text.Read.Lex.lvl45) ('a' -> k_s953 Text.Read.Lex.lvl46) ('b' -> k_s953 Text.Read.Lex.lvl47) ('f' -> k_s953 Text.Read.Lex.lvl48) ('n' -> k_s953 Text.Read.Lex.lvl49) ('r' -> k_s953 Text.Read.Lex.lvl50) ('t' -> k_s953 Text.Read.Lex.lvl51) ('v' -> k_s953 Text.Read.Lex.lvl52)) Text.Read.Lex.lvl52 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x12 true Text.Read.Lex.lvl51 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x10 true Text.Read.Lex.lvl50 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x14 true Text.Read.Lex.lvl49 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x11 true Text.Read.Lex.lvl48 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x13 true Text.Read.Lex.lvl47 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x9 true Text.Read.Lex.lvl46 =: <{GHC.Tuple.(,)}> Text.Read.Lex.x8 true Text.Read.Lex.lvl45 =: <{GHC.Tuple.(,)}> Text.Read.Lex.a5 true Text.Read.Lex.lvl44 =: <{GHC.Tuple.(,)}> Text.Read.Lex.lvl42 true Text.Read.Lex.lvl42 =: GHC.Types.C# '\'' Text.Read.Lex.lvl43 =: <{GHC.Tuple.(,)}> Text.Read.Lex.lvl41 true Text.Read.Lex.lvl41 =: GHC.Types.C# '\"' Text.Read.Lex.a98$96 lvl86_s97R a105_s97U = select a105_s97U (GHC.Types.C# c2_s97X -> select c2_s97X (_ -> Text.ParserCombinators.ReadP.Fail) ('\\' -> lvl86_s97R)) Text.Read.Lex.a98$97 a104_s97Z a105_s984 = Text.ParserCombinators.ReadP.Get a104_s97Z Text.Read.Lex.a98$98 k1_s985 a106_s988 = Text.ParserCombinators.ReadP.skipSpaces_skip a106_s988 k1_s985 Text.ParserCombinators.ReadP.skipSpaces_skip ds_s34N = select ds_s34N (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.lvl3) (<{GHC.Types.:}> c_s34R s_s34U -> let !wild1_s3dG = GHC.Unicode.isSpace c_s34R in if wild1_s3dG (Text.ParserCombinators.ReadP.skipSpaces_skip$50 (Text.ParserCombinators.ReadP.skipSpaces_skip s_s34U)) Text.ParserCombinators.ReadP.lvl3) Text.ParserCombinators.ReadP.lvl3 eta_s34L = eta_s34L <{GHC.Tuple.()}> Text.ParserCombinators.ReadP.skipSpaces_skip$50 lvl4_s34V k_s34Y = Text.ParserCombinators.ReadP.Get (Text.ParserCombinators.ReadP.skipSpaces_skip$51 k_s34Y lvl4_s34V) Text.ParserCombinators.ReadP.skipSpaces_skip$51 k_s34Y lvl4_s34V a1_s351 = lvl4_s34V k_s34Y GHC.Unicode.isSpace w_s2ee = select w_s2ee (GHC.Types.C# ww_s2eh -> GHC.Unicode.$wisSpace ww_s2eh) GHC.Unicode.$wisSpace ww_s2e2 = select ww_s2e2 (_ -> let !sat_s2gl_s2gl = ord# ww_s2e2, !wild1_s2go = ffi_wrapper3 u_iswspace sat_s2gl_s2gl GHC.Prim.realWorld# in select wild1_s2go (<{GHC.Tuple.(,)}> ds_s2gn ds1_s2eb -> select ds1_s2eb (_ -> true) (0 -> false))) ('\t' -> true) ('\n' -> true) ('\v' -> true) ('\f' -> true) ('\r' -> true) (' ' -> true) ('\xa0' -> true) Text.Read.Lex.a98$99 a105_s989 lvl86_s97R a107_s98e = select a107_s98e (GHC.Types.C# ds_s98h -> select ds_s98h (_ -> let !wild1_s9q1 = GHC.Unicode.isSpace a107_s98e in if wild1_s9q1 (Text.ParserCombinators.ReadP.Look a105_s989) Text.ParserCombinators.ReadP.Fail) ('&' -> lvl86_s97R)) Text.Read.Lex.a98$101 a106_s98l a107_s98p = select a107_s98p (GHC.Types.C# c2_s98s -> select c2_s98s (_ -> Text.ParserCombinators.ReadP.Fail) ('\\' -> Text.ParserCombinators.ReadP.Get a106_s98l)) Text.Read.Lex.hsLex2$122 k_s9az ww_s9aO ww1_s9aS = let lvl87_s9aR = k_s9az (Text.Read.Lex.Char ww_s9aO) in if ww1_s9aS (Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$129 lvl87_s9aR)) (select ww_s9aO (GHC.Types.C# c1_s9aW -> select c1_s9aW (_ -> Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$128 lvl87_s9aR)) ('\'' -> Text.ParserCombinators.ReadP.Fail))) Text.Read.Lex.hsLex2$128 lvl87_s9aR a104_s9aZ = select a104_s9aZ (GHC.Types.C# c2_s9b2 -> select c2_s9b2 (_ -> Text.ParserCombinators.ReadP.Fail) ('\'' -> lvl87_s9aR)) Text.Read.Lex.hsLex2$129 lvl87_s9aR a104_s9b6 = select a104_s9b6 (GHC.Types.C# c2_s9b9 -> select c2_s9b9 (_ -> Text.ParserCombinators.ReadP.Fail) ('\'' -> lvl87_s9aR)) Text.Read.Lex.hsLex2$123 $wk_s9bc w_s9bf = select w_s9bf (<{GHC.Tuple.(,)}> ww_s9bj ww1_s9bk -> $wk_s9bc ww_s9bj ww1_s9bk) Text.Read.Lex.hsLex2$116 k_s9az lvl86_s9bm a105_s9bp = select a105_s9bp (GHC.Types.C# c1_s9bs -> select c1_s9bs (_ -> Text.ParserCombinators.ReadP.Get (Text.Read.Lex.hsLex2$124 a105_s9bp k_s9az)) ('\'' -> Text.ParserCombinators.ReadP.Fail) ('\\' -> lvl86_s9bm)) Text.Read.Lex.hsLex2$124 a105_s9bp k_s9az a106_s9bA = select a106_s9bA (GHC.Types.C# c2_s9bD -> select c2_s9bD (_ -> Text.ParserCombinators.ReadP.Fail) ('\'' -> k_s9az (Text.Read.Lex.Char a105_s9bp))) Text.Read.Lex.hsLex2$117 a104_s9bG a105_s9bK = select a105_s9bK (GHC.Types.C# c2_s9bN -> select c2_s9bN (_ -> Text.ParserCombinators.ReadP.Fail) ('\'' -> Text.ParserCombinators.ReadP.Get a104_s9bG)) Text.Read.Lex.hsLex2$115 k_s9az a104_s9aC = select a104_s9aC (<{GHC.Types.[]}> -> k_s9az Text.Read.Lex.EOF) (<{GHC.Types.:}> ds1_s9qW ds3_s9qX -> Text.ParserCombinators.ReadP.Fail) Text.Read.Lex.lex1$131 k1_s9da a104_s9dc = Text.ParserCombinators.ReadP.skipSpaces_skip a104_s9dc k1_s9da GHC.Read.$wa3$19 lvl14_scjh a4_scjj = select a4_scjj (_ -> Text.ParserCombinators.ReadP.Fail) (Text.Read.Lex.Punc ds_scjm -> select ds_scjm (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.Fail) (<{GHC.Types.:}> ds1_scjq ds2_scjv -> select ds1_scjq (GHC.Types.C# ds3_scjt -> select ds3_scjt (_ -> Text.ParserCombinators.ReadP.Fail) ('(' -> select ds2_scjv (<{GHC.Types.[]}> -> lvl14_scjh) (<{GHC.Types.:}> ipv_sdqP ipv1_sdqQ -> Text.ParserCombinators.ReadP.Fail))))) GHC.Read.$fReadDouble13$39 eta2_scmm a5_scmh = eta2_scmm (GHC.Read.$fReadDouble13$4 a5_scmh) GHC.Read.$fReadDouble13$4 a5_scmh = select a5_scmh (GHC.Types.D# x_scmk -> let !sat_sdrI_sdrI = negateDouble# x_scmk in GHC.Types.D# sat_sdrI_sdrI) GHC.Read.$fReadDouble13$40 convert_scmt lvl14_scmo n_scms a5_scmr = convert_scmt a5_scmr n_scms lvl14_scmo GHC.Read.$fReadDouble13$41 k_scmu a104_scmz = Text.Read.Lex.hsLex2 k_scmu GHC.Read.$fReadDouble13$42 k2_scmA a104_scmD = Text.ParserCombinators.ReadP.skipSpaces_skip a104_scmD k2_scmA GHC.Read.$fReadDouble13$43 a5_scmE convert_scmt eta2_scmm n_scms a6_scmJ = select a6_scmJ (_ -> convert_scmt a6_scmJ n_scms eta2_scmm) (Text.Read.Lex.Symbol ds_scmN -> select ds_scmN (<{GHC.Types.[]}> -> convert_scmt a6_scmJ n_scms eta2_scmm) (<{GHC.Types.:}> ds1_scmR ds2_scmW -> select ds1_scmR (GHC.Types.C# ds3_scmU -> select ds3_scmU (_ -> convert_scmt a6_scmJ n_scms eta2_scmm) ('-' -> select ds2_scmW (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.Look a5_scmE) (<{GHC.Types.:}> ipv_sdrM ipv1_sdrN -> convert_scmt a6_scmJ n_scms eta2_scmm))))) GHC.Read.$fReadDouble13$44 k3_scn0 a104_scn5 = Text.Read.Lex.hsLex2 k3_scn0 GHC.Read.$fReadDouble13$45 k4_scn6 a104_scn8 = Text.ParserCombinators.ReadP.skipSpaces_skip a104_scn8 k4_scn6 Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput$18 $dMonadIO_s14Ca w_s14Cg = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14Ca w_s14Cg Control.Monad.Trans.State.Lazy.$w$cliftIO w_s2lM w1_s2lN = let $dMonad_s2lQ = Control.Monad.IO.Class.$p1MonadIO w_s2lM in Control.Monad.Trans.State.Lazy.$w$cliftIO$82 (<{GHC.Base.>>=}> $dMonad_s2lQ) (GHC.Base.return $dMonad_s2lQ) w1_s2lN w_s2lM Control.Monad.Trans.State.Lazy.$w$cliftIO$82 lvl1_s2lU lvl_s2lS w1_s2lN w_s2lM s_s2lY = lvl1_s2lU (Control.Monad.IO.Class.liftIO w_s2lM w1_s2lN) (Control.Monad.Trans.State.Lazy.$w$cliftIO$83 lvl_s2lS s_s2lY) Control.Monad.Trans.State.Lazy.$w$cliftIO$83 lvl_s2lS s_s2lY a5_s2lX = lvl_s2lS (<{GHC.Tuple.(,)}> a5_s2lX s_s2lY) Control.Monad.IO.Class.liftIO tpl_ski_ski = select tpl_ski_ski (<{Control.Monad.IO.Class.D:MonadIO}> tpl_skt_skt tpl_skm_skm -> tpl_skm_skm) Control.Monad.IO.Class.$p1MonadIO tpl_skc_skc = select tpl_skc_skc (<{Control.Monad.IO.Class.D:MonadIO}> tpl_skg_skg tpl_skp_skp -> tpl_skg_skg) Control.Monad.Trans.State.Lazy.$fMonadStateT $dMonad_s2e7 = <{GHC.Base.D:Monad}> (Control.Monad.Trans.State.Lazy.$fMonadStateT$56 $dMonad_s2e7) (Control.Monad.Trans.State.Lazy.$fMonadStateT$55 $dMonad_s2e7) (Control.Monad.Trans.State.Lazy.$fMonadStateT$54 (GHC.Base.return $dMonad_s2e7)) (Control.Monad.Trans.State.Lazy.$fMonadStateT$53 $dMonad_s2e7) Control.Monad.Trans.State.Lazy.$fMonadStateT$53 $dMonad_s2e7 eta_B1_B1 = Control.Monad.Trans.State.Lazy.$fMonadStateT_$cfail $dMonad_s2e7 eta_B1_B1 Control.Monad.Trans.State.Lazy.$fMonadStateT_$cfail $dMonad_s2de str_s2df = Control.Monad.Trans.State.Lazy.$fMonadStateT_$cfail$50 $dMonad_s2de str_s2df Control.Monad.Trans.State.Lazy.$fMonadStateT_$cfail$50 $dMonad_s2de str_s2df ds_s2di = GHC.Base.fail $dMonad_s2de str_s2df GHC.Base.fail tpl_s271_s271 = select tpl_s271_s271 (<{GHC.Base.D:Monad}> tpl_s2fF_s2fF tpl_s2fH_s2fH tpl_s2fI_s2fI tpl_s277_s277 -> tpl_s277_s277) Control.Monad.Trans.State.Lazy.$fMonadStateT$54 lvl_s2e8 a5_s2ed eta_s2ee = lvl_s2e8 (<{GHC.Tuple.(,)}> a5_s2ed eta_s2ee) Control.Monad.Trans.State.Lazy.$fMonadStateT$55 $dMonad_s2e7 eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Control.Monad.Trans.State.Lazy.$fMonadStateT_$c>>}> $dMonad_s2e7 eta_B3_B3 eta_B2_B2 eta_B1_B1 <{Control.Monad.Trans.State.Lazy.$fMonadStateT_$c>>}> eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Control.Monad.Trans.State.Lazy.a eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 Control.Monad.Trans.State.Lazy.a $dMonad_s2dS eta_s2dU eta1_s2e3 eta2_s2dT = <{GHC.Base.>>=}> $dMonad_s2dS (eta_s2dU eta2_s2dT) (Control.Monad.Trans.State.Lazy.a$52 eta1_s2e3) Control.Monad.Trans.State.Lazy.a$52 eta1_s2e3 ds_s2dX = eta1_s2e3 (Control.Monad.Trans.State.Lazy.a$16 ds_s2dX) Control.Monad.Trans.State.Lazy.a$16 ds_s2dX = select ds_s2dX (<{GHC.Tuple.(,)}> a5_s2ox <{s'_s2e1}> -> <{s'_s2e1}>) Control.Monad.Trans.State.Lazy.$fMonadStateT$56 $dMonad_s2e7 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Control.Monad.Trans.State.Lazy.$fMonadStateT2 $dMonad_s2e7 eta_B3_B3 eta_B2_B2 eta_B1_B1 Control.Monad.Trans.State.Lazy.$fMonadStateT2 $dMonad_s2dv m_s2dx k_s2dF eta_s2dw = <{GHC.Base.>>=}> $dMonad_s2dv (m_s2dx eta_s2dw) (Control.Monad.Trans.State.Lazy.$fMonadStateT2$51 k_s2dF) Control.Monad.Trans.State.Lazy.$fMonadStateT2$51 k_s2dF ds_s2dA = k_s2dF (Control.Monad.Trans.State.Lazy.$fMonadStateT2$15 ds_s2dA) (Control.Monad.Trans.State.Lazy.$fMonadStateT2$14 ds_s2dA) Control.Monad.Trans.State.Lazy.$fMonadStateT2$14 ds_s2dA = select ds_s2dA (<{GHC.Tuple.(,)}> a5_s2op <{s'_s2dK}> -> <{s'_s2dK}>) Control.Monad.Trans.State.Lazy.$fMonadStateT2$15 ds_s2dA = select ds_s2dA (<{GHC.Tuple.(,)}> a5_s2dE <{s'_s2om}> -> a5_s2dE) Gui.Generic.Instances.Basic.$wnumInput ww_s14yg ww1_s14yV w_s14yq w1_s14yv w2_s14yS = select ww_s14yg (<{GHC.Base.D:Monad}> ww2_s14yY ww3_s14zJ ww4_s14zO ww5_s14Db -> ww2_s14yY (ww1_s14yV (Gui.Generic.Instances.Basic.$wnumInput$4 (Gui.Generic.Instances.Basic.$wnumInput$3 (GHC.Show.show w1_s14yv)) w2_s14yS)) (Gui.Generic.Instances.Basic.$wnumInput$2 (Gui.Generic.Instances.Basic.$wnumInput$1 w_s14yq) ww1_s14yV ww3_s14zJ ww4_s14zO)) Gui.Generic.Instances.Basic.$wnumInput$1 w_s14yq x_s14yo = w_s14yq (Javascript.Base.String.jsFromString x_s14yo) 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))) Gui.Generic.Instances.Basic.$wnumInput$2 lvl_s14yr ww1_s14yV ww3_s14zJ ww4_s14zO ds_s14z2 = select ds_s14z2 (<{GHC.Tuple.(,)}> inp_s14zb sig_s14z7 -> let esig_s14z8 = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure lvl_s14yr) sig_s14z7 in ww3_s14zJ (ww1_s14yV (Gui.Generic.Instances.Basic.$wnumInput$6 (Gui.Generic.Instances.Basic.$wnumInput$5 inp_s14zb) esig_s14z8 inp_s14zb)) (ww4_s14zO (Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Instances.Basic.$fToInputsDouble1 esig_s14z8) (<{GHC.Types.:}> inp_s14zb <{GHC.Types.[]}>)))) Gui.Generic.Instances.Basic.$fToInputsDouble1 =: FRP.Fursuit.Signal.Pure Gui.Generic.Instances.Basic.$fToInputsDouble2 Gui.Generic.Instances.Basic.$fToInputsDouble2 ds1_s14y6 = select ds1_s14y6 (Data.Either.Left x_s14CR -> Data.Maybe.Nothing) (Data.Either.Right y_s14ya -> Data.Maybe.Just y_s14ya) Gui.Generic.Instances.Basic.$wnumInput$5 inp_s14zb s_s14zf = select inp_s14zb (GHC.Ptr.Ptr ww6_s14ze -> let !ds1_s14De = Gui.Utils.$wa ww6_s14ze s_s14zf in select ds1_s14De (<{GHC.Tuple.(,)}> ipv_s14zj ipv1_s14D6 -> <{GHC.Tuple.(,)}> ipv_s14zj <{GHC.Tuple.()}>)) Gui.Utils.$wa ww_sRwe w1_sRwf = select Gui.Utils.w (GHC.Ptr.Ptr ds3_sRwd -> let !wild_sRyE = ffi_wrapper4 _Javascript_JQuery_Basic_hasClass ds3_sRwd ww_sRwe w1_sRwf in select wild_sRyE (<{GHC.Tuple.(,)}> ds7_sRwn ds8_sRwk -> select ds8_sRwk (_ -> let !wild2_sRyC = ffi_wrapper4 _Javascript_JQuery_Basic_removeClass ds3_sRwd ww_sRwe ds7_sRwn in select wild2_sRyC (<{GHC.Tuple.(,)}> ds1_sRwt ds4_sRyB -> let !wild3_sRyA = ffi_wrapper3 _Javascript_JQuery_Basic_parentNull ww_sRwe ds1_sRwt in select wild3_sRyA (<{GHC.Tuple.(,)}> ds5_sRwD ds6_sRwC -> select Gui.Utils.unwrapError2 (GHC.Ptr.Ptr ds10_sRwB -> let !wild4_sRyy = ffi_wrapper4 _Javascript_JQuery_Basic_hasClass ds10_sRwB ds6_sRwC ds5_sRwD in select wild4_sRyy (<{GHC.Tuple.(,)}> ds11_sRwL ds12_sRwI -> select ds12_sRwI (_ -> let !wild6_sRyw = ffi_wrapper4 _Javascript_JQuery_Basic_insertBeforeJQuery ds6_sRwC ww_sRwe ds11_sRwL in select wild6_sRyw (<{GHC.Tuple.(,)}> ds13_sRwR ds14_sRyv -> let !wild7_sRyu = ffi_wrapper3 _Javascript_JQuery_Basic_removeNone ds6_sRwC ds13_sRwR in select wild7_sRyu (<{GHC.Tuple.(,)}> ds15_sRwX ds16_sRyt -> let !wild8_sRys = ffi_wrapper3 _Javascript_JQuery_Basic_focus ww_sRwe ds15_sRwX in select wild8_sRys (<{GHC.Tuple.(,)}> ds17_sRx2 ds18_sRyr -> <{GHC.Tuple.(,)}> ds17_sRx2 (GHC.Ptr.Ptr ww_sRwe))))) (0 -> let !wild6_sRyI = ffi_wrapper3 _Javascript_JQuery_Basic_focus ww_sRwe ds11_sRwL in select wild6_sRyI (<{GHC.Tuple.(,)}> ds13_sRx9 ds14_sRyH -> <{GHC.Tuple.(,)}> ds13_sRx9 (GHC.Ptr.Ptr ww_sRwe)))))))) (0 -> <{GHC.Tuple.(,)}> ds7_sRwn (GHC.Ptr.Ptr ww_sRwe)))) Gui.Utils.unwrapError2 =: let !ds_sRyo = Javascript.Base.Types.FakePtr Gui.Utils.unwrapError_x in select ds_sRyo (GHC.Ptr.Ptr ds1_sRw2 -> let !tpl_sRyn = Gui.Utils.unwrapError_x, !wild_sRym = ffi_wrapper3 jsToString ds1_sRw2 GHC.Prim.realWorld# in select wild_sRym (<{GHC.Tuple.(,)}> ds2_sRyl ds3_sRw7 -> GHC.Ptr.Ptr ds3_sRw7)) Gui.Utils.unwrapError_x =: GHC.CString.unpackCString# "errorBox" Gui.Utils.w =: let !ds_sRxn = Javascript.Base.Types.FakePtr Gui.Utils.unwrapError_x1 in select ds_sRxn (GHC.Ptr.Ptr ds1_sRtu -> let !tpl_sRxm = Gui.Utils.unwrapError_x1, !wild_sRxl = ffi_wrapper3 jsToString ds1_sRtu GHC.Prim.realWorld# in select wild_sRxl (<{GHC.Tuple.(,)}> ds2_sRxk ds3_sRtz -> GHC.Ptr.Ptr ds3_sRtz)) Gui.Utils.unwrapError_x1 =: GHC.CString.unpackCString# "wrapped" Gui.Generic.Instances.Basic.$wnumInput$6 a1_s14zk esig_s14z8 inp_s14zb s_s14zD = let !ds1_s14Dj = FRP.Fursuit.Signal.removableSink1 (Gui.Generic.Instances.Basic.$wnumInput$7 a1_s14zk inp_s14zb) esig_s14z8 s_s14zD in select ds1_s14Dj (<{GHC.Tuple.(,)}> ipv_s14zH ipv1_s14D1 -> <{GHC.Tuple.(,)}> ipv_s14zH <{GHC.Tuple.()}>) Gui.Generic.Instances.Basic.$wnumInput$7 a1_s14zk inp_s14zb v_s14zn = select v_s14zn (Data.Either.Left m_s14zt -> Gui.Generic.Instances.Basic.$wnumInput$8 inp_s14zb m_s14zt) (Data.Either.Right ds1_s14D2 -> a1_s14zk) Gui.Generic.Instances.Basic.$wnumInput$8 inp_s14zb m_s14zt s1_s14zv = select inp_s14zb (GHC.Ptr.Ptr ww6_s14zu -> let !ds1_s14Dg = Gui.Utils.$wa1 m_s14zt ww6_s14zu s1_s14zv in select ds1_s14Dg (<{GHC.Tuple.(,)}> ipv_s14zz ipv1_s14D3 -> <{GHC.Tuple.(,)}> ipv_s14zz <{GHC.Tuple.()}>)) Gui.Utils.$wa1 w1_sRvj ww_sRul w2_sRum = select Gui.Utils.w (GHC.Ptr.Ptr ds3_sRuk -> let !wild_sRxU = ffi_wrapper4 _Javascript_JQuery_Basic_hasClass ds3_sRuk ww_sRul w2_sRum in select wild_sRxU (<{GHC.Tuple.(,)}> ds7_sRut ds8_sRur -> select ds8_sRur (_ -> <{GHC.Tuple.(,)}> ds7_sRut (GHC.Ptr.Ptr ww_sRul)) (0 -> select Gui.Utils.wrapError5 (GHC.Ptr.Ptr ds1_sRuy -> let !wild2_sRyf = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sRuy ds7_sRut in select wild2_sRyf (<{GHC.Tuple.(,)}> ds4_sRuI ds5_sRuH -> select Gui.Utils.wrapError4 (GHC.Ptr.Ptr ds9_sRuG -> let !wild3_sRyd = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_sRuG ds5_sRuH ds4_sRuI in select wild3_sRyd (<{GHC.Tuple.(,)}> ds10_sRuP ds11_sRuO -> let !wild4_sRyc = ffi_wrapper4 _Javascript_JQuery_Basic_insertBeforeJQuery ww_sRul ds11_sRuO ds10_sRuP in select wild4_sRyc (<{GHC.Tuple.(,)}> ds12_sRuV ds13_sRyb -> let !wild5_sRya = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ww_sRul ds11_sRuO ds12_sRuV in select wild5_sRya (<{GHC.Tuple.(,)}> ds14_sRv4 ds15_sRy9 -> select Gui.Utils.wrapError3 (GHC.Ptr.Ptr ds17_sRv3 -> let !wild6_sRy7 = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds17_sRv3 ds14_sRv4 in select wild6_sRy7 (<{GHC.Tuple.(,)}> ds18_sRve ds19_sRvd -> select Gui.Utils.wrapError2 (GHC.Ptr.Ptr ds21_sRvc -> let !wild7_sRy5 = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds21_sRvc ds19_sRvd ds18_sRve in select wild7_sRy5 (<{GHC.Tuple.(,)}> ds22_sRvp ds23_sRvo -> select w1_sRvj (GHC.Ptr.Ptr ds25_sRvn -> let !wild8_sRy3 = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds25_sRvn ds23_sRvo ds22_sRvp in select wild8_sRy3 (<{GHC.Tuple.(,)}> ds26_sRvw ds27_sRvv -> let !wild9_sRy2 = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds27_sRvv ds11_sRuO ds26_sRvw in select wild9_sRy2 (<{GHC.Tuple.(,)}> ds28_sRvC ds29_sRy1 -> let !wild10_sRy0 = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds3_sRuk ww_sRul ds28_sRvC in select wild10_sRy0 (<{GHC.Tuple.(,)}> ds30_sRvI ds31_sRxZ -> let !wild11_sRxY = ffi_wrapper3 _Javascript_JQuery_Basic_focus ww_sRul ds30_sRvI in select wild11_sRxY (<{GHC.Tuple.(,)}> ds32_sRvN ds33_sRxX -> <{GHC.Tuple.(,)}> ds32_sRvN (GHC.Ptr.Ptr ww_sRul))))))))))))))))))) Gui.Utils.wrapError2 =: let !ds_sRxQ = Javascript.Base.Types.FakePtr Gui.Utils.wrapError_x in select ds_sRxQ (GHC.Ptr.Ptr ds1_sRu8 -> let !tpl_sRxP = Gui.Utils.wrapError_x, !wild_sRxO = ffi_wrapper3 jsToString ds1_sRu8 GHC.Prim.realWorld# in select wild_sRxO (<{GHC.Tuple.(,)}> ds2_sRxN ds3_sRud -> GHC.Ptr.Ptr ds3_sRud)) Gui.Utils.wrapError_x =: GHC.CString.unpackCString# "errorText" Gui.Utils.wrapError3 =: let !ds_sRxK = Javascript.Base.Types.FakePtr Gui.Utils.wrapError_x1 in select ds_sRxK (GHC.Ptr.Ptr ds1_sRtY -> let !tpl_sRxJ = Gui.Utils.wrapError_x1, !wild_sRxI = ffi_wrapper3 jsToString ds1_sRtY GHC.Prim.realWorld# in select wild_sRxI (<{GHC.Tuple.(,)}> ds2_sRxH ds3_sRu3 -> GHC.Ptr.Ptr ds3_sRu3)) Gui.Utils.wrapError_x1 =: GHC.CString.unpackCString# "
" Gui.Utils.wrapError4 =: let !ds_sRxF = Javascript.Base.Types.FakePtr Gui.Utils.unwrapError_x in select ds_sRxF (GHC.Ptr.Ptr ds1_sRtO -> let !tpl_sRxE = Gui.Utils.unwrapError_x, !wild_sRxD = ffi_wrapper3 jsToString ds1_sRtO GHC.Prim.realWorld# in select wild_sRxD (<{GHC.Tuple.(,)}> ds2_sRxC ds3_sRtT -> GHC.Ptr.Ptr ds3_sRtT)) Gui.Utils.wrapError5 =: let !ds_sRxz = Javascript.Base.Types.FakePtr Gui.Utils.wrapError_x1 in select ds_sRxz (GHC.Ptr.Ptr ds1_sRtE -> let !tpl_sRxy = Gui.Utils.wrapError_x1, !wild_sRxx = ffi_wrapper3 jsToString ds1_sRtE GHC.Prim.realWorld# in select wild_sRxx (<{GHC.Tuple.(,)}> ds2_sRxw ds3_sRtJ -> GHC.Ptr.Ptr ds3_sRtJ)) GHC.Show.show tpl_s6rV_s6rV = select tpl_s6rV_s6rV (<{GHC.Show.D:Show}> tpl_s7gl_s7gl tpl_s6s0_s6s0 tpl_s7gn_s7gn -> tpl_s6s0_s6s0) Gui.Generic.Instances.Basic.$wnumInput$3 g_s14yw ds1_s14yy = select ds1_s14yy (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a1_s14yC -> Data.Maybe.Just (Gui.Generic.Instances.Basic.$wnumInput$21 a1_s14yC g_s14yw)) Gui.Generic.Instances.Basic.$wnumInput$21 a1_s14yC g_s14yw = let !x_s14yD = g_s14yw a1_s14yC, !ds_s14Dn = Javascript.Base.Types.FakePtr x_s14yD in select ds_s14Dn (GHC.Ptr.Ptr ds2_s14yI -> let !tpl_s14Dm = x_s14yD, !wild1_s14Dl = ffi_wrapper3 jsToString ds2_s14yI GHC.Prim.realWorld# in select wild1_s14Dl (<{GHC.Tuple.(,)}> ds3_s14D8 ds4_s14yN -> GHC.Ptr.Ptr ds4_s14yN)) Gui.Generic.Instances.Basic.$wnumInput$4 sat_s14yQ_s14yQ w2_s14yS eta_B1_B1 = Gui.FRP.Text.text2 Gui.Base.Text.text1 (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure sat_s14yQ_s14yQ) w2_s14yS) eta_B1_B1 Gui.Base.Text.text1 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Text.text5 Gui.Base.Text.text2 eta_B3_B3 eta_B2_B2 eta_B1_B1 Gui.Base.Text.text2 eta_sOhS = select Gui.Base.Text.text4 (GHC.Ptr.Ptr ds1_sOhL -> let !tpl_sOjU = Gui.Base.Text.text_x1, !wild_sOjT = ffi_wrapper3 jsToString ds1_sOhL GHC.Prim.realWorld# in select wild_sOjT (<{GHC.Tuple.(,)}> ds2_sOjS ds3_sOhR -> let !wild1_sOjR = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_sOhR eta_sOhS in select wild1_sOjR (<{GHC.Tuple.(,)}> ds4_sOi9 ds5_sOi8 -> select Gui.Base.Text.text3 (GHC.Ptr.Ptr ds7_sOi1 -> let !tpl1_sOjP = Gui.Base.Text.text_x, !wild2_sOjO = ffi_wrapper3 jsToString ds7_sOi1 GHC.Prim.realWorld# in select wild2_sOjO (<{GHC.Tuple.(,)}> ds8_sOjN ds9_sOi7 -> let !wild3_sOjM = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_sOi7 ds5_sOi8 ds4_sOi9 in select wild3_sOjM (<{GHC.Tuple.(,)}> ds10_sOie ds11_sOif -> <{GHC.Tuple.(,)}> ds10_sOie (GHC.Ptr.Ptr ds11_sOif))))))) Gui.Base.Text.text_x =: GHC.CString.unpackCString# "input text" Gui.Base.Text.text3 =: Javascript.Base.Types.FakePtr Gui.Base.Text.text_x Gui.Base.Text.text_x1 =: GHC.CString.unpackCString# "" Gui.Base.Text.text4 =: Javascript.Base.Types.FakePtr Gui.Base.Text.text_x1 Gui.Base.Text.text5 inpf_sOgh t_sOhw action_sOgO eta_sOgg = let !ds1_sOjv = inpf_sOgh eta_sOgg in select ds1_sOjv (<{GHC.Tuple.(,)}> ipv_sOgt ipv1_sOgn -> select t_sOhw (Data.Maybe.Nothing -> select Javascript.Base.String.$fDefaultPtr_$cmempty (GHC.Ptr.Ptr ds3_sOhA -> Gui.Base.Text.text5$1 action_sOgO ipv1_sOgn ipv_sOgt ds3_sOhA)) (Data.Maybe.Just v_sOhC -> select v_sOhC (GHC.Ptr.Ptr ds3_sOhF -> Gui.Base.Text.text5$1 action_sOgO ipv1_sOgn ipv_sOgt ds3_sOhF))) Gui.Base.Text.text5$1 action_sOgO ipv1_sOgn ipv_sOgt ds3_sOgr = select ipv1_sOgn (GHC.Ptr.Ptr ds5_sOgs -> let !wild_sOjt = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds3_sOgr ds5_sOgs ipv_sOgt in select wild_sOjt (<{GHC.Tuple.(,)}> ds7_sOgy ds8_sOgH -> let !ds_sOjs = newMutVar# Gui.Queue.Empty ds7_sOgy in select ds_sOjs (<{GHC.Tuple.(,)}> ipv2_sOh8 ipv3_sOgE -> let !ds2_sOjC = Javascript.Base.Types.FakePtr (Gui.Base.Text.text5$2 action_sOgO ds8_sOgH ipv3_sOgE) in select ds2_sOjC (GHC.Ptr.Ptr ds6_sOh0 -> select Javascript.JQuery.Events.change_evt (GHC.Ptr.Ptr ds10_sOh6 -> let !wild1_sOjA = ffi_wrapper3 makeCallback ds6_sOh0 GHC.Prim.realWorld# in select wild1_sOjA (<{GHC.Tuple.(,)}> ds11_sOjo ds12_sOh7 -> let !wild2_sOjz = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds10_sOh6 ds12_sOh7 ds8_sOgH ipv2_sOh8 in select wild2_sOjz (<{GHC.Tuple.(,)}> ds13_sOhn ds14_sOjp -> select Javascript.JQuery.Events.keyup_evt (GHC.Ptr.Ptr ds16_sOhl -> let !wild3_sOjx = ffi_wrapper3 makeCallback ds6_sOh0 GHC.Prim.realWorld# in select wild3_sOjx (<{GHC.Tuple.(,)}> ds17_sOjq ds18_sOhm -> let !wild4_sOjw = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds16_sOhl ds18_sOhm ds8_sOgH ds13_sOhn in select wild4_sOjw (<{GHC.Tuple.(,)}> ds19_sOhs ds20_sOht -> <{GHC.Tuple.(,)}> ds19_sOhs (GHC.Ptr.Ptr ds20_sOht))))))))))) Javascript.JQuery.Events.keyup_evt =: let !ds_suvA = Javascript.Base.Types.FakePtr Javascript.JQuery.Events.keyup_x in select ds_suvA (GHC.Ptr.Ptr ds1_supt -> let !tpl_suvz = Javascript.JQuery.Events.keyup_x, !wild_suvy = ffi_wrapper3 jsToString ds1_supt GHC.Prim.realWorld# in select wild_suvy (<{GHC.Tuple.(,)}> ds2_suvx ds3_supy -> GHC.Ptr.Ptr ds3_supy)) Javascript.JQuery.Events.keyup_x =: GHC.CString.unpackCString# "keyup" Javascript.JQuery.Events.change_evt =: let !ds_suvs = Javascript.Base.Types.FakePtr Javascript.JQuery.Events.change_x in select ds_suvs (GHC.Ptr.Ptr ds1_supg -> let !tpl_suvr = Javascript.JQuery.Events.change_x, !wild_suvq = ffi_wrapper3 jsToString ds1_supg GHC.Prim.realWorld# in select wild_suvq (<{GHC.Tuple.(,)}> ds2_suvp ds3_supl -> GHC.Ptr.Ptr ds3_supl)) Javascript.JQuery.Events.change_x =: GHC.CString.unpackCString# "change" Gui.Base.Text.text5$2 action_sOgO ds8_sOgH ipv3_sOgE w_sOgT w1_sOgS = Gui.Queue.$wa ipv3_sOgE (Gui.Base.Text.text5$3 action_sOgO ds8_sOgH) w1_sOgS Gui.Base.Text.text5$3 action_sOgO ds8_sOgH s_sOgI = let !wild1_sOjr = ffi_wrapper3 _Javascript_JQuery_Basic_getValUnsafe ds8_sOgH s_sOgI in select wild1_sOjr (<{GHC.Tuple.(,)}> ds2_sOgQ ds6_sOgN -> action_sOgO (GHC.Ptr.Ptr ds6_sOgN) ds2_sOgQ) Gui.Queue.$wa ww_snP w_snZ w1_snQ = let !ds1_soU = readMutVar# ww_snP w1_snQ in select ds1_soU (<{GHC.Tuple.(,)}> ipv_snW ipv1_snU -> select ipv1_snU (Gui.Queue.Empty -> let !s2#_snY = writeMutVar# ww_snP Gui.Queue.queue2 ipv_snW, !ds2_soS = w_snZ s2#_snY in select ds2_soS (<{GHC.Tuple.(,)}> ipv2_so3 ipv3_soR -> Gui.Queue.$wa1 ww_snP ipv2_so3)) (Gui.Queue.Full l_so5 -> let !s2#_soc = writeMutVar# ww_snP (Gui.Queue.Full (<{GHC.Base.++}> l_so5 (<{GHC.Types.:}> w_snZ <{GHC.Types.[]}>))) ipv_snW in <{GHC.Tuple.(,)}> s2#_soc <{GHC.Tuple.()}>)) :: Gui.Queue.ActionList = Gui.Queue.Empty | Gui.Queue.Full a1 Gui.Queue.$wa1 ww_snn w_sno = let !ds1_sot = readMutVar# ww_snn w_sno in select ds1_sot (<{GHC.Tuple.(,)}> ipv_sny ipv1_sns -> select ipv1_sns (Gui.Queue.Empty -> Gui.Queue.lvl) (Gui.Queue.Full ds_snw -> select ds_snw (<{GHC.Types.[]}> -> let !s2#_snA = writeMutVar# ww_snn Gui.Queue.Empty ipv_sny in <{GHC.Tuple.(,)}> s2#_snA <{GHC.Tuple.()}>) (<{GHC.Types.:}> a_snH as_snD -> let !s2#_snG = writeMutVar# ww_snn (Gui.Queue.Full as_snD) ipv_sny, !ds2_sox = a_snH s2#_snG in select ds2_sox (<{GHC.Tuple.(,)}> ipv2_snL ipv3_sow -> Gui.Queue.$wa1 ww_snn ipv2_snL)))) Gui.Queue.lvl =: Control.Exception.Base.patError "../../libs/Gui/Queue.hs:(23,17)-(24,84)|function cont" Gui.Queue.queue2 =: Gui.Queue.Full <{GHC.Types.[]}> 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)) Gui.FRP.Text.text2 inpf_sPLE sigIn_sPKI eta_sPKJ = let !ds1_sPNj = FRP.Fursuit.Signal.compile1 sigIn_sPKI eta_sPKJ in select ds1_sPNj (<{GHC.Tuple.(,)}> ipv_sPKN ipv1_sPKO -> let !ds2_sPNi = ipv1_sPKO ipv_sPKN in select ds2_sPNi (<{GHC.Tuple.(,)}> ipv2_sPL7 ipv3_sPKT -> let !ma_sPL1 = Gui.FRP.Text.text2$2 ipv3_sPKT, !initially1_sPLo = Gui.FRP.Text.text2$3 ma_sPL1 in select initially1_sPLo (GHC.Ptr.Ptr ipv4_sPNh -> let !ds3_sPNg = FRP.Fursuit.Pipe.emptyPipe1 ipv2_sPL7 in select ds3_sPNg (<{GHC.Tuple.(,)}> ipv5_sPLq ipv6_sPLb -> select ipv6_sPLb (<{GHC.Tuple.(,)}> ds_sPLf ds4_sPMI -> select ds_sPLf (FRP.Fursuit.Signal.P ref_sPLk ds5_sPLu ds6_sPLx -> select ref_sPLk (GHC.STRef.STRef var#_sPLn -> let !s2#_sPLG = writeMutVar# var#_sPLn (Data.Maybe.Just initially1_sPLo) ipv5_sPLq, !ds7_sPNq = inpf_sPLE ma_sPL1 (Gui.FRP.Text.text2$5 ds5_sPLu ds6_sPLx var#_sPLn) s2#_sPLG in select ds7_sPNq (<{GHC.Tuple.(,)}> ipv7_sPMD ipv8_sPLO -> let !ds8_sPNy = FRP.Fursuit.Signal.removableSink1 (Gui.FRP.Text.text2$6 ds5_sPLu ds6_sPLx ipv8_sPLO var#_sPLn) sigIn_sPKI ipv7_sPMD in select ds8_sPNy (<{GHC.Tuple.(,)}> ipv9_sPMH ipv10_sPN8 -> <{GHC.Tuple.(,)}> ipv9_sPMH (<{GHC.Tuple.(,)}> ipv8_sPLO ds4_sPMI)))))))))) Gui.FRP.Text.text2$6 ds5_sPLu ds6_sPLx ipv8_sPLO var#_sPLn x_sPM2 s_sPLU = select Javascript.JQuery.Basic.hasFocus1 (GHC.Ptr.Ptr ds9_sPLS -> select ipv8_sPLO (GHC.Ptr.Ptr ds11_sPLT -> let !wild3_sPNn = ffi_wrapper4 _Javascript_JQuery_Basic_isText ds9_sPLS ds11_sPLT s_sPLU in select wild3_sPNn (<{GHC.Tuple.(,)}> ds12_sPM1 ds13_sPLZ -> select ds13_sPLZ (_ -> <{GHC.Tuple.(,)}> ds12_sPM1 <{GHC.Tuple.()}>) (0 -> select x_sPM2 (Data.Maybe.Nothing -> select Javascript.Base.String.$fDefaultPtr_$cmempty (GHC.Ptr.Ptr ds15_sPM7 -> let !wild6_sPNt = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds15_sPM7 ds11_sPLT ds12_sPM1 in select wild6_sPNt (<{GHC.Tuple.(,)}> ds16_sPMj ds17_sPNb -> select ds5_sPLu (GHC.STRef.STRef ww6_sPMg -> select ds6_sPLx (GHC.STRef.STRef ww8_sPMh -> FRP.Fursuit.Pipe.$wa1 var#_sPLn ww6_sPMg ww8_sPMh Javascript.Base.String.$fDefaultPtr_$cmempty ds16_sPMj))))) (Data.Maybe.Just v_sPMl -> select v_sPMl (GHC.Ptr.Ptr ds15_sPMp -> let !wild6_sPNx = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds15_sPMp ds11_sPLT ds12_sPM1 in select wild6_sPNx (<{GHC.Tuple.(,)}> ds16_sPMB ds17_sPNa -> select ds5_sPLu (GHC.STRef.STRef ww6_sPMy -> select ds6_sPLx (GHC.STRef.STRef ww8_sPMz -> FRP.Fursuit.Pipe.$wa1 var#_sPLn ww6_sPMy ww8_sPMz v_sPMl ds16_sPMB))))))))) Javascript.JQuery.Basic.hasFocus1 =: let !ds_sGSj = Javascript.Base.Types.FakePtr Javascript.JQuery.Basic.hasFocus_x in select ds_sGSj (GHC.Ptr.Ptr ds1_sG88 -> let !tpl_sGSi = Javascript.JQuery.Basic.hasFocus_x, !wild_sGSh = ffi_wrapper3 jsToString ds1_sG88 GHC.Prim.realWorld# in select wild_sGSh (<{GHC.Tuple.(,)}> ds2_sGSg ds3_sG8d -> GHC.Ptr.Ptr ds3_sG8d)) Javascript.JQuery.Basic.hasFocus_x =: GHC.CString.unpackCString# ":focus" Gui.FRP.Text.text2$5 ds5_sPLu ds6_sPLx var#_sPLn w1_sPLC w2_sPLD = select ds5_sPLu (GHC.STRef.STRef ww6_sPLA -> select ds6_sPLx (GHC.STRef.STRef ww8_sPLB -> FRP.Fursuit.Pipe.$wa1 var#_sPLn ww6_sPLA ww8_sPLB w1_sPLC w2_sPLD)) :: FRP.Fursuit.Signal.Pipe = FRP.Fursuit.Signal.P a1 a2 a3 FRP.Fursuit.Pipe.emptyPipe1 eta_s3OR = let !ds_s3QZ = newMutVar# Data.Maybe.Nothing eta_s3OR in select ds_s3QZ (<{GHC.Tuple.(,)}> ipv_s3OV ipv1_s3Pa -> let !ds1_s3QY = newMutVar# false ipv_s3OV in select ds1_s3QY (<{GHC.Tuple.(,)}> ipv2_s3OZ ipv3_s3P7 -> let !ds2_s3QX = newMutVar# Data.IntMap.Base.Nil ipv2_s3OZ in select ds2_s3QX (<{GHC.Tuple.(,)}> ipv4_s3Pc ipv5_s3P4 -> let a_s3P5 = GHC.STRef.STRef ipv5_s3P4, a1_s3P8 = GHC.STRef.STRef ipv3_s3P7, a2_s3Pb = GHC.STRef.STRef ipv1_s3Pa in <{GHC.Tuple.(,)}> ipv4_s3Pc (<{GHC.Tuple.(,)}> (FRP.Fursuit.Signal.P a2_s3Pb a_s3P5 a1_s3P8) (FRP.Fursuit.Signal.Pipe a2_s3Pb a_s3P5 a1_s3P8))))) Gui.FRP.Text.text2$3 ma_sPL1 = select ma_sPL1 (Data.Maybe.Nothing -> Javascript.Base.String.$fDefaultPtr_$cmempty) (Data.Maybe.Just v_sPL4 -> v_sPL4) Gui.FRP.Text.text2$2 ipv3_sPKT = select ipv3_sPKT (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a_sPKW -> select a_sPKW (<{GHC.Tuple.(,)}> x_sPL0 ds3_sPNB -> x_sPL0)) Gui.Generic.Classes.$fGToInputsK1_$cgToInput $dToInput_s116C $dMonadIO_s116z eta_s116G eta1_s116A = let $dMonad_s116J = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s116z in Gui.Generic.Classes.$fGToInputsK1_$cgToInput$68 (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$67 $dMonadIO_s116z (Gui.Generic.Utils.defElems $dMonadIO_s116z eta_s116G) (GHC.Base.return $dMonad_s116J) (<{GHC.Base.>>=}> $dMonad_s116J) (<{GHC.Base.>>=}> $dMonad_s116J)) (<{GHC.Base.>>=}> $dMonad_s116J) ($dToInput_s116C $dMonadIO_s116z (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl4 eta1_s116A)) Gui.Generic.Classes.lvl4 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl3 Gui.Generic.Classes.lvl3 ds1_s116l = select ds1_s116l (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s116o -> Data.Maybe.Just a9_s116o) Gui.Generic.Utils.defElems $dMonadIO_sQNq eta_sQNO = let $dMonad_sQO2 = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_sQNq in Gui.Generic.Utils.defElems$4 (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_sQNq (Gui.Generic.Utils.defElems$5 eta_sQNO)) (Gui.Generic.Utils.defElems$3 (GHC.Base.return $dMonad_sQO2)) (<{GHC.Base.>>=}> $dMonad_sQO2) Gui.Generic.Utils.defElems$3 lvl_sQO4 ds_sQO7 = lvl_sQO4 (<{GHC.Tuple.(,)}> (Gui.Generic.Utils.defElems$2 ds_sQO7) (Gui.Generic.Utils.defElems$1 ds_sQO7)) Gui.Generic.Utils.defElems$1 ds_sQO7 = select ds_sQO7 (<{GHC.Tuple.(,)}> a5_sQPM <{s'_sQOg}> -> <{s'_sQOg}>) Gui.Generic.Utils.defElems$2 ds_sQO7 = select ds_sQO7 (<{GHC.Tuple.(,)}> a5_sQOb <{s'_sQPK}> -> a5_sQOb) Gui.Generic.Utils.defElems$5 eta_sQNO s_sQNw = select Gui.Generic.Utils.defElems8 (GHC.Ptr.Ptr ds1_sQNv -> let !wild_sQPP = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sQNv s_sQNw in select wild_sQPP (<{GHC.Tuple.(,)}> ds2_sQNG ds3_sQNF -> select Gui.Generic.Utils.defElems7 (GHC.Ptr.Ptr ds5_sQNE -> let !wild1_sQPN = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds5_sQNE ds3_sQNF ds2_sQNG in select wild1_sQPN (<{GHC.Tuple.(,)}> ds7_sQNP ds8_sQNM -> let div_sQNN = GHC.Ptr.Ptr ds8_sQNM, !ds6_sQPS = Gui.Generic.Utils.defElems4 eta_sQNO div_sQNN ds7_sQNP in select ds6_sQPS (<{GHC.Tuple.(,)}> ipv_sQNT ipv1_sQPH -> let !ds9_sQPR = Gui.Generic.Utils.defElems1 eta_sQNO div_sQNN ipv_sQNT in select ds9_sQPR (<{GHC.Tuple.(,)}> ipv2_sQNX ipv3_sQPI -> <{GHC.Tuple.(,)}> ipv2_sQNX div_sQNN)))))) Gui.Generic.Utils.defElems1 ds_sQKW ds1_sQLA eta_sQKY = select ds_sQKW (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> eta_sQKY <{GHC.Tuple.()}>) (Data.Maybe.Just ips_sQLi -> select Gui.Generic.Utils.defElems3 (GHC.Ptr.Ptr ds3_sQL3 -> let !wild1_sQOY = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_sQL3 eta_sQKY in select wild1_sQOY (<{GHC.Tuple.(,)}> ds4_sQLd ds5_sQLc -> select Gui.Generic.Utils.defElems2 (GHC.Ptr.Ptr ds7_sQLb -> let !wild2_sQOW = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds7_sQLb ds5_sQLc ds4_sQLd in select wild2_sQOW (<{GHC.Tuple.(,)}> ds8_sQLv ds9_sQLu -> select ips_sQLi (Gui.Generic.Types.InputSettings ds10_sQLp ds11_sQOR ds12_sQOS ds13_sQOT ds14_sQOU -> select ds10_sQLp (GHC.Ptr.Ptr ds16_sQLt -> let !wild4_sQOP = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds16_sQLt ds9_sQLu ds8_sQLv in select wild4_sQOP (<{GHC.Tuple.(,)}> ds17_sQLG ds18_sQLE -> select ds1_sQLA (GHC.Ptr.Ptr ds20_sQLF -> let !wild5_sQON = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds18_sQLE ds20_sQLF ds17_sQLG in select wild5_sQON (<{GHC.Tuple.(,)}> ds21_sQLL ds22_sQOM -> <{GHC.Tuple.(,)}> ds21_sQLL <{GHC.Tuple.()}>)))))))))) :: Gui.Generic.Types.InputSettings = Gui.Generic.Types.InputSettings a1 a2 a3 a4 a5 Gui.Generic.Utils.defElems2 =: let !ds_sQOJ = Javascript.Base.Types.FakePtr Gui.Generic.Utils.defElems_x in select ds_sQOJ (GHC.Ptr.Ptr ds1_sQKN -> let !tpl_sQOI = Gui.Generic.Utils.defElems_x, !wild_sQOH = ffi_wrapper3 jsToString ds1_sQKN GHC.Prim.realWorld# in select wild_sQOH (<{GHC.Tuple.(,)}> ds2_sQOG ds3_sQKS -> GHC.Ptr.Ptr ds3_sQKS)) Gui.Generic.Utils.defElems_x =: GHC.CString.unpackCString# "label" Gui.Generic.Utils.defElems3 =: let !ds_sQOx = Javascript.Base.Types.FakePtr Gui.Generic.Utils.defElems_x1 in select ds_sQOx (GHC.Ptr.Ptr ds1_sQKD -> let !tpl_sQOw = Gui.Generic.Utils.defElems_x1, !wild_sQOv = ffi_wrapper3 jsToString ds1_sQKD GHC.Prim.realWorld# in select wild_sQOv (<{GHC.Tuple.(,)}> ds2_sQOu ds3_sQKI -> GHC.Ptr.Ptr ds3_sQKI)) Gui.Generic.Utils.defElems_x1 =: GHC.CString.unpackCString# "" Gui.Generic.Utils.defElems4 ips_sQLP e_sQMR eta_sQLR = select ips_sQLP (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> eta_sQLR <{GHC.Tuple.()}>) (Data.Maybe.Just a_sQLT -> select a_sQLT (Gui.Generic.Types.InputSettings ds1_sQP8 ds2_sQM0 ds3_sQP9 ds4_sQPa ds5_sQPb -> select ds2_sQM0 (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> eta_sQLR <{GHC.Tuple.()}>) (Data.Maybe.Just x_sQMG -> select Gui.Generic.Utils.defElems6 (GHC.Ptr.Ptr ds6_sQM7 -> let !tpl_sQPr = Gui.Generic.Utils.defElems_x3, !wild3_sQPq = ffi_wrapper3 jsToString ds6_sQM7 GHC.Prim.realWorld# in select wild3_sQPq (<{GHC.Tuple.(,)}> ds7_sQPp ds8_sQMd -> let !wild4_sQPo = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds8_sQMd eta_sQLR in select wild4_sQPo (<{GHC.Tuple.(,)}> ds9_sQMu ds10_sQMt -> select Gui.Generic.Utils.defElems5 (GHC.Ptr.Ptr ds12_sQMm -> let !tpl1_sQPm = Gui.Generic.Utils.defElems_x2, !wild5_sQPl = ffi_wrapper3 jsToString ds12_sQMm GHC.Prim.realWorld# in select wild5_sQPl (<{GHC.Tuple.(,)}> ds13_sQPk ds14_sQMs -> let !wild6_sQPj = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds14_sQMs ds10_sQMt ds9_sQMu in select wild6_sQPj (<{GHC.Tuple.(,)}> ds15_sQMB ds16_sQMA -> let !wild7_sQPi = ffi_wrapper3 _Javascript_JQuery_Basic_hide ds16_sQMA ds15_sQMB in select wild7_sQPi (<{GHC.Tuple.(,)}> ds17_sQMM ds18_sQML -> select x_sQMG (GHC.Ptr.Ptr ds20_sQMK -> let !wild8_sQPg = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds20_sQMK ds18_sQML ds17_sQMM in select wild8_sQPg (<{GHC.Tuple.(,)}> ds21_sQMX ds22_sQMV -> select e_sQMR (GHC.Ptr.Ptr ds24_sQMW -> let !wild9_sQPe = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds22_sQMV ds24_sQMW ds21_sQMX in select wild9_sQPe (<{GHC.Tuple.(,)}> ds25_sQN2 ds26_sQPd -> <{GHC.Tuple.(,)}> ds25_sQN2 <{GHC.Tuple.()}>)))))))))))))) Gui.Generic.Utils.defElems_x2 =: GHC.CString.unpackCString# "tooltip" Gui.Generic.Utils.defElems5 =: Javascript.Base.Types.FakePtr Gui.Generic.Utils.defElems_x2 Gui.Generic.Utils.defElems_x3 =: GHC.CString.unpackCString# "" Gui.Generic.Utils.defElems6 =: Javascript.Base.Types.FakePtr Gui.Generic.Utils.defElems_x3 Gui.Generic.Utils.defElems7 =: let !ds_sQPF = Javascript.Base.Types.FakePtr Gui.Generic.Utils.defElems_x4 in select ds_sQPF (GHC.Ptr.Ptr ds1_sQNh -> let !tpl_sQPE = Gui.Generic.Utils.defElems_x4, !wild_sQPD = ffi_wrapper3 jsToString ds1_sQNh GHC.Prim.realWorld# in select wild_sQPD (<{GHC.Tuple.(,)}> ds2_sQPC ds3_sQNm -> GHC.Ptr.Ptr ds3_sQNm)) Gui.Generic.Utils.defElems_x4 =: GHC.CString.unpackCString# "container" Gui.Generic.Utils.defElems8 =: let !ds_sQPz = Javascript.Base.Types.FakePtr Gui.Generic.Utils.defElems_x5 in select ds_sQPz (GHC.Ptr.Ptr ds1_sQN7 -> let !tpl_sQPy = Gui.Generic.Utils.defElems_x5, !wild_sQPx = ffi_wrapper3 jsToString ds1_sQN7 GHC.Prim.realWorld# in select wild_sQPx (<{GHC.Tuple.(,)}> ds2_sQPw ds3_sQNc -> GHC.Ptr.Ptr ds3_sQNc)) Gui.Generic.Utils.defElems_x5 =: GHC.CString.unpackCString# "" Gui.Generic.Utils.defElems$4 a_sQO0 lvl1_sQOl lvl2_sQOn eta1_sQOp = lvl2_sQOn (a_sQO0 eta1_sQOp) lvl1_sQOl Gui.Generic.Classes.$fGToInputsK1_$cgToInput$67 $dMonadIO_s116z lvl28_s116H lvl29_s116L lvl30_s116N lvl31_s116P ds_s116T = lvl31_s116P (lvl28_s116H (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$8 ds_s116T)) (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$69 $dMonadIO_s116z (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$7 ds_s116T) lvl29_s116L lvl30_s116N) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$7 ds_s116T = select ds_s116T (<{GHC.Tuple.(,)}> a9_s116X <{s'_s11Fj}> -> a9_s116X) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$69 $dMonadIO_s116z e_s116Y lvl29_s116L lvl30_s116N ds1_s1178 = let div_s117d = Gui.Generic.Classes.$fGToInputsK1_$cgToInput$9 ds1_s1178 in lvl30_s116N (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s116z (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$71 div_s117d e_s116Y) (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$11 ds1_s1178)) (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$70 lvl29_s116L (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$10 div_s117d e_s116Y)) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$10 div_s117d e_s116Y = select e_s116Y (Gui.Generic.Types.Input ds2_s117i ds3_s11Fd -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl6 ds2_s117i) (<{GHC.Types.:}> div_s117d <{GHC.Types.[]}>)) Gui.Generic.Classes.lvl6 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl5 Gui.Generic.Classes.lvl5 ds1_s116q = select ds1_s116q (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s116t -> Data.Maybe.Just a9_s116t) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$70 lvl29_s116L lvl33_s117l ds2_s118d = lvl29_s116L (<{GHC.Tuple.(,)}> lvl33_s117l (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$12 ds2_s118d)) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$12 ds2_s118d = select ds2_s118d (<{GHC.Tuple.(,)}> a9_s11Fc <{s'_s118h}> -> <{s'_s118h}>) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$11 ds1_s1178 = select ds1_s1178 (<{GHC.Tuple.(,)}> a9_s11Fb <{s'_s1187}> -> <{s'_s1187}>) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$71 div_s117d e_s116Y eta2_s117s = select e_s116Y (Gui.Generic.Types.Input ds2_s11F6 ds3_s117q -> select ds3_s117q (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta2_s117s <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s117v ys_s1181 -> select y_s117v (GHC.Ptr.Ptr ds5_s117B -> select div_s117d (GHC.Ptr.Ptr ds7_s117C -> let !wild2_s11Fs = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds5_s117B ds7_s117C eta2_s117s in select wild2_s11Fs (<{GHC.Tuple.(,)}> ds8_s1182 ds9_s11F8 -> Gui.Generic.Classes.$fGToInputsK1_$cgToInput$1 ds7_s117C ys_s1181 ds8_s1182))))) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$1 ds7_s117C ds10_s117K eta3_s117M = select ds10_s117K (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s117M <{GHC.Tuple.()}>) (<{GHC.Types.:}> y1_s117P ys1_s117Y -> select y1_s117P (GHC.Ptr.Ptr ds12_s117T -> let !wild4_s11Fv = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds12_s117T ds7_s117C eta3_s117M in select wild4_s11Fv (<{GHC.Tuple.(,)}> ds13_s117Z ds14_s11F7 -> Gui.Generic.Classes.$fGToInputsK1_$cgToInput$1 ds7_s117C ys1_s117Y ds13_s117Z))) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$9 ds1_s1178 = select ds1_s1178 (<{GHC.Tuple.(,)}> a9_s117c <{s'_s11Fh}> -> a9_s117c) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$8 ds_s116T = select ds_s116T (<{GHC.Tuple.(,)}> a9_s11Fg <{s'_s1172}> -> <{s'_s1172}>) Gui.Generic.Classes.$fGToInputsK1_$cgToInput$68 lvl32_s118n lvl33_s118p m_s116E eta2_s118r = lvl33_s118p (m_s116E eta2_s118r) lvl32_s118n Gui.Generic.Classes.$w$cgToInput w_s11cU w1_s11cB w2_s11cz w3_s11cS = let $dMonad_s11cZ = Control.Monad.IO.Class.$p1MonadIO w2_s11cz in Gui.Generic.Classes.$w$cgToInput$81 (Gui.Generic.Classes.$w$cgToInput$80 (GHC.Base.return $dMonad_s11cZ)) (<{GHC.Base.>>=}> $dMonad_s11cZ) (Gui.Generic.Classes.$w$cgToInput$125 w1_s11cB w2_s11cz w3_s11cS w_s11cU) Gui.Generic.Classes.$w$cgToInput$125 w1_s11cB w2_s11cz w3_s11cS w_s11cU = w_s11cU w2_s11cz (Data.Maybe.Just (Gui.Generic.Types.InputSettings (Gui.Generic.Classes.$w$cgToInput$126 w1_s11cB) Data.Maybe.Nothing Data.Maybe.Nothing Data.Maybe.Nothing <{GHC.Types.[]}>)) (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM4 w3_s11cS) Gui.Generic.Classes.$fGToInputsM4 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM5 Gui.Generic.Classes.$fGToInputsM5 ds1_s11cl = select ds1_s11cl (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11co -> Data.Maybe.Just a9_s11co) Gui.Generic.Classes.$w$cgToInput$126 w1_s11cB = let !x3_s11cC = w1_s11cB GHC.Err.undefined, !ds_s11GY = Javascript.Base.Types.FakePtr x3_s11cC in select ds_s11GY (GHC.Ptr.Ptr ds1_s11cH -> let !tpl_s11GX = x3_s11cC, !wild_s11GW = ffi_wrapper3 jsToString ds1_s11cH GHC.Prim.realWorld# in select wild_s11GW (<{GHC.Tuple.(,)}> ds2_s11GQ ds3_s11cM -> GHC.Ptr.Ptr ds3_s11cM)) Gui.Generic.Classes.$w$cgToInput$80 lvl28_s11d1 ds_s11d4 = lvl28_s11d1 (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInput$23 ds_s11d4) (Gui.Generic.Classes.$w$cgToInput$22 ds_s11d4)) Gui.Generic.Classes.$w$cgToInput$22 ds_s11d4 = select ds_s11d4 (<{GHC.Tuple.(,)}> a9_s11GV <{s'_s11dj}> -> <{s'_s11dj}>) Gui.Generic.Classes.$w$cgToInput$23 ds_s11d4 = select ds_s11d4 (<{GHC.Tuple.(,)}> a9_s11d8 <{s'_s11GT}> -> select a9_s11d8 (Gui.Generic.Types.Input ma_s11dc e_s11de -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM2 ma_s11dc) e_s11de)) Gui.Generic.Classes.$fGToInputsM2 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM3 Gui.Generic.Classes.$fGToInputsM3 ds1_s11cq = select ds1_s11cq (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11ct -> Data.Maybe.Just a9_s11ct) Gui.Generic.Classes.$w$cgToInput$81 lvl29_s11do lvl30_s11dq m_s11cX eta_s11ds = lvl30_s11dq (m_s11cX eta_s11ds) lvl29_s11do <{MainGenGui.$fToInputsABCD'10}> w2_s1imh w3_s1imi w4_s1imj = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsABCD'8}> w2_s1imh w3_s1imi w4_s1imj Gui.Generic.Classes.$w$cgToInput1 w_s11bz w1_s11bv w2_s11bw w3_s11bx = let $dMonad_s11bD = Control.Monad.IO.Class.$p1MonadIO w1_s11bv in Gui.Generic.Classes.$w$cgToInput1$79 (Gui.Generic.Classes.$w$cgToInput1$78 (GHC.Base.return $dMonad_s11bD)) (<{GHC.Base.>>=}> $dMonad_s11bD) (w_s11bz w1_s11bv w2_s11bw (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM8 w3_s11bx)) Gui.Generic.Classes.$fGToInputsM8 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM9 Gui.Generic.Classes.$fGToInputsM9 ds1_s11bh = select ds1_s11bh (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11bk -> Data.Maybe.Just a9_s11bk) Gui.Generic.Classes.$w$cgToInput1$78 lvl28_s11bF ds_s11bI = lvl28_s11bF (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInput1$21 ds_s11bI) (Gui.Generic.Classes.$w$cgToInput1$20 ds_s11bI)) Gui.Generic.Classes.$w$cgToInput1$20 ds_s11bI = select ds_s11bI (<{GHC.Tuple.(,)}> a9_s11GC <{s'_s11bX}> -> <{s'_s11bX}>) Gui.Generic.Classes.$w$cgToInput1$21 ds_s11bI = select ds_s11bI (<{GHC.Tuple.(,)}> a9_s11bM <{s'_s11GA}> -> select a9_s11bM (Gui.Generic.Types.Input ma_s11bQ e_s11bS -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM6 ma_s11bQ) e_s11bS)) Gui.Generic.Classes.$fGToInputsM6 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM7 Gui.Generic.Classes.$fGToInputsM7 ds1_s11bm = select ds1_s11bm (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11bp -> Data.Maybe.Just a9_s11bp) Gui.Generic.Classes.$w$cgToInput1$79 lvl29_s11c2 lvl30_s11c4 m_s11bB eta_s11c6 = lvl30_s11c4 (m_s11bB eta_s11c6) lvl29_s11c2 Gui.Generic.Classes.$fGToInputAltsM1 $dGToInput_s11xR $dGToInput1_s11xT $dConstructor_s11xU = <{Gui.Generic.Classes.D:GToInputAlt}> $dGToInput_s11xR (Gui.Generic.Classes.$fGToInputAltsM1$107 $dConstructor_s11xU $dGToInput1_s11xT) Gui.Generic.Classes.$fGToInputAltsM1$107 $dConstructor_s11xU $dGToInput1_s11xT w_s11xV = Gui.Generic.Classes.$w$cgToInputAlt1 $dGToInput1_s11xT $dConstructor_s11xU w_s11xV Gui.Generic.Classes.$w$cgToInputAlt1 w_s11wX w1_s11vz w2_s11vO = let con_s11vA = GHC.Generics.conName w1_s11vz GHC.Err.undefined, !ds_s11NC = Javascript.Base.Types.FakePtr con_s11vA in select ds_s11NC (GHC.Ptr.Ptr ds1_s11vG -> let $dMonad_s11vV = Control.Monad.IO.Class.$p1MonadIO w2_s11vO in Gui.Generic.Classes.$w$cgToInputAlt1$99 (Control.Monad.Trans.State.Lazy.$w$cliftIO w2_s11vO (Gui.Generic.Classes.$w$cgToInputAlt1$100 con_s11vA)) (Gui.Generic.Classes.$w$cgToInputAlt1$133 con_s11vA ds1_s11vG) (GHC.Base.return $dMonad_s11vV) (Gui.Generic.Classes.$w$cgToInputAlt1$98 (GHC.Base.return $dMonad_s11vV)) (<{GHC.Base.>>=}> $dMonad_s11vV) (<{GHC.Base.>>=}> $dMonad_s11vV) (<{GHC.Base.>>=}> $dMonad_s11vV) (<{GHC.Base.>>=}> $dMonad_s11vV) w2_s11vO w_s11wX) Gui.Generic.Classes.$w$cgToInputAlt1$98 lvl30_s11vZ ds2_s11w2 = lvl30_s11vZ (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt1$47 ds2_s11w2) (Gui.Generic.Classes.$w$cgToInputAlt1$46 ds2_s11w2)) Gui.Generic.Classes.$w$cgToInputAlt1$46 ds2_s11w2 = select ds2_s11w2 (<{GHC.Tuple.(,)}> a10_s11Ny <{s'_s11wh}> -> <{s'_s11wh}>) Gui.Generic.Classes.$w$cgToInputAlt1$47 ds2_s11w2 = select ds2_s11w2 (<{GHC.Tuple.(,)}> a10_s11w6 <{s'_s11Nn}> -> select a10_s11w6 (Gui.Generic.Types.Input ma_s11wa e_s11wc -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl17 ma_s11wa) e_s11wc)) Gui.Generic.Classes.lvl17 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM7 Gui.Generic.Classes.$w$cgToInputAlt1$133 con_s11vA ds1_s11vG = let !tpl_s11NB = con_s11vA, !wild_s11NA = ffi_wrapper3 jsToString ds1_s11vG GHC.Prim.realWorld# in select wild_s11NA (<{GHC.Tuple.(,)}> ds2_s11Nz ds3_s11vL -> GHC.Ptr.Ptr ds3_s11vL) Gui.Generic.Classes.$w$cgToInputAlt1$100 con_s11vA eta_B1_B1 = Javascript.Utils.dumpString1 (GHC.CString.unpackAppendCString# "alt C1 K1" con_s11vA) eta_B1_B1 Gui.Generic.Classes.$w$cgToInputAlt1$99 a9_s11vT lvl28_s11vM lvl29_s11vX lvl31_s11wm lvl32_s11wo lvl33_s11wq lvl34_s11ws lvl35_s11wu w2_s11vO w_s11wX ips_s11wT ma_s11wy = Gui.Generic.Classes.$w$cgToInputAlt1$103 a9_s11vT lvl35_s11wu (Gui.Generic.Classes.$w$cgToInputAlt1$102 (Control.Monad.Trans.State.Lazy.$w$cliftIO w2_s11vO (Gui.Generic.Classes.$w$cgToInputAlt1$104 ma_s11wy)) lvl34_s11ws (Gui.Generic.Classes.$w$cgToInputAlt1$101 ips_s11wT lvl28_s11vM lvl29_s11vX lvl31_s11wm lvl32_s11wo lvl33_s11wq (Gui.Generic.Classes.$w$cgToInputAlt1$42 ma_s11wy) w2_s11vO w_s11wX)) Gui.Generic.Classes.$w$cgToInputAlt1$42 ma_s11wy = select ma_s11wy (Data.Maybe.Nothing -> false) (Data.Maybe.Just ipv_s11Nw -> true) Gui.Generic.Classes.$w$cgToInputAlt1$101 ips_s11wT lvl28_s11vM lvl29_s11vX lvl31_s11wm lvl32_s11wo lvl33_s11wq lvl36_s11wF w2_s11vO w_s11wX ds2_s11wI = select ds2_s11wI (<{GHC.Tuple.(,)}> a11_s11wM <{s'_s11wW}> -> select a11_s11wM (<{GHC.Tuple.(,)}> p_s11wR s_s11wU -> lvl33_s11wq (lvl32_s11wo (w_s11wX w2_s11vO ips_s11wT (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl16 s_s11wU) <{s'_s11wW}>) lvl31_s11wm) (Gui.Generic.Classes.$w$cgToInputAlt1$106 (Gui.Generic.Classes.$w$cgToInputAlt1$105 p_s11wR) lvl28_s11vM lvl29_s11vX lvl36_s11wF))) Gui.Generic.Classes.$w$cgToInputAlt1$105 p_s11wR eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.write1 p_s11wR eta_B2_B2 eta_B1_B1 FRP.Fursuit.Pipe.write1 w_s3Ox w1_s3OO w2_s3OP = select w_s3Ox (FRP.Fursuit.Signal.P ww_s3OC ww1_s3OF ww2_s3OI -> select ww_s3OC (GHC.STRef.STRef ww4_s3OL -> select ww1_s3OF (GHC.STRef.STRef ww6_s3OM -> select ww2_s3OI (GHC.STRef.STRef ww8_s3ON -> FRP.Fursuit.Pipe.$wa1 ww4_s3OL ww6_s3OM ww8_s3ON w1_s3OO w2_s3OP)))) Gui.Generic.Classes.$w$cgToInputAlt1$106 a12_s11wS lvl28_s11vM lvl29_s11vX lvl36_s11wF ds3_s11x3 = lvl29_s11vX (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> a12_s11wS (<{GHC.Types.:}> (Gui.Generic.Classes.Alt lvl28_s11vM lvl36_s11wF (Gui.Generic.Classes.$w$cgToInputAlt1$45 ds3_s11x3)) <{GHC.Types.[]}>)) (Gui.Generic.Classes.$w$cgToInputAlt1$44 ds3_s11x3)) Gui.Generic.Classes.$w$cgToInputAlt1$44 ds3_s11x3 = select ds3_s11x3 (<{GHC.Tuple.(,)}> a13_s11Ns <{s'1_s11xi}> -> <{s'1_s11xi}>) Gui.Generic.Classes.$w$cgToInputAlt1$45 ds3_s11x3 = select ds3_s11x3 (<{GHC.Tuple.(,)}> a13_s11x7 <{s'1_s11Np}> -> a13_s11x7) :: Gui.Generic.Classes.Alt = Gui.Generic.Classes.Alt a1 a2 a3 Gui.Generic.Classes.lvl16 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM9 Gui.Generic.Classes.$w$cgToInputAlt1$104 ma_s11wy eta_B1_B1 = FRP.Fursuit.Pipe.pipe1 ma_s11wy eta_B1_B1 FRP.Fursuit.Pipe.pipe1 initially_s3Pk eta_s3Pm = let !initially1_s3PD = initially_s3Pk, !ds1_s3R8 = FRP.Fursuit.Pipe.emptyPipe1 eta_s3Pm in select ds1_s3R8 (<{GHC.Tuple.(,)}> ipv_s3PF ipv1_s3Pq -> select ipv1_s3Pq (<{GHC.Tuple.(,)}> ds_s3Pu ds2_s3R7 -> select ds_s3Pu (FRP.Fursuit.Signal.P ref_s3Pz ds3_s3R4 ds4_s3R5 -> select ref_s3Pz (GHC.STRef.STRef var#_s3PC -> let !s2#_s3PH = writeMutVar# var#_s3PC (Data.Maybe.Just initially1_s3PD) ipv_s3PF in <{GHC.Tuple.(,)}> s2#_s3PH ipv1_s3Pq)))) Gui.Generic.Classes.$w$cgToInputAlt1$102 a10_s11wB lvl34_s11ws lvl37_s11xo ds2_s11xr = lvl34_s11ws (a10_s11wB (Gui.Generic.Classes.$w$cgToInputAlt1$43 ds2_s11xr)) lvl37_s11xo Gui.Generic.Classes.$w$cgToInputAlt1$43 ds2_s11xr = select ds2_s11xr (<{GHC.Tuple.(,)}> a11_s11Nv <{s'_s11xv}> -> <{s'_s11xv}>) Gui.Generic.Classes.$w$cgToInputAlt1$103 a9_s11vT lvl35_s11wu lvl38_s11xz eta_s11xB = lvl35_s11wu (a9_s11vT eta_s11xB) lvl38_s11xz GHC.Generics.conName tpl_sb0B_sb0B = select tpl_sb0B_sb0B (<{GHC.Generics.D:Constructor}> tpl_sb0G_sb0G tpl_sboZ_sboZ tpl_sbp0_sbp0 -> tpl_sb0G_sb0G) :: Gui.Generic.Classes.GToInputAlt = <{Gui.Generic.Classes.D:GToInputAlt}> a1 a2 <{MainGenGui.$fToInputsABCD'11}> =: Gui.Generic.Classes.$fGToInputAltsM1 <{MainGenGui.$fToInputsABCD'18}> <{MainGenGui.$fToInputsABCD'12}> <{MainGenGui.$fConstructorABCD'1}> <{MainGenGui.$fConstructorABCD'1}> =: <{GHC.Generics.D:Constructor}> <{MainGenGui.$fConstructorABCD'1_$cconName}> <{MainGenGui.$fConstructorABCD'1_$cconFixity}> <{MainGenGui.$fConstructorABCD'1_$cconIsRecord}> <{MainGenGui.$fConstructorABCD'1_$cconIsRecord}> ds_s1igT = true <{MainGenGui.$fConstructorABCD'1_$cconFixity}> ds_s1igX = GHC.Generics.Prefix <{MainGenGui.$fConstructorABCD'1_$cconName}> ds_s1igV = <{MainGenGui.$fConstructorABCD'5}> <{MainGenGui.$fConstructorABCD'5}> =: GHC.CString.unpackCString# "C\'" <{MainGenGui.$fToInputsABCD'12}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> <{MainGenGui.$fToInputsABCD'16}> <{MainGenGui.$fToInputsABCD'13}> eta_B3_B3 eta_B2_B2 eta_B1_B1 <{MainGenGui.$fToInputsABCD'13}> w2_s1imz w3_s1imB w4_s1imA = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> <{MainGenGui.$fSelectorABCD'2_$cselName}> w2_s1imz w4_s1imA <{MainGenGui.$fSelectorABCD'2_$cselName}> ds_s1igH = <{MainGenGui.$fSelectorABCD'5}> <{MainGenGui.$fSelectorABCD'5}> =: GHC.CString.unpackCString# "c\'s" <{MainGenGui.$fToInputsABCD'15}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput eta_B3_B3 eta_B2_B2 eta_B1_B1 Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput $dMonadIO_s14Ab eta_s14Ac = let $dMonad_s14Ah = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14Ab in Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$10 (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14Ab (Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$11 eta_s14Ac)) (Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$9 (GHC.Base.return $dMonad_s14Ah)) (<{GHC.Base.>>=}> $dMonad_s14Ah) Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$9 lvl_s14Aj ds_s14Am = select ds_s14Am (<{GHC.Tuple.(,)}> a5_s14Aq <{s'_s14AB}> -> select a5_s14Aq (<{GHC.Tuple.(,)}> inp_s14Aw sig_s14Au -> lvl_s14Aj (<{GHC.Tuple.(,)}> (Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Instances.Basic.$fToInputsPtr1 sig_s14Au) (<{GHC.Types.:}> inp_s14Aw <{GHC.Types.[]}>)) <{s'_s14AB}>))) Gui.Generic.Instances.Basic.$fToInputsPtr1 =: FRP.Fursuit.Signal.Pure Data.Maybe.Just Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$11 eta_s14Ac eta_B1_B1 = Gui.FRP.Text.text2 Gui.Base.Text.text1 eta_s14Ac eta_B1_B1 Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$10 a_s14Af lvl1_s14AE lvl2_s14AG eta1_s14AI = lvl2_s14AG (a_s14Af eta1_s14AI) lvl1_s14AE <{MainGenGui.$fToInputsABCD'16}> w2_s1im5 w3_s1im7 w4_s1im6 = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'17}> <{MainGenGui.$fSelectorABCD'1_$cselName}> w2_s1im5 w4_s1im6 <{MainGenGui.$fSelectorABCD'1_$cselName}> ds_s1igJ = <{MainGenGui.$fSelectorABCD'4}> <{MainGenGui.$fSelectorABCD'4}> =: GHC.CString.unpackCString# "c\'i" <{MainGenGui.$fToInputsABCD'17}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput eta_B3_B3 eta_B2_B2 eta_B1_B1 Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput $dMonadIO_s14BA = Gui.Generic.Instances.Basic.$wnumInput (Control.Monad.Trans.State.Lazy.$fMonadStateT (Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14BA)) (Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput$15 $dMonadIO_s14BA) Gui.Generic.ConvNum.$fConvNumInt_$cconvNum GHC.Show.$fShowInt Gui.Generic.ConvNum.$fConvNumInt_$cconvNum a_sbud = let !wild_sbw3 = Text.ParserCombinators.ReadP.run Gui.Generic.ConvNum.$fConvNumInt2 a_sbud in select wild_sbw3 (<{GHC.Types.[]}> -> Gui.Generic.ConvNum.$wfail2) (<{GHC.Types.:}> ds_sbuh ds1_sbun -> select ds_sbuh (<{GHC.Tuple.(,)}> <{a'_sbup}> ds2_sbul -> select ds2_sbul (<{GHC.Types.[]}> -> select ds1_sbun (<{GHC.Types.[]}> -> Data.Either.Right <{a'_sbup}>) (<{GHC.Types.:}> ipv_sbw7 ipv1_sbw8 -> Gui.Generic.ConvNum.$wfail2)) (<{GHC.Types.:}> ipv_sbw9 ipv1_sbwa -> Gui.Generic.ConvNum.$wfail2))) Gui.Generic.ConvNum.$wfail2 =: Data.Either.Left Gui.Generic.ConvNum.$fConvNumInt1 Gui.Generic.ConvNum.$fConvNumInt1 =: let !ds_sbvZ = Javascript.Base.Types.FakePtr Gui.Generic.ConvNum.$fConvNumInt_x in select ds_sbvZ (GHC.Ptr.Ptr ds1_sbu6 -> let !tpl_sbvY = Gui.Generic.ConvNum.$fConvNumInt_x, !wild_sbvX = ffi_wrapper3 jsToString ds1_sbu6 GHC.Prim.realWorld# in select wild_sbvX (<{GHC.Tuple.(,)}> ds2_sbvW ds3_sbub -> GHC.Ptr.Ptr ds3_sbub)) Gui.Generic.ConvNum.$fConvNumInt_x =: GHC.CString.unpackCString# "not an int" Gui.Generic.ConvNum.$fConvNumInt2 =: GHC.Read.$fReadInt5 GHC.Read.$fReadInt_$sconvertInt Text.ParserCombinators.ReadPrec.minPrec Text.ParserCombinators.ReadP.$fMonadP_$creturn GHC.Read.$fReadInt_$sconvertInt ds_schM = select ds_schM (_ -> GHC.Read.$fReadInt4) (Text.Read.Lex.Number n_schP -> let !wild1_sdqu = Text.Read.Lex.numberToInteger n_schP in select wild1_sdqu (Data.Maybe.Nothing -> GHC.Read.$fReadInt3) (Data.Maybe.Just i_schT -> GHC.Read.$fReadInt_$sconvertInt$16 (GHC.Read.$fReadInt_$sconvertInt$280 i_schT))) GHC.Read.$fReadInt_$sconvertInt$280 i_schT = let !wild2_schV = GHC.Integer.Type.integerToInt i_schT in GHC.Types.I# wild2_schV GHC.Read.$fReadInt_$sconvertInt$16 x_schW ds1_sci0 eta_schZ = eta_schZ x_schW GHC.Read.$fReadInt3 eta_scgS eta1_scgT = Text.ParserCombinators.ReadP.Fail Text.Read.Lex.numberToInteger ds_s8P5 = select ds_s8P5 (Text.Read.Lex.MkNumber base_s8P9 iPart_s8Pe -> Data.Maybe.Just (Text.Read.Lex.numberToInteger_$sval (Text.Read.Lex.numberToInteger$9 base_s8P9) Text.Read.Lex.numberToInteger2 iPart_s8Pe)) (Text.Read.Lex.MkDecimal iPart_s8Po ds1_s8Pk ds3_s8Pm -> select ds1_s8Pk (Data.Maybe.Nothing -> select ds3_s8Pm (Data.Maybe.Nothing -> Data.Maybe.Just (Text.Read.Lex.numberToInteger_$sval Text.Read.Lex.numberToInteger1 Text.Read.Lex.numberToInteger2 iPart_s8Po)) (Data.Maybe.Just ipv_s9j8 -> Data.Maybe.Nothing)) (Data.Maybe.Just ipv_s9j9 -> Data.Maybe.Nothing)) Text.Read.Lex.numberToInteger$9 base_s8P9 = select base_s8P9 (GHC.Types.I# i_s8Pc -> GHC.Integer.Type.smallInteger i_s8Pc) GHC.Read.$fReadInt4 eta_B2_B2 eta_B1_B1 = GHC.Read.$fReadInt3 eta_B2_B2 eta_B1_B1 GHC.Read.$fReadInt5 convert_scoH eta_scps eta1_scpt = let a4_scpq = GHC.Read.$fReadInt5$54 a4_scpq convert_scoH in a4_scpq eta_scps eta1_scpt GHC.Read.$fReadInt5$54 a4_scpq convert_scoH n_scoG eta2_scoA = Text.ParserCombinators.ReadP.$fMonadPlusP_$cmplus (Text.ParserCombinators.ReadP.Look (GHC.Read.$fReadInt5$61 (GHC.Read.$fReadInt5$60 (GHC.Read.$fReadInt5$59 (GHC.Read.$fReadInt5$58 (GHC.Read.$fReadInt5$57 (GHC.Read.$fReadInt5$56 convert_scoH (GHC.Read.$fReadInt5$55 eta2_scoA) n_scoG))) convert_scoH eta2_scoA n_scoG)))) (GHC.Read.$wa3 a4_scpq eta2_scoA) GHC.Read.$fReadInt5$55 eta2_scoA a5_scov = eta2_scoA (GHC.Read.$fReadInt5$6 a5_scov) GHC.Read.$fReadInt5$6 a5_scov = select a5_scov (GHC.Types.I# x_scoy -> let !sat_sds6_sds6 = negateInt# x_scoy in GHC.Types.I# sat_sds6_sds6) GHC.Read.$fReadInt5$56 convert_scoH lvl14_scoC n_scoG a5_scoF = convert_scoH a5_scoF n_scoG lvl14_scoC GHC.Read.$fReadInt5$57 k_scoI a104_scoN = Text.Read.Lex.hsLex2 k_scoI GHC.Read.$fReadInt5$58 k2_scoO a104_scoR = Text.ParserCombinators.ReadP.skipSpaces_skip a104_scoR k2_scoO GHC.Read.$fReadInt5$59 a5_scoS convert_scoH eta2_scoA n_scoG a6_scoX = select a6_scoX (_ -> convert_scoH a6_scoX n_scoG eta2_scoA) (Text.Read.Lex.Symbol ds_scp1 -> select ds_scp1 (<{GHC.Types.[]}> -> convert_scoH a6_scoX n_scoG eta2_scoA) (<{GHC.Types.:}> ds1_scp5 ds2_scpa -> select ds1_scp5 (GHC.Types.C# ds3_scp8 -> select ds3_scp8 (_ -> convert_scoH a6_scoX n_scoG eta2_scoA) ('-' -> select ds2_scpa (<{GHC.Types.[]}> -> Text.ParserCombinators.ReadP.Look a5_scoS) (<{GHC.Types.:}> ipv_sdsa ipv1_sdsb -> convert_scoH a6_scoX n_scoG eta2_scoA))))) GHC.Read.$fReadInt5$60 k3_scpe a104_scpj = Text.Read.Lex.hsLex2 k3_scpe GHC.Read.$fReadInt5$61 k4_scpk a104_scpm = Text.ParserCombinators.ReadP.skipSpaces_skip a104_scpm k4_scpk Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput$15 $dMonadIO_s14BA w_s14BG = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14BA w_s14BG <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> $dGToInput_s119a $dGToInput1_s119f $dMonadIO_s1197 eta_s1198 eta1_s1194 = let un_s1195 = FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:8}> eta1_s1194, $dMonad_s119j = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1197 in <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$74}> (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$73}> ($dGToInput1_s119f $dMonadIO_s1197 eta_s1198 (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:4}> un_s1195)) (GHC.Base.return $dMonad_s119j) (<{GHC.Base.>>=}> $dMonad_s119j)) (<{GHC.Base.>>=}> $dMonad_s119j) ($dGToInput_s119a $dMonadIO_s1197 eta_s1198 (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:6}> un_s1195)) <{Gui.Generic.Classes.$fGToInputs:*:6}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:7}> <{Gui.Generic.Classes.$fGToInputs:*:7}> ds1_s118H = select ds1_s118H (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118K -> Data.Maybe.Just (Data.Tuple.fst a9_s118K)) <{Gui.Generic.Classes.$fGToInputs:*:4}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:5}> <{Gui.Generic.Classes.$fGToInputs:*:5}> ds1_s118N = select ds1_s118N (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118Q -> Data.Maybe.Just (Data.Tuple.snd a9_s118Q)) <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$73}> lvl28_s119h lvl29_s119l lvl30_s119n ds_s119r = lvl30_s119n (lvl28_s119h (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$15}> ds_s119r)) (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$75}> lvl29_s119l (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$14}> ds_s119r)) <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$14}> ds_s119r = select ds_s119r (<{GHC.Tuple.(,)}> a9_s119v <{s'_s11G2}> -> select a9_s119v (Gui.Generic.Types.Input ma_s119z e_s119B -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:2}> ma_s119z) e_s119B)) <{Gui.Generic.Classes.$fGToInputs:*:2}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:3}> <{Gui.Generic.Classes.$fGToInputs:*:3}> ds1_s118T = select ds1_s118T (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118W -> Data.Maybe.Just (<{Gui.Generic.Classes.$fGToInputs:*:3$72}> a9_s118W)) <{Gui.Generic.Classes.$fGToInputs:*:3$72}> a9_s118W eta_B1_B1 = <{GHC.Generics.:*:}> a9_s118W eta_B1_B1 <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$75}> lvl29_s119l lvl32_s119C ds1_s119O = lvl29_s119l (<{GHC.Tuple.(,)}> (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$17}> ds1_s119O lvl32_s119C) (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$16}> ds1_s119O)) <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$16}> ds1_s119O = select ds1_s119O (<{GHC.Tuple.(,)}> a9_s11G0 <{s'_s11a8}> -> <{s'_s11a8}>) <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$17}> ds1_s119O lvl32_s119C = select lvl32_s119C (Gui.Generic.Types.Input a9_s119W es_s11a1 -> select ds1_s119O (<{GHC.Tuple.(,)}> a10_s119S <{s'_s11FW}> -> select a10_s119S (Gui.Generic.Types.Input b_s119Y <{es'_s11a2}> -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:1}> a9_s119W) b_s119Y) (<{GHC.Base.++}> es_s11a1 <{es'_s11a2}>)))) <{Gui.Generic.Classes.$fGToInputs:*:1}> =: FRP.Fursuit.Signal.Pure <{Control.Applicative.$fApplicativeMaybe_$c<*>}> <{Control.Applicative.$fApplicativeMaybe_$c<*>}> w_s5rw w1_s5rz = select w_s5rw (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x_s5rD -> select w1_s5rz (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x1_s5rC -> Data.Maybe.Just (x_s5rD x1_s5rC))) <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$15}> ds_s119r = select ds_s119r (<{GHC.Tuple.(,)}> a9_s11FZ <{s'_s119G}> -> <{s'_s119G}>) <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$74}> lvl31_s11ae lvl32_s11ag m_s119c eta2_s11ai = lvl32_s11ag (m_s119c eta2_s11ai) lvl31_s11ae <{Gui.Generic.Classes.$fGToInputs:*:8}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:9}> <{Gui.Generic.Classes.$fGToInputs:*:9}> ds1_s118w = select ds1_s118w (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118z -> Data.Maybe.Just (<{Gui.Generic.Classes.$fGToInputs:*:9$13}> a9_s118z)) <{Gui.Generic.Classes.$fGToInputs:*:9$13}> a9_s118z = select a9_s118z (<{GHC.Generics.:*:}> f_s118D g_s118E -> <{GHC.Tuple.(,)}> f_s118D g_s118E) <{MainGenGui.$fToInputsABCD'18}> w2_s1imF w3_s1imG w4_s1imH = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsABCD'12}> w2_s1imF w3_s1imG w4_s1imH Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt ma_s11dY = <{GHC.Types.:}> (Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt$25 ma_s11dY) <{GHC.Types.[]}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt$25 ma_s11dY = select ma_s11dY (Data.Maybe.Nothing -> false) (Data.Maybe.Just ipv_s11Ho -> true) <{MainGenGui.$fToInputsABCD'19}> eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt <{MainGenGui.$fToInputsABCD'11}> <{MainGenGui.$fToInputsABCD'7}> eta_B1_B1 <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> $dGSelAlt_s11De $dGSelAlt1_s11Df $dGToInputAlt_s11Ci $dGToInputAlt1_s11Cj $dMonadIO_s11C3 = let $dMonad_s11C6 = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s11C3 in <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$117}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s11C3 Gui.Generic.Classes.lvl27) (GHC.Base.return $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (Gui.Generic.Classes.$w$cgToInputAlt $dGToInputAlt_s11Ci $dGToInputAlt1_s11Cj $dMonadIO_s11C3) Gui.Generic.Classes.$w$cgToInputAlt w_s11zQ w1_s11zT w2_s11yL = let $dMonad_s11yO = Control.Monad.IO.Class.$p1MonadIO w2_s11yL in Gui.Generic.Classes.$w$cgToInputAlt$110 (Control.Monad.Trans.State.Lazy.$w$cliftIO w2_s11yL Gui.Generic.Classes.lvl24) (GHC.Base.return $dMonad_s11yO) (Gui.Generic.Classes.$w$cgToInputAlt$108 (GHC.Base.return $dMonad_s11yO)) (<{GHC.Base.>>=}> $dMonad_s11yO) (<{GHC.Base.>>=}> $dMonad_s11yO) (Gui.Generic.Classes.$w$cgToInputAlt$109 (GHC.Base.return $dMonad_s11yO)) (<{GHC.Base.>>=}> $dMonad_s11yO) (<{GHC.Base.>>=}> $dMonad_s11yO) (<{GHC.Base.>>=}> $dMonad_s11yO) (Gui.Generic.Classes.gToInputAlt w_s11zQ) (Gui.Generic.Classes.gToInputAlt w1_s11zT) w2_s11yL Gui.Generic.Classes.gToInputAlt tpl_s114y_s114y = select tpl_s114y_s114y (<{Gui.Generic.Classes.D:GToInputAlt}> tpl_s11E8_s11E8 tpl_s114C_s114C -> tpl_s114C_s114C) Gui.Generic.Classes.$w$cgToInputAlt$109 lvl33_s11zl ds_s11zo = lvl33_s11zl (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt$54 ds_s11zo) (Gui.Generic.Classes.$w$cgToInputAlt$53 ds_s11zo)) Gui.Generic.Classes.$w$cgToInputAlt$53 ds_s11zo = select ds_s11zo (<{GHC.Tuple.(,)}> a10_s11Or <{s'_s11zD}> -> <{s'_s11zD}>) Gui.Generic.Classes.$w$cgToInputAlt$54 ds_s11zo = select ds_s11zo (<{GHC.Tuple.(,)}> a10_s11zs <{s'_s11Og}> -> select a10_s11zs (<{GHC.Tuple.(,)}> a11_s11zw b_s11zx -> <{GHC.Tuple.(,)}> a11_s11zw (GHC.Base.map Gui.Generic.Classes.a7 b_s11zx))) Gui.Generic.Classes.a7 w_s11y4 = select w_s11y4 (Gui.Generic.Classes.Alt ww_s11y9 ww1_s11ya ww2_s11yb -> Gui.Generic.Classes.Alt ww_s11y9 ww1_s11ya (Gui.Generic.Classes.a7$48 ww2_s11yb)) Gui.Generic.Classes.a7$48 ww2_s11yb = select ww2_s11yb (Gui.Generic.Types.Input ma_s11yf e_s11yh -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl21 ma_s11yf) e_s11yh) Gui.Generic.Classes.lvl21 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl20 Gui.Generic.Classes.lvl20 ds1_s11xY = select ds1_s11xY (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11y1 -> Data.Maybe.Just (GHC.Generics.L1 a9_s11y1)) Gui.Generic.Classes.$w$cgToInputAlt$108 lvl29_s11yS ds_s11yV = lvl29_s11yS (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt$56 ds_s11yV) (Gui.Generic.Classes.$w$cgToInputAlt$55 ds_s11yV)) Gui.Generic.Classes.$w$cgToInputAlt$55 ds_s11yV = select ds_s11yV (<{GHC.Tuple.(,)}> a10_s11Os <{s'_s11za}> -> <{s'_s11za}>) Gui.Generic.Classes.$w$cgToInputAlt$56 ds_s11yV = select ds_s11yV (<{GHC.Tuple.(,)}> a10_s11yZ <{s'_s11Od}> -> select a10_s11yZ (<{GHC.Tuple.(,)}> a11_s11z3 b_s11z4 -> <{GHC.Tuple.(,)}> a11_s11z3 (GHC.Base.map Gui.Generic.Classes.a8 b_s11z4))) Gui.Generic.Classes.a8 w_s11yq = select w_s11yq (Gui.Generic.Classes.Alt ww_s11yv ww1_s11yw ww2_s11yx -> Gui.Generic.Classes.Alt ww_s11yv ww1_s11yw (Gui.Generic.Classes.a8$49 ww2_s11yx)) Gui.Generic.Classes.a8$49 ww2_s11yx = select ww2_s11yx (Gui.Generic.Types.Input ma_s11yB e_s11yD -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl23 ma_s11yB) e_s11yD) Gui.Generic.Classes.lvl23 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl22 Gui.Generic.Classes.lvl22 ds1_s11yk = select ds1_s11yk (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11yn -> Data.Maybe.Just (GHC.Generics.R1 a9_s11yn)) Gui.Generic.Classes.lvl24 eta_s11yG = Javascript.Utils.dumpString1 Gui.Generic.Classes.lvl18 eta_s11yG Gui.Generic.Classes.lvl18 =: GHC.CString.unpackCString# "alt f g" Gui.Generic.Classes.$w$cgToInputAlt$110 a9_s11yM lvl28_s11yQ lvl30_s11zf lvl31_s11zh lvl32_s11zj lvl34_s11zI lvl35_s11zK lvl36_s11zM lvl37_s11zO lvl38_s11zR lvl39_s11zU w2_s11yL ips_s11zY ma_s11zZ = Gui.Generic.Classes.$w$cgToInputAlt$113 a9_s11yM lvl37_s11zO (Gui.Generic.Classes.$w$cgToInputAlt$112 lvl34_s11zI lvl35_s11zK lvl36_s11zM (Gui.Generic.Classes.$w$cgToInputAlt$111 lvl28_s11yQ lvl30_s11zf lvl31_s11zh lvl32_s11zj (lvl39_s11zU w2_s11yL ips_s11zY (Gui.Generic.Classes.$w$cgToInputAlt$51 ma_s11zZ))) (lvl38_s11zR w2_s11yL ips_s11zY (Gui.Generic.Classes.$w$cgToInputAlt$52 ma_s11zZ))) Gui.Generic.Classes.$w$cgToInputAlt$52 ma_s11zZ = select ma_s11zZ (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11A2 -> select x3_s11A2 (GHC.Generics.L1 r_s11A5 -> Data.Maybe.Just r_s11A5) (GHC.Generics.R1 ipv_s11Bs -> Data.Maybe.Nothing)) Gui.Generic.Classes.$w$cgToInputAlt$51 ma_s11zZ = select ma_s11zZ (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11Ad -> select x3_s11Ad (GHC.Generics.L1 ipv_s11Op -> Data.Maybe.Nothing) (GHC.Generics.R1 r_s11Ah -> Data.Maybe.Just r_s11Ah)) Gui.Generic.Classes.$w$cgToInputAlt$111 lvl28_s11yQ lvl30_s11zf lvl31_s11zh lvl32_s11zj m1_s11Ak ds_s11An = select ds_s11An (<{GHC.Tuple.(,)}> a10_s11Ar <{s'_s11Av}> -> select a10_s11Ar (<{GHC.Tuple.(,)}> lu_s11AS li_s11AZ -> lvl32_s11zj (lvl31_s11zh (m1_s11Ak <{s'_s11Av}>) lvl30_s11zf) (Gui.Generic.Classes.$w$cgToInputAlt$114 li_s11AZ lu_s11AS lvl28_s11yQ))) Gui.Generic.Classes.$w$cgToInputAlt$114 li_s11AZ lu_s11AS lvl28_s11yQ ds1_s11AA = select ds1_s11AA (<{GHC.Tuple.(,)}> a11_s11AE <{s'1_s11B5}> -> select a11_s11AE (<{GHC.Tuple.(,)}> ru_s11AW ri_s11B0 -> lvl28_s11yQ (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt$115 lu_s11AS ru_s11AW) (<{GHC.Base.++}> li_s11AZ ri_s11B0)) <{s'1_s11B5}>))) Gui.Generic.Classes.$w$cgToInputAlt$115 lu_s11AS ru_s11AW ds2_s11AK eta_s11AM = select ds2_s11AK (Data.Maybe.Nothing -> Javascript.Utils.dumpString1 Gui.Generic.Classes.lvl25 eta_s11AM) (Data.Maybe.Just ds3_s11AO -> select ds3_s11AO (GHC.Generics.L1 ma1_s11AR -> lu_s11AS (Data.Maybe.Just ma1_s11AR) eta_s11AM) (GHC.Generics.R1 ma1_s11AV -> ru_s11AW (Data.Maybe.Just ma1_s11AV) eta_s11AM)) Gui.Generic.Classes.lvl25 =: GHC.CString.unpackCString# "this shouldn\'t happen: upd lu ru" Gui.Generic.Classes.$w$cgToInputAlt$112 lvl34_s11zI lvl35_s11zK lvl36_s11zM lvl40_s11B9 m_s11A9 ds_s11Bc = lvl36_s11zM (lvl35_s11zK (m_s11A9 (Gui.Generic.Classes.$w$cgToInputAlt$50 ds_s11Bc)) lvl34_s11zI) lvl40_s11B9 Gui.Generic.Classes.$w$cgToInputAlt$50 ds_s11Bc = select ds_s11Bc (<{GHC.Tuple.(,)}> a10_s11Oo <{s'_s11Bg}> -> <{s'_s11Bg}>) Gui.Generic.Classes.$w$cgToInputAlt$113 a9_s11yM lvl37_s11zO lvl41_s11Bm eta_s11Bo = lvl37_s11zO (a9_s11yM eta_s11Bo) lvl41_s11Bm Gui.Generic.Classes.lvl27 eta_s11BW = Javascript.Utils.dumpString1 Gui.Generic.Classes.lvl26 eta_s11BW Gui.Generic.Classes.lvl26 =: GHC.CString.unpackCString# "Normal to alt f g" <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$117}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 a9_s11C4 lvl28_s11C8 lvl29_s11Ca lvl30_s11Cc lvl31_s11Ce lvl32_s11Cg lvl33_s11Ck ips_s11CV sigIn_s11Cp = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$120}> a9_s11C4 lvl32_s11Cg (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$119}> (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s11C3 (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$121}> sigIn_s11Cp)) lvl31_s11Ce (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$118}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 ips_s11CV lvl28_s11C8 lvl29_s11Ca lvl30_s11Cc lvl33_s11Ck sigIn_s11Cp)) <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$118}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 ips_s11CV lvl28_s11C8 lvl29_s11Ca lvl30_s11Cc lvl33_s11Ck sigIn_s11Cp ds_s11CP = let ma_s11CU = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$58}> ds_s11CP in lvl30_s11Cc (lvl33_s11Ck ips_s11CV ma_s11CU (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$59}> ds_s11CP)) (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$122}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 lvl28_s11C8 lvl29_s11Ca ma_s11CU sigIn_s11Cp) <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$122}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 lvl28_s11C8 lvl29_s11Ca ma_s11CU sigIn_s11Cp ds1_s11D6 = lvl29_s11Ca (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$134}> ds1_s11D6 lvl28_s11C8) (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$123}> (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s11C3 (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$124}> $dGSelAlt1_s11Df $dGSelAlt_s11De ds1_s11D6 ma_s11CU sigIn_s11Cp))) <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$124}> $dGSelAlt1_s11Df $dGSelAlt_s11De ds1_s11D6 ma_s11CU sigIn_s11Cp w_s11Di = select ds1_s11D6 (<{GHC.Tuple.(,)}> a11_s11Da <{s'_s11OW}> -> select a11_s11Da (<{GHC.Tuple.(,)}> ww_s11Dg ww1_s11Dh -> Gui.Generic.Classes.$wa $dGSelAlt_s11De $dGSelAlt1_s11Df ma_s11CU sigIn_s11Cp ww_s11Dg ww1_s11Dh w_s11Di)) Gui.Generic.Classes.$wa w_s11pZ w1_s11pY w2_s11m2 w3_s11mL ww_s11mJ ww1_s11hu w4_s11i0 = let !x3_s11hO = Gui.Generic.Classes.$wa$127 ww1_s11hu, !ds_s11KN = Javascript.Base.Types.FakePtr x3_s11hO in select ds_s11KN (GHC.Ptr.Ptr ds1_s11hT -> let !tpl_s11KM = x3_s11hO, !wild_s11KL = ffi_wrapper3 jsToString ds1_s11hT GHC.Prim.realWorld# in select wild_s11KL (<{GHC.Tuple.(,)}> ds2_s11KK ds3_s11hZ -> let !wild1_s11KJ = ffi_wrapper3 _Javascript_Utils_dump_ ds3_s11hZ w4_s11i0 in select wild1_s11KJ (<{GHC.Tuple.()}> ds4_s11iq -> let !x4_s11ie = Gui.Generic.Classes.$wa$128 ww1_s11hu, !ds5_s11KI = Javascript.Base.Types.FakePtr x4_s11ie in select ds5_s11KI (GHC.Ptr.Ptr ds6_s11ij -> let !tpl1_s11KH = x4_s11ie, !wild2_s11KG = ffi_wrapper3 jsToString ds6_s11ij GHC.Prim.realWorld# in select wild2_s11KG (<{GHC.Tuple.(,)}> ds7_s11KF ds8_s11ip -> let !wild3_s11KE = ffi_wrapper3 _Javascript_Utils_dump_ ds8_s11ip ds4_s11iq in select wild3_s11KE (<{GHC.Tuple.()}> ds9_s11iy -> select Gui.Generic.Classes.lvl8 (GHC.Ptr.Ptr ds11_s11ix -> let !wild4_s11KC = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds11_s11ix ds9_s11iy in select wild4_s11KC (<{GHC.Tuple.(,)}> ds12_s11iI ds13_s11iH -> select Gui.Generic.Classes.lvl9 (GHC.Ptr.Ptr ds15_s11iG -> let !wild5_s11KA = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds15_s11iG ds13_s11iH ds12_s11iI in select wild5_s11KA (<{GHC.Tuple.(,)}> ds16_s11k2 ds17_s11lH -> let !cns_s11iO = GHC.Base.map Gui.Generic.Classes.lvl11 ww1_s11hu, $wgo_s11j1 = Gui.Generic.Classes.$wa$82 $wgo_s11j1 (Gui.Generic.Classes.$wa$129 cns_s11iO), !ww2_s11KV = $wgo_s11j1 cns_s11iO in select ww2_s11KV (<{GHC.Tuple.(,)}> ww3_s11Kz ww4_s11jz -> select ww4_s11jz (<{GHC.Tuple.(,)}> x5_s11jE ds18_s11jO -> let !ds19_s11L2 = Javascript.Base.Types.FakePtr (<{GHC.Types.:}> GHC.Show.shows11 (GHC.List.foldr1 <{GHC.Show.$fShow(,)1}> (<{GHC.Types.:}> (Gui.Generic.Classes.$wa$86 x5_s11jE) (<{GHC.Types.:}> (Gui.Generic.Classes.$wa$85 ds18_s11jO) <{GHC.Types.[]}>)) Gui.Generic.Classes.lvl15)) in select ds19_s11L2 (GHC.Ptr.Ptr ds20_s11kz -> let !initially1_s11kj = x5_s11jE, !ds21_s11L1 = FRP.Fursuit.Pipe.emptyPipe1 ds16_s11k2 in select ds21_s11L1 (<{GHC.Tuple.(,)}> ipv_s11kl ipv1_s11k6 -> select ipv1_s11k6 (<{GHC.Tuple.(,)}> ds22_s11ka ds23_s11kn -> select ds22_s11ka (FRP.Fursuit.Signal.P ref_s11kf ds24_s11n1 ds25_s11n4 -> select ref_s11kf (GHC.STRef.STRef var#_s11ki -> let !s2#_s11kq = writeMutVar# var#_s11ki (Data.Maybe.Just initially1_s11kj) ipv_s11kl, !ds26_s11Lc = Gui.FRP.Dropdown.dropdown12 GHC.Classes.$fEqInt Data.Typeable.Internal.$fTypeableInt_$ctypeOf (FRP.Fursuit.Signal.App Gui.FRP.Dropdown.dropdown10 ds23_s11kn) (FRP.Fursuit.Signal.Pure ds18_s11jO) s2#_s11kq in select ds26_s11Lc (<{GHC.Tuple.(,)}> ipv2_s11kG ipv3_s11ku -> select ipv3_s11ku (<{GHC.Tuple.(,)}> a10_s11qk b_s11mR -> let !wild11_s11La = ffi_wrapper3 jsToString ds20_s11kz GHC.Prim.realWorld# in select wild11_s11La (<{GHC.Tuple.(,)}> ds27_s11Kk ds28_s11kF -> let !wild12_s11L9 = ffi_wrapper3 _Javascript_Utils_dump_ ds28_s11kF ipv2_s11kG in select wild12_s11L9 (<{GHC.Tuple.()}> ds29_s11l6 -> let !x6_s11kU = Gui.Generic.Classes.$wa$130 ww1_s11hu, !ds30_s11L8 = Javascript.Base.Types.FakePtr x6_s11kU in select ds30_s11L8 (GHC.Ptr.Ptr ds31_s11kZ -> let !tpl2_s11L7 = x6_s11kU, !wild13_s11L6 = ffi_wrapper3 jsToString ds31_s11kZ GHC.Prim.realWorld# in select wild13_s11L6 (<{GHC.Tuple.(,)}> ds32_s11Kl ds33_s11l5 -> let !wild14_s11L5 = ffi_wrapper3 _Javascript_Utils_dump_ ds33_s11l5 ds29_s11l6 in select wild14_s11L5 (<{GHC.Tuple.()}> ds34_s11rU -> let items_s11lq = Gui.Generic.Classes.$wa$131 ww1_s11hu in select items_s11lq (<{GHC.Types.[]}> -> Gui.Generic.Classes.$wa$2 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 initially1_s11kj items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww1_s11hu ww_s11mJ ds34_s11rU <{GHC.Types.[]}>) (<{GHC.Types.:}> y_s11s5 ys_s11tW -> select Gui.Generic.Classes.lvl7 (GHC.Ptr.Ptr ds36_s11s0 -> let !wild16_s11Mr = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds36_s11s0 ds34_s11rU in select wild16_s11Mr (<{GHC.Tuple.(,)}> ds37_s11sA ds38_s11sr -> select y_s11s5 (Gui.Generic.Classes.Alt ds39_s11sE ds40_s11Kg ds41_s11sa -> select ds41_s11sa (Gui.Generic.Types.Input ds42_s11Kh ds43_s11sz -> let a112_s11sy = Gui.Generic.Classes.$wa$83 a112_s11sy ds38_s11sr, !ds44_s11My = a112_s11sy ds43_s11sz ds37_s11sA in select ds44_s11My (<{GHC.Tuple.(,)}> ipv4_s11sJ ipv5_s11Kf -> select ds39_s11sE (GHC.Ptr.Ptr ds46_s11sI -> let !wild19_s11Mw = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds46_s11sI ds38_s11sr ipv4_s11sJ in select wild19_s11Mw (<{GHC.Tuple.(,)}> ds47_s11tX ds48_s11u2 -> let poly_a1_s11tM = Gui.Generic.Classes.$wa$84 ds36_s11s0 poly_a1_s11tM, !ds49_s11MJ = poly_a1_s11tM ys_s11tW ds47_s11tX in select ds49_s11MJ (<{GHC.Tuple.(,)}> ipv6_s11u1 ipv7_s11u4 -> Gui.Generic.Classes.$wa$2 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 initially1_s11kj items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww1_s11hu ww_s11mJ ipv6_s11u1 (<{GHC.Types.:}> (GHC.Ptr.Ptr ds48_s11u2) ipv7_s11u4)))))))))))))))))))))))))))))))))) Gui.Generic.Classes.$wa$2 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 initially1_s11kj items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww1_s11hu ww_s11mJ ipv4_s11lQ ipv5_s11lP = let a112_s11lO = Gui.Generic.Classes.$wa$88 a112_s11lO ds17_s11lH, !ds35_s11Lm = a112_s11lO ipv5_s11lP ipv4_s11lQ in select ds35_s11Lm (<{GHC.Tuple.(,)}> ipv6_s11lU ipv7_s11K6 -> let !ds36_s11Ll = Gui.Generic.Classes.poly_a items_s11lq ipv6_s11lU in select ds36_s11Ll (<{GHC.Tuple.(,)}> ipv8_s11r3 ipv9_s11K7 -> let $j1_s11rr = Gui.Generic.Classes.$wa$89 ipv8_s11r3 ww1_s11hu in select initially1_s11kj (Data.Maybe.Nothing -> let !ds37_s11Mi = $j1_s11rr 0 in select ds37_s11Mi (<{GHC.Tuple.(,)}> ipv10_s11rA ipv11_s11rw -> select ipv11_s11rw (<{GHC.Tuple.(,)}> ww5_s11rB ww6_s11rC -> Gui.Generic.Classes.$wa$3 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww_s11mJ ipv10_s11rA ww5_s11rB ww6_s11rC))) (Data.Maybe.Just v_s11rE -> select v_s11rE (GHC.Types.I# n0_s11rH -> let !ds37_s11Ml = $j1_s11rr n0_s11rH in select ds37_s11Ml (<{GHC.Tuple.(,)}> ipv10_s11rP ipv11_s11rL -> select ipv11_s11rL (<{GHC.Tuple.(,)}> ww5_s11rQ ww6_s11rR -> Gui.Generic.Classes.$wa$3 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww_s11mJ ipv10_s11rP ww5_s11rQ ww6_s11rR)))))) Gui.Generic.Classes.$wa$3 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww_s11mJ w5_s11m4 ww5_s11nx ww6_s11mC = let !initially2_s11ml = w2_s11m2, !ds37_s11Lk = FRP.Fursuit.Pipe.emptyPipe1 w5_s11m4 in select ds37_s11Lk (<{GHC.Tuple.(,)}> ipv10_s11mn ipv11_s11m8 -> select ipv11_s11m8 (<{GHC.Tuple.(,)}> ds38_s11mc ds39_s11qj -> select ds38_s11mc (FRP.Fursuit.Signal.P ref1_s11mh ds40_s11mr ds41_s11mu -> select ref1_s11mh (GHC.STRef.STRef var#1_s11mk -> let !s2#1_s11mD = writeMutVar# var#1_s11mk (Data.Maybe.Just initially2_s11ml) ipv10_s11mn, !ds42_s11Lp = FRP.Fursuit.switch1 (Gui.Generic.Classes.$wa$90 ds40_s11mr ds41_s11mu var#1_s11mk) ww6_s11mC s2#1_s11mD in select ds42_s11Lp (<{GHC.Tuple.(,)}> ipv12_s11mM ipv13_s11JW -> let !ds43_s11Lq = FRP.Fursuit.Signal.removableSink1 (Gui.Generic.Classes.$wa$91 ww_s11mJ) w3_s11mL ipv12_s11mM in select ds43_s11Lq (<{GHC.Tuple.(,)}> ipv14_s11qd ipv15_s11JU -> let ddsig_s11mW = FRP.Fursuit.Signal.App FRP.Fursuit.filterMapS1 (FRP.Fursuit.Signal.Filter Data.Maybe.isJust (FRP.Fursuit.Signal.App Gui.Generic.Classes.a2 b_s11mR)), !ds44_s11M7 = FRP.Fursuit.Signal.removableSink1 (Gui.Generic.Classes.$wa$93 ds24_s11n1 ds25_s11n4 (GHC.List.zip Gui.Generic.Classes.lvl10 items_s11lq) var#_s11ki ww5_s11nx) (FRP.Fursuit.Signal.Union ddsig_s11mW (FRP.Fursuit.Signal.App FRP.Fursuit.filterMapS1 (FRP.Fursuit.Signal.Filter Data.Maybe.isJust (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure (Gui.Generic.Classes.$wa$92 w1_s11pY w_s11pZ)) w3_s11mL)))) ipv14_s11qd in select ds44_s11M7 (<{GHC.Tuple.(,)}> ipv16_s11qi ipv17_s11JP -> let !wild18_s11M6 = FRP.Fursuit.Signal.sourceOrigins ddsig_s11mW in select wild18_s11M6 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ipv16_s11qi (Gui.Generic.Types.Input ds39_s11qj (<{GHC.Types.:}> a10_s11qk (<{GHC.Types.:}> (GHC.Ptr.Ptr ds17_s11lH) <{GHC.Types.[]}>)))) (<{GHC.Types.:}> <{so'_s11qu}> ds45_s11JR -> select <{so'_s11qu}> (<{GHC.Tuple.(,)}> ds46_s11qB y_s11qy -> select y_s11qy (GHC.STRef.STRef ww7_s11qC -> let !ds47_s11M8 = FRP.Fursuit.Pipe.$wa ds46_s11qB ww7_s11qC ipv16_s11qi in select ds47_s11M8 (<{GHC.Tuple.(,)}> ipv18_s11qG ipv19_s11JS -> <{GHC.Tuple.(,)}> ipv18_s11qG (Gui.Generic.Types.Input ds39_s11qj (<{GHC.Types.:}> a10_s11qk (<{GHC.Types.:}> (GHC.Ptr.Ptr ds17_s11lH) <{GHC.Types.[]}>)))))))))))))) FRP.Fursuit.Pipe.$wa w_s3M3 ww_s3LW w1_s3LX = let !ds1_s3Q6 = readMutVar# ww_s3LW w1_s3LX in select ds1_s3Q6 (<{GHC.Tuple.(,)}> ipv_s3M1 ipv1_s3Mi -> let !s2#_s3M7 = writeMutVar# ww_s3LW true ipv_s3M1 in select w_s3M3 (GHC.STRef.STRef var#_s3M6 -> let !ds2_s3Q4 = readMutVar# var#_s3M6 s2#_s3M7 in select ds2_s3Q4 (<{GHC.Tuple.(,)}> ipv2_s3Me ipv3_s3Mb -> select ipv3_s3Mb (_ -> let !ds3_s3Q3 = FRP.Fursuit.Pipe.trigger4 FRP.Fursuit.Pipe.trigger3 ipv3_s3Mb ipv2_s3Me in select ds3_s3Q3 (<{GHC.Tuple.(,)}> ipv4_s3Mj ipv5_s3Q2 -> let !s2#1_s3Ml = writeMutVar# ww_s3LW ipv1_s3Mi ipv4_s3Mj in <{GHC.Tuple.(,)}> s2#1_s3Ml <{GHC.Tuple.()}>)) (Data.IntMap.Base.Bin rb_s3Qa rb1_s3Mq l_s3Ms r_s3Mu -> let !wild2_s3Q9 = <{<#}> rb1_s3Mq 0 in if wild2_s3Q9 (let !ds3_s3Qe = FRP.Fursuit.Pipe.trigger4 (FRP.Fursuit.Pipe.$wa$3 r_s3Mu) l_s3Ms ipv2_s3Me in select ds3_s3Qe (<{GHC.Tuple.(,)}> ipv4_s3MF ipv5_s3Qd -> let !s2#1_s3MH = writeMutVar# ww_s3LW ipv1_s3Mi ipv4_s3MF in <{GHC.Tuple.(,)}> s2#1_s3MH <{GHC.Tuple.()}>)) (let !ds3_s3Qb = FRP.Fursuit.Pipe.trigger4 (FRP.Fursuit.Pipe.$wa$2 l_s3Ms) r_s3Mu ipv2_s3Me in select ds3_s3Qb (<{GHC.Tuple.(,)}> ipv4_s3My ipv5_s3Q8 -> let !s2#1_s3MA = writeMutVar# ww_s3LW ipv1_s3Mi ipv4_s3My in <{GHC.Tuple.(,)}> s2#1_s3MA <{GHC.Tuple.()}>)))))) FRP.Fursuit.Pipe.$wa$2 l_s3Ms eta_B1_B1 = FRP.Fursuit.Pipe.trigger4 FRP.Fursuit.Pipe.trigger3 l_s3Ms eta_B1_B1 FRP.Fursuit.Pipe.trigger4 arg_s3Lz ds_s3LB eta_s3LL = let !nt_s3LH = arg_s3Lz in select ds_s3LB (Data.IntMap.Base.Bin rb_s3PM rb1_s3PN l_s3LI r_s3LK -> FRP.Fursuit.Pipe.trigger4 (FRP.Fursuit.Pipe.trigger4$1 l_s3LI nt_s3LH) r_s3LK eta_s3LL) (Data.IntMap.Base.Tip rb_s3PR x_s3LS -> let !ds1_s3PQ = nt_s3LH eta_s3LL in select ds1_s3PQ (<{GHC.Tuple.(,)}> ipv_s3LR ipv1_s3PP -> x_s3LS ipv_s3LR)) (Data.IntMap.Base.Nil -> nt_s3LH eta_s3LL) FRP.Fursuit.Pipe.trigger4$1 l_s3LI nt_s3LH eta_B1_B1 = FRP.Fursuit.Pipe.trigger4 nt_s3LH l_s3LI eta_B1_B1 FRP.Fursuit.Pipe.$wa$3 r_s3Mu eta_B1_B1 = FRP.Fursuit.Pipe.trigger4 FRP.Fursuit.Pipe.trigger3 r_s3Mu eta_B1_B1 FRP.Fursuit.Signal.sourceOrigins ds_s2I6 = select ds_s2I6 (FRP.Fursuit.Signal.App f_s2Ia x_s2Ic -> let !sat_s2S8_s2S8 = FRP.Fursuit.Signal.sourceOrigins f_s2Ia in <{GHC.Base.++}> sat_s2S8_s2S8 (FRP.Fursuit.Signal.sourceOrigins x_s2Ic)) (FRP.Fursuit.Signal.Pure ds1_s2Sa -> <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Pipe ds1_s2Sc src_s2Ii orig_s2Ij -> <{GHC.Types.:}> (<{GHC.Tuple.(,)}> src_s2Ii orig_s2Ij) <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Filter ds1_s2Sd s_s2In -> FRP.Fursuit.Signal.sourceOrigins s_s2In) (FRP.Fursuit.Signal.Accum ds1_s2Se s_s2Iq -> FRP.Fursuit.Signal.sourceOrigins s_s2Iq) (FRP.Fursuit.Signal.New s_s2Is -> FRP.Fursuit.Signal.sourceOrigins s_s2Is) (FRP.Fursuit.Signal.Union a_s2Iv b_s2Ix -> let !sat_s2Sg_s2Sg = FRP.Fursuit.Signal.sourceOrigins a_s2Iv in <{GHC.Base.++}> sat_s2Sg_s2Sg (FRP.Fursuit.Signal.sourceOrigins b_s2Ix)) Gui.Generic.Classes.$wa$92 w1_s11pY w_s11pZ x7_s11q0 = let !sat_s11Jf_s11Jf = <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> w1_s11pY w_s11pZ x7_s11q0 in Gui.Generic.Classes.toIndex Gui.Generic.Classes.lvl13 sat_s11Jf_s11Jf Gui.Generic.Classes.lvl13 =: GHC.Types.I# 0 Gui.Generic.Classes.toIndex ds_s11eK ds1_s11eE = select ds1_s11eE (<{GHC.Types.[]}> -> Data.Maybe.Nothing) (<{GHC.Types.:}> c_s11eI cs_s11eQ -> if c_s11eI (Data.Maybe.Just ds_s11eK) (Gui.Generic.Classes.toIndex (Gui.Generic.Classes.toIndex$28 ds_s11eK) cs_s11eQ)) Gui.Generic.Classes.toIndex$28 ds_s11eK = select ds_s11eK (GHC.Types.I# x3_s11eN -> let !sat_s11HJ_s11HJ = <{+#}> x3_s11eN 1 in GHC.Types.I# sat_s11HJ_s11HJ) <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> $dGSelAlt_s11ee $dGSelAlt1_s11ep ma_s11e5 = let !sat_s11Hs_s11Hs = $dGSelAlt_s11ee (<{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$26}> ma_s11e5) in <{GHC.Base.++}> sat_s11Hs_s11Hs ($dGSelAlt1_s11ep (<{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$27}> ma_s11e5)) <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$27}> ma_s11e5 = select ma_s11e5 (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11ej -> select x3_s11ej (GHC.Generics.L1 ipv_s11Hv -> Data.Maybe.Nothing) (GHC.Generics.R1 r_s11en -> Data.Maybe.Just r_s11en)) <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$26}> ma_s11e5 = select ma_s11e5 (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11e8 -> select x3_s11e8 (GHC.Generics.L1 r_s11eb -> Data.Maybe.Just r_s11eb) (GHC.Generics.R1 ipv_s11Ht -> Data.Maybe.Nothing)) Data.Maybe.isJust ds_s1gG = select ds_s1gG (Data.Maybe.Nothing -> false) (Data.Maybe.Just ipv_s1l1 -> true) FRP.Fursuit.filterMapS1 =: FRP.Fursuit.Signal.Pure Data.Maybe.fromJust Data.Maybe.fromJust ds_s1gu = select ds_s1gu (Data.Maybe.Nothing -> Data.Maybe.fromJust1) (Data.Maybe.Just x_s1gx -> x_s1gx) Gui.Generic.Classes.lvl10 =: GHC.Enum.eftInt 0 2147483647 GHC.Enum.eftInt x0_s7mC y_s7mD = let !wild_s7TP = <{>#}> x0_s7mC y_s7mD in if wild_s7TP <{GHC.Types.[]}> (let go_s7mK = GHC.Enum.eftInt$56 go_s7mK y_s7mD in go_s7mK x0_s7mC) GHC.Enum.eftInt$56 go_s7mK y_s7mD x_s7mH = <{GHC.Types.:}> (GHC.Types.I# x_s7mH) (GHC.Enum.eftInt$84 go_s7mK x_s7mH y_s7mD) GHC.Enum.eftInt$84 go_s7mK x_s7mH y_s7mD = let !wild1_s7TO = <{==#}> x_s7mH y_s7mD in if wild1_s7TO <{GHC.Types.[]}> (let !sat_s7TL_s7TL = <{+#}> x_s7mH 1 in go_s7mK sat_s7TL_s7TL) GHC.List.zip ds_s3K3 ds1_s3K7 = select ds_s3K3 (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> a_s3Kb as_s3Ke -> select ds1_s3K7 (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> b_s3Kc bs_s3Kf -> <{GHC.Types.:}> (<{GHC.Tuple.(,)}> a_s3Kb b_s3Kc) (GHC.List.zip as_s3Ke bs_s3Kf))) Gui.Generic.Classes.$wa$93 ds24_s11n1 ds25_s11n4 options_s11mY var#_s11ki ww5_s11nx i_s11n9 s_s11nb = select ds24_s11n1 (GHC.STRef.STRef ww8_s11n7 -> select ds25_s11n4 (GHC.STRef.STRef ww10_s11n8 -> let !ds44_s11Ly = FRP.Fursuit.Pipe.$wa1 var#_s11ki ww8_s11n7 ww10_s11n8 (Data.Maybe.Just i_s11n9) s_s11nb in select ds44_s11Ly (<{GHC.Tuple.(,)}> ipv16_s11nD ipv17_s11JH -> select options_s11mY (<{GHC.Types.[]}> -> Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv16_s11nD) (<{GHC.Types.:}> y_s11nG ys_s11oP -> select y_s11nG (<{GHC.Tuple.(,)}> x7_s11nK ds45_s11nS -> select x7_s11nK (GHC.Types.I# x8_s11nP -> select i_s11n9 (GHC.Types.I# y1_s11nQ -> let !wild22_s11LE = <{==#}> x8_s11nP y1_s11nQ in if wild22_s11LE (select ds45_s11nS (Gui.Generic.Classes.Alt ds46_s11Jz ds47_s11Jy ds48_s11oZ -> select ds48_s11oZ (Gui.Generic.Types.Input ds49_s11JA ds50_s11p3 -> let !ds51_s11LT = Gui.Generic.Classes.a5 ds50_s11p3 ipv16_s11nD in select ds51_s11LT (<{GHC.Tuple.(,)}> ipv18_s11pR ipv19_s11JB -> let a13_s11pD = Gui.Generic.Classes.$wa$95 a13_s11pD y1_s11nQ, !ds52_s11M5 = a13_s11pD ys_s11oP ipv18_s11pR in select ds52_s11M5 (<{GHC.Tuple.(,)}> ipv20_s11pV ipv21_s11Jx -> Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv20_s11pV))))) (select ds45_s11nS (Gui.Generic.Classes.Alt ds46_s11JD ds47_s11JC ds48_s11nX -> select ds48_s11nX (Gui.Generic.Types.Input ds49_s11JE ds50_s11o1 -> let !ds51_s11LB = Gui.Generic.Classes.a4 ds50_s11o1 ipv16_s11nD in select ds51_s11LB (<{GHC.Tuple.(,)}> ipv18_s11oQ ipv19_s11JF -> let a13_s11oB = Gui.Generic.Classes.$wa$94 a13_s11oB y1_s11nQ, !ds52_s11LR = a13_s11oB ys_s11oP ipv18_s11oQ in select ds52_s11LR (<{GHC.Tuple.(,)}> ipv20_s11oU ipv21_s11Jo -> Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv20_s11oU)))))))))))) Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv18_s11nz = select i_s11n9 (GHC.Types.I# n0_s11nj -> let !wild19_s11Lw = <{<#}> n0_s11nj 0 in if wild19_s11Lw <{GHC.List.!!1}> (let !wild20_s11Lv = <{GHC.List.!!_sub}> options_s11mY n0_s11nj in select wild20_s11Lv (<{GHC.Tuple.(,)}> ds45_s11JI y_s11no -> select y_s11no (Gui.Generic.Classes.Alt ds46_s11JK ds47_s11JJ ds48_s11nt -> select ds48_s11nt (Gui.Generic.Types.Input ds49_s11ny ds50_s11JL -> FRP.Fursuit.Pipe.write1 ww5_s11nx ds49_s11ny ipv18_s11nz))))) <{GHC.List.!!_sub}> ds_s3vS ds1_s3vW = select ds_s3vS (<{GHC.Types.[]}> -> GHC.List.lvl1) (<{GHC.Types.:}> y_s3w1 ys_s3vY -> select ds1_s3vW (_ -> let !sat_s3L7_s3L7 = <{-#}> ds1_s3vW 1 in <{GHC.List.!!_sub}> ys_s3vY sat_s3L7_s3L7) (0 -> y_s3w1)) GHC.List.lvl1 =: GHC.Err.error GHC.List.lvl GHC.List.lvl =: GHC.CString.unpackCString# "Prelude.(!!): index too large\n" <{GHC.List.!!1}> =: GHC.Err.error GHC.List.lvl2 GHC.List.lvl2 =: GHC.CString.unpackCString# "Prelude.(!!): negative index\n" Gui.Generic.Classes.$wa$94 a13_s11oB y1_s11nQ ds52_s11o8 eta_s11oa = select ds52_s11o8 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_s11oa <{GHC.Tuple.()}>) (<{GHC.Types.:}> y2_s11od ys1_s11oz -> select y2_s11od (<{GHC.Tuple.(,)}> x9_s11oh ds53_s11om -> select x9_s11oh (GHC.Types.I# x10_s11ok -> let !wild28_s11LL = <{==#}> x10_s11ok y1_s11nQ in if wild28_s11LL (select ds53_s11om (Gui.Generic.Classes.Alt ds54_s11Jh ds55_s11Jg ds56_s11oG -> select ds56_s11oG (Gui.Generic.Types.Input ds57_s11Ji ds58_s11oK -> let !ds59_s11LO = Gui.Generic.Classes.a5 ds58_s11oK eta_s11oa in select ds59_s11LO (<{GHC.Tuple.(,)}> ipv20_s11oO ipv21_s11Jj -> a13_s11oB ys1_s11oz ipv20_s11oO)))) (select ds53_s11om (Gui.Generic.Classes.Alt ds54_s11Jl ds55_s11Jk ds56_s11or -> select ds56_s11or (Gui.Generic.Types.Input ds57_s11Jm ds58_s11ov -> let !ds59_s11LI = Gui.Generic.Classes.a4 ds58_s11ov eta_s11oa in select ds59_s11LI (<{GHC.Tuple.(,)}> ipv20_s11oA ipv21_s11Jn -> a13_s11oB ys1_s11oz ipv20_s11oA))))))) Gui.Generic.Classes.a4 ds_s11gO eta_s11gQ = select ds_s11gO (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_s11gQ <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11gT ys_s11h2 -> select y_s11gT (GHC.Ptr.Ptr ds2_s11gX -> let !wild1_s11J2 = ffi_wrapper3 _Javascript_JQuery_Basic_hide ds2_s11gX eta_s11gQ in select wild1_s11J2 (<{GHC.Tuple.(,)}> ds4_s11h3 ds5_s11J1 -> Gui.Generic.Classes.a4 ys_s11h2 ds4_s11h3))) Gui.Generic.Classes.a5 ds_s11h6 eta_s11h8 = select ds_s11h6 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_s11h8 <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11hb ys_s11hk -> select y_s11hb (GHC.Ptr.Ptr ds2_s11hf -> let !wild1_s11J9 = ffi_wrapper3 _Javascript_JQuery_Basic_show ds2_s11hf eta_s11h8 in select wild1_s11J9 (<{GHC.Tuple.(,)}> ds4_s11hl ds5_s11J8 -> Gui.Generic.Classes.a5 ys_s11hk ds4_s11hl))) Gui.Generic.Classes.$wa$95 a13_s11pD y1_s11nQ ds52_s11pa eta_s11pc = select ds52_s11pa (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_s11pc <{GHC.Tuple.()}>) (<{GHC.Types.:}> y2_s11pf ys1_s11pB -> select y2_s11pf (<{GHC.Tuple.(,)}> x9_s11pj ds53_s11po -> select x9_s11pj (GHC.Types.I# x10_s11pm -> let !wild28_s11LZ = <{==#}> x10_s11pm y1_s11nQ in if wild28_s11LZ (select ds53_s11po (Gui.Generic.Classes.Alt ds54_s11Jq ds55_s11Jp ds56_s11pI -> select ds56_s11pI (Gui.Generic.Types.Input ds57_s11Jr ds58_s11pM -> let !ds59_s11M2 = Gui.Generic.Classes.a5 ds58_s11pM eta_s11pc in select ds59_s11M2 (<{GHC.Tuple.(,)}> ipv20_s11pQ ipv21_s11Js -> a13_s11pD ys1_s11pB ipv20_s11pQ)))) (select ds53_s11po (Gui.Generic.Classes.Alt ds54_s11Ju ds55_s11Jt ds56_s11pt -> select ds56_s11pt (Gui.Generic.Types.Input ds57_s11Jv ds58_s11px -> let !ds59_s11LW = Gui.Generic.Classes.a4 ds58_s11px eta_s11pc in select ds59_s11LW (<{GHC.Tuple.(,)}> ipv20_s11pC ipv21_s11Jw -> a13_s11pD ys1_s11pB ipv20_s11pC))))))) Gui.Generic.Classes.a2 =: FRP.Fursuit.Signal.Pure Gui.FRP.Dropdown.dropdown9 Gui.FRP.Dropdown.dropdown9 ds_sXZj = select ds_sXZj (<{GHC.Types.[]}> -> Data.Maybe.Nothing) (<{GHC.Types.:}> a2_sXZn ds1_sY3c -> Data.Maybe.Just a2_sXZn) Gui.Generic.Classes.$wa$91 ww_s11mJ ma_s11mI = ww_s11mJ ma_s11mI Gui.Generic.Classes.$wa$90 ds40_s11mr ds41_s11mu var#1_s11mk w6_s11mz w7_s11mA = select ds40_s11mr (GHC.STRef.STRef ww8_s11mx -> select ds41_s11mu (GHC.STRef.STRef ww10_s11my -> FRP.Fursuit.Pipe.$wa1 var#1_s11mk ww8_s11mx ww10_s11my w6_s11mz w7_s11mA)) FRP.Fursuit.switch1 action_s4mw sig_s4nm eta_s4mi = let !ds1_s4om = FRP.Fursuit.Pipe.emptyPipe1 eta_s4mi in select ds1_s4om (<{GHC.Tuple.(,)}> ipv_s4mq ipv1_s4mm -> select ipv1_s4mm (<{GHC.Tuple.(,)}> ptrig_s4n2 trigSig_s4my -> let !ds_s4ok = newMutVar# Data.Maybe.Nothing ipv_s4mq in select ds_s4ok (<{GHC.Tuple.(,)}> ipv2_s4nn ipv3_s4mE -> let !ds2_s4ov = FRP.Fursuit.Signal.removableSink1 (FRP.Fursuit.switch1$2 action_s4mw ipv3_s4mE ptrig_s4n2 trigSig_s4my) sig_s4nm ipv2_s4nn in select ds2_s4ov (<{GHC.Tuple.(,)}> ipv4_s4nr ipv5_s4oj -> <{GHC.Tuple.(,)}> ipv4_s4nr <{GHC.Tuple.()}>)))) FRP.Fursuit.switch1$2 action_s4mw ipv3_s4mE ptrig_s4n2 trigSig_s4my s_s4mx s1_s4mA = let !ds2_s4or = FRP.Fursuit.Signal.removableSink1 action_s4mw (FRP.Fursuit.Signal.Union s_s4mx trigSig_s4my) s1_s4mA in select ds2_s4or (<{GHC.Tuple.(,)}> ipv4_s4mF ipv5_s4n7 -> let !ds3_s4oq = readMutVar# ipv3_s4mE ipv4_s4mF in select ds3_s4oq (<{GHC.Tuple.(,)}> ipv6_s4n9 ipv7_s4n5 -> select ipv7_s4n5 (Data.Maybe.Nothing -> let !s2#_s4nb = writeMutVar# ipv3_s4mE (Data.Maybe.Just ipv5_s4n7) ipv6_s4n9 in FRP.Fursuit.switch1$1 ptrig_s4n2 s_s4mx s2#_s4nb) (Data.Maybe.Just <{r'_s4nd}> -> let !ds4_s4ou = <{r'_s4nd}> ipv6_s4n9 in select ds4_s4ou (<{GHC.Tuple.(,)}> ipv8_s4ni ipv9_s4of -> let !s2#_s4nk = writeMutVar# ipv3_s4mE (Data.Maybe.Just ipv5_s4n7) ipv8_s4ni in FRP.Fursuit.switch1$1 ptrig_s4n2 s_s4mx s2#_s4nk)))) FRP.Fursuit.switch1$1 ptrig_s4n2 s_s4mx s2_s4mL = let !ds4_s4op = FRP.Fursuit.Signal.compile1 s_s4mx s2_s4mL in select ds4_s4op (<{GHC.Tuple.(,)}> ipv8_s4mP ipv9_s4mQ -> let !ds5_s4oo = ipv9_s4mQ ipv8_s4mP in select ds5_s4oo (<{GHC.Tuple.(,)}> ipv10_s4mW ipv11_s4mU -> select ipv11_s4mU (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv10_s4mW <{GHC.Tuple.()}>) (Data.Maybe.Just a1_s4mY -> select a1_s4mY (<{GHC.Tuple.(,)}> x_s4n3 ds6_s4oh -> FRP.Fursuit.Pipe.write1 ptrig_s4n2 x_s4n3 ipv10_s4mW)))) Gui.Generic.Classes.$wa$89 ipv8_s11r3 ww1_s11hu n0_s11qR = let !wild15_s11Mg = <{<#}> n0_s11qR 0 in if wild15_s11Mg <{GHC.List.!!1}> (let !wild16_s11Mf = <{GHC.List.!!_sub}> ww1_s11hu n0_s11qR in select wild16_s11Mf (Gui.Generic.Classes.Alt ds37_s11K0 ds38_s11JZ ds39_s11qX -> select ds39_s11qX (Gui.Generic.Types.Input ds40_s11r1 ds41_s11K1 -> let !initially2_s11rk = ds40_s11r1, !ds42_s11Md = FRP.Fursuit.Pipe.emptyPipe1 ipv8_s11r3 in select ds42_s11Md (<{GHC.Tuple.(,)}> ipv10_s11rm ipv11_s11r7 -> select ipv11_s11r7 (<{GHC.Tuple.(,)}> ds43_s11rb ds44_s11K2 -> select ds43_s11rb (FRP.Fursuit.Signal.P ref1_s11rg ds45_s11K4 ds46_s11K3 -> select ref1_s11rg (GHC.STRef.STRef var#1_s11rj -> let !s2#1_s11ro = writeMutVar# var#1_s11rj (Data.Maybe.Just initially2_s11rk) ipv10_s11rm in <{GHC.Tuple.(,)}> s2#1_s11ro ipv11_s11r7))))))) Gui.Generic.Classes.poly_a ds_s11gq eta_s11gs = select ds_s11gq (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_s11gs <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11gv ys_s11gK -> select y_s11gv (Gui.Generic.Classes.Alt ds1_s11IV ds2_s11gA ds3_s11gC -> if ds2_s11gA (Gui.Generic.Classes.poly_a ys_s11gK eta_s11gs) (select ds3_s11gC (Gui.Generic.Types.Input ds4_s11IS ds5_s11gG -> let !ds6_s11IR = Gui.Generic.Classes.a3 ds5_s11gG eta_s11gs in select ds6_s11IR (<{GHC.Tuple.(,)}> ipv_s11gL ipv1_s11IQ -> Gui.Generic.Classes.poly_a ys_s11gK ipv_s11gL))))) Gui.Generic.Classes.a3 ds_s11g8 eta_s11ga = select ds_s11g8 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_s11ga <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11gd ys_s11gm -> select y_s11gd (GHC.Ptr.Ptr ds2_s11gh -> let !wild1_s11IK = ffi_wrapper3 _Javascript_JQuery_Basic_hide ds2_s11gh eta_s11ga in select wild1_s11IK (<{GHC.Tuple.(,)}> ds4_s11gn ds5_s11IJ -> Gui.Generic.Classes.a3 ys_s11gm ds4_s11gn))) Gui.Generic.Classes.$wa$88 a112_s11lO ds17_s11lH ds35_s11lx eta3_s11lz = select ds35_s11lx (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s11lz <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11lC ys_s11lM -> select y_s11lC (GHC.Ptr.Ptr ds37_s11lG -> let !wild16_s11Lf = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds37_s11lG ds17_s11lH eta3_s11lz in select wild16_s11Lf (<{GHC.Tuple.(,)}> ds38_s11lN ds39_s11K5 -> a112_s11lO ys_s11lM ds38_s11lN))) Gui.Generic.Classes.$wa$84 ds36_s11s0 poly_a1_s11tM ds49_s11sR eta_s11sT = select ds49_s11sR (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_s11sT <{GHC.Types.[]}>) (<{GHC.Types.:}> y1_s11t1 ys1_s11tK -> let !wild21_s11MC = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds36_s11s0 eta_s11sT in select wild21_s11MC (<{GHC.Tuple.(,)}> ds50_s11tw ds51_s11tn -> select y1_s11t1 (Gui.Generic.Classes.Alt ds52_s11tA ds53_s11Kc ds54_s11t6 -> select ds54_s11t6 (Gui.Generic.Types.Input ds55_s11Kd ds56_s11tv -> let a11_s11tu = Gui.Generic.Classes.$wa$87 a11_s11tu ds51_s11tn, !ds57_s11MI = a11_s11tu ds56_s11tv ds50_s11tw in select ds57_s11MI (<{GHC.Tuple.(,)}> ipv6_s11tF ipv7_s11Kb -> select ds52_s11tA (GHC.Ptr.Ptr ds59_s11tE -> let !wild24_s11MG = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds59_s11tE ds51_s11tn ipv6_s11tF in select wild24_s11MG (<{GHC.Tuple.(,)}> ds60_s11tL ds61_s11tR -> let !ds62_s11MF = poly_a1_s11tM ys1_s11tK ds60_s11tL in select ds62_s11MF (<{GHC.Tuple.(,)}> ipv8_s11tQ ipv9_s11tT -> <{GHC.Tuple.(,)}> ipv8_s11tQ (<{GHC.Types.:}> (GHC.Ptr.Ptr ds61_s11tR) ipv9_s11tT))))))))) Gui.Generic.Classes.$wa$87 a11_s11tu ds51_s11tn ds57_s11td eta3_s11tf = select ds57_s11td (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s11tf <{GHC.Tuple.()}>) (<{GHC.Types.:}> y2_s11ti ys2_s11ts -> select y2_s11ti (GHC.Ptr.Ptr ds59_s11tm -> let !wild25_s11MD = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds59_s11tm ds51_s11tn eta3_s11tf in select wild25_s11MD (<{GHC.Tuple.(,)}> ds60_s11tt ds61_s11Ka -> a11_s11tu ys2_s11ts ds60_s11tt))) Gui.Generic.Classes.$wa$83 a112_s11sy ds38_s11sr ds44_s11sh eta3_s11sj = select ds44_s11sh (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s11sj <{GHC.Tuple.()}>) (<{GHC.Types.:}> y1_s11sm ys1_s11sw -> select y1_s11sm (GHC.Ptr.Ptr ds46_s11sq -> let !wild20_s11Mt = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds46_s11sq ds38_s11sr eta3_s11sj in select wild20_s11Mt (<{GHC.Tuple.(,)}> ds47_s11sx ds48_s11Ke -> a112_s11sy ys1_s11sw ds47_s11sx))) Gui.Generic.Classes.lvl7 =: let !ds_s11HF = Javascript.Base.Types.FakePtr Gui.Generic.Classes.x in select ds_s11HF (GHC.Ptr.Ptr ds1_s11ew -> let !tpl_s11HE = Gui.Generic.Classes.x, !wild_s11HD = ffi_wrapper3 jsToString ds1_s11ew GHC.Prim.realWorld# in select wild_s11HD (<{GHC.Tuple.(,)}> ds2_s11HC ds3_s11eB -> GHC.Ptr.Ptr ds3_s11eB)) Gui.Generic.Classes.x =: GHC.CString.unpackCString# "" Gui.Generic.Classes.$wa$131 ww1_s11hu = let !wild15_s11L4 = GHC.List.filter Gui.Generic.Classes.altSel ww1_s11hu in select wild15_s11L4 (<{GHC.Types.[]}> -> select ww1_s11hu (<{GHC.Types.[]}> -> <{GHC.Types.[]}>) (<{GHC.Types.:}> c_s11lf cs_s11ln -> <{GHC.Types.:}> (Gui.Generic.Classes.$wa$34 c_s11lf) cs_s11ln)) (<{GHC.Types.:}> ds35_s11Kn ds36_s11Km -> ww1_s11hu) Gui.Generic.Classes.$wa$34 c_s11lf = select c_s11lf (Gui.Generic.Classes.Alt ds35_s11lk ds36_s11Kp ds37_s11ll -> Gui.Generic.Classes.Alt ds35_s11lk true ds37_s11ll) Gui.Generic.Classes.altSel ds_s115X = select ds_s115X (Gui.Generic.Classes.Alt ds1_s11EB ds2_s1162 ds3_s11EC -> ds2_s1162) Gui.Generic.Classes.$wa$130 ww1_s11hu = let !wild13_s11MK = GHC.Base.map Gui.Generic.Classes.altSel ww1_s11hu in select wild13_s11MK (<{GHC.Types.[]}> -> Gui.Generic.Classes.lvl14) (<{GHC.Types.:}> x7_s11kO xs_s11kQ -> <{GHC.Types.:}> GHC.Show.showList__3 (Gui.Generic.Classes.$wa$35 x7_s11kO xs_s11kQ)) Gui.Generic.Classes.$wa$35 x7_s11kO xs_s11kQ = if x7_s11kO (<{GHC.Base.++}> GHC.Show.shows23 (Gui.Generic.Classes.showl2 xs_s11kQ)) (<{GHC.Base.++}> GHC.Show.shows25 (Gui.Generic.Classes.showl2 xs_s11kQ)) Gui.Generic.Classes.showl2 ds2_s11fW = select ds2_s11fW (<{GHC.Types.[]}> -> Gui.Generic.Classes.lvl19) (<{GHC.Types.:}> y_s11g0 ys_s11g2 -> <{GHC.Types.:}> GHC.Show.showList__1 (Gui.Generic.Classes.showl2$33 y_s11g0 ys_s11g2)) Gui.Generic.Classes.showl2$33 y_s11g0 ys_s11g2 = if y_s11g0 (<{GHC.Base.++}> GHC.Show.shows23 (Gui.Generic.Classes.showl2 ys_s11g2)) (<{GHC.Base.++}> GHC.Show.shows25 (Gui.Generic.Classes.showl2 ys_s11g2)) GHC.Show.shows25 =: GHC.CString.unpackCString# "False" GHC.Show.shows23 =: GHC.CString.unpackCString# "True" Gui.Generic.Classes.lvl19 =: <{GHC.Types.:}> GHC.Show.showList__2 <{GHC.Types.[]}> Gui.Generic.Classes.lvl14 =: GHC.CString.unpackAppendCString# "[]" <{GHC.Types.[]}> Gui.FRP.Dropdown.dropdown10 =: FRP.Fursuit.Signal.Pure Gui.FRP.Dropdown.dropdown11 Gui.FRP.Dropdown.dropdown11 ds1_sXZB = select ds1_sXZB (Data.Maybe.Nothing -> <{GHC.Types.[]}>) (Data.Maybe.Just x_sXZE -> <{GHC.Types.:}> x_sXZE <{GHC.Types.[]}>) Data.Typeable.Internal.$fTypeableInt_$ctypeOf ds_s83P = Data.Typeable.Internal.$fTypeableInt1 Data.Typeable.Internal.$fTypeableInt1 =: Data.Typeable.Internal.TypeRep (ghcsapl_num64# 1521842780 -502745397) (ghcsapl_num64# 1346191152 -432999916) Data.Typeable.Internal.$fTypeableInt2 <{GHC.Types.[]}> Data.Typeable.Internal.$fTypeableInt2 =: Data.Typeable.Internal.TyCon (ghcsapl_num64# 1521842780 -502745397) (ghcsapl_num64# 1346191152 -432999916) <{Data.Typeable.Internal.$fTypeable()_pkg}> Data.Typeable.Internal.$fTypeable1IO_modl Data.Typeable.Internal.$fTypeableInt3 Data.Typeable.Internal.$fTypeableInt3 =: GHC.CString.unpackCString# "Int" Data.Typeable.Internal.$fTypeable1IO_modl =: GHC.CString.unpackCString# "GHC.Types" <{Data.Typeable.Internal.$fTypeable()_pkg}> =: GHC.CString.unpackCString# "ghc-prim" GHC.Classes.$fEqInt =: <{GHC.Classes.D:Eq}> GHC.Classes.eqInt GHC.Classes.neInt GHC.Classes.neInt eta_s7oV eta1_s7oY = select eta_s7oV (GHC.Types.I# x_s7p1 -> select eta1_s7oY (GHC.Types.I# y_s7p2 -> <{/=#}> x_s7p1 y_s7p2)) Gui.FRP.Dropdown.dropdown12 $dEq_sXV8 $dTypeable_sXV7 sigIn_sXUj sigListIn_sXUt eta_sXUk = let !ds1_sY27 = FRP.Fursuit.Signal.compile1 sigIn_sXUj eta_sXUk in select ds1_sY27 (<{GHC.Tuple.(,)}> ipv_sXUo ipv1_sXUp -> let !ds2_sY26 = ipv1_sXUp ipv_sXUo in select ds2_sY26 (<{GHC.Tuple.(,)}> ipv2_sXUu ipv3_sXUD -> let !ds3_sY25 = FRP.Fursuit.Signal.compile1 sigListIn_sXUt ipv2_sXUu in select ds3_sY25 (<{GHC.Tuple.(,)}> ipv4_sXUy ipv5_sXUz -> let !ds4_sY24 = ipv5_sXUz ipv4_sXUy in select ds4_sY24 (<{GHC.Tuple.(,)}> ipv6_sXUM ipv7_sXV9 -> let !initially1_sXV3 = Gui.FRP.Dropdown.dropdown12$4 ipv3_sXUD, !ds5_sY23 = FRP.Fursuit.Pipe.emptyPipe1 ipv6_sXUM in select ds5_sY23 (<{GHC.Tuple.(,)}> ipv8_sXV5 ipv9_sXUQ -> select ipv9_sXUQ (<{GHC.Tuple.(,)}> ds_sXUU ds6_sXXr -> select ds_sXUU (FRP.Fursuit.Signal.P ref_sXUZ ds7_sXVk ds8_sXVn -> select ref_sXUZ (GHC.STRef.STRef var#_sXV2 -> let !s2#_sXVv = writeMutVar# var#_sXV2 (Data.Maybe.Just initially1_sXV3) ipv8_sXV5, !ds9_sY2g = Gui.Base.Dropdown.dropdown5 $dTypeable_sXV7 $dEq_sXV8 (Gui.FRP.Dropdown.dropdown12$5 ipv7_sXV9) (Gui.FRP.Dropdown.dropdown12$12 ds7_sXVk ds8_sXVn var#_sXV2) s2#_sXVv in select ds9_sY2g (<{GHC.Tuple.(,)}> ipv10_sXVD ipv11_sXVz -> select ipv11_sXVz (GHC.Ptr.Ptr ww_sXVC -> let !ds10_sY2f = Gui.Base.Dropdown.$wa5 $dEq_sXV8 $dTypeable_sXV7 initially1_sXV3 ww_sXVC ipv10_sXVD in select ds10_sY2f (<{GHC.Tuple.(,)}> ipv12_sXW1 ipv13_sY1W -> let !ds11_sY2n = FRP.Fursuit.Signal.removableSink1 (Gui.FRP.Dropdown.dropdown12$13 $dEq_sXV8 $dTypeable_sXV7 ww_sXVC) sigIn_sXUj ipv12_sXW1 in select ds11_sY2n (<{GHC.Tuple.(,)}> ipv14_sXXm ipv15_sY1Q -> let !ds12_sY2x = FRP.Fursuit.Signal.removableSink1 (Gui.FRP.Dropdown.dropdown12$15 $dEq_sXV8 $dTypeable_sXV7 (Gui.FRP.Dropdown.dropdown12$14 $dEq_sXV8 $dTypeable_sXV7 sigIn_sXUj ww_sXVC) ipv11_sXVz (Gui.FRP.Dropdown.dropdown12$16 $dTypeable_sXV7)) sigListIn_sXUt ipv14_sXXm in select ds12_sY2x (<{GHC.Tuple.(,)}> ipv16_sXXq ipv17_sY1K -> <{GHC.Tuple.(,)}> ipv16_sXXq (<{GHC.Tuple.(,)}> ipv11_sXVz ds6_sXXr)))))))))))))) Gui.FRP.Dropdown.dropdown12$16 $dTypeable_sXV7 = let !ww1_sY2r = Gui.Base.Dropdown.$wdropdownManip $dTypeable_sXV7 in select ww1_sY2r (<{GHC.Tuple.(,,)}> ww2_sXWN ww3_sXWO ww4_sXWP -> Gui.Base.Dropdown.ListManip ww2_sXWN ww3_sXWO ww4_sXWP) :: Gui.Base.Dropdown.ListManip = Gui.Base.Dropdown.ListManip a1 a2 a3 Gui.Base.Dropdown.$wdropdownManip w_sUeB = <{GHC.Tuple.(,,)}> Gui.Base.Dropdown.dropdown9 (Gui.Base.Dropdown.$wdropdownManip$10 w_sUeB) Gui.Base.Dropdown.allOptions1 Gui.Base.Dropdown.allOptions1 w_sUce w1_sUci = select w_sUce (GHC.Ptr.Ptr ww_sUch -> Gui.Base.Dropdown.$wa ww_sUch w1_sUci) Gui.Base.Dropdown.$wa ww_sUc3 w_sUc4 = select Gui.Base.Dropdown.allOptions3 (GHC.Ptr.Ptr ds3_sUc2 -> let !wild_sUCS = ffi_wrapper4 _Javascript_JQuery_Basic_jq_children ds3_sUc2 ww_sUc3 w_sUc4 in select wild_sUCS (<{GHC.Tuple.(,)}> ds7_sUcb ds8_sUc9 -> Gui.Base.Dropdown.allOptions2 (GHC.Ptr.Ptr ds8_sUc9) ds7_sUcb)) Gui.Base.Dropdown.allOptions2 opts_sUbr eta_sUaQ = let !wild_sUCC = ffi_wrapper2 _Javascript_Base_Array_newArray eta_sUaQ in select wild_sUCC (<{GHC.Tuple.(,)}> ds1_sUbx ds2_sUba -> let !ds_sUCI = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.allOptions2$9 ds2_sUba) in select ds_sUCI (GHC.Ptr.Ptr ds3_sUbm -> let !wild1_sUCH = ffi_wrapper3 makeCallback ds3_sUbm GHC.Prim.realWorld# in select wild1_sUCH (<{GHC.Tuple.(,)}> ds4_sUCw ds5_sUbv -> select opts_sUbr (GHC.Ptr.Ptr ds7_sUbw -> let !wild2_sUCF = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds5_sUbv ds7_sUbw ds1_sUbx in select wild2_sUCF (<{GHC.Tuple.(,)}> ds8_sUbD ds9_sUCx -> let !wild3_sUCE = ffi_wrapper3 fromJSArrayJSVal ds2_sUba ds8_sUbD in select wild3_sUCE (<{GHC.Tuple.(,)}> ds10_sUbL ds11_sUbI -> let !wild4_sUCD = GHC.Ptr.Ptr ds11_sUbI in select wild4_sUCD (Javascript.Base.Types.FakePtr val_sUbM -> <{GHC.Tuple.(,)}> ds10_sUbL val_sUbM))))))) Gui.Base.Dropdown.allOptions2$9 ds2_sUba ds_sUbh eta1_sUaY eta2_sUb3 = select eta1_sUaY (GHC.Ptr.Ptr ds4_sUb2 -> let !wild1_sUCA = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds4_sUb2 eta2_sUb3 in select wild1_sUCA (<{GHC.Tuple.(,)}> ds5_sUbb ds6_sUb9 -> let !wild2_sUCz = ffi_wrapper4 _Javascript_Base_Array_jsArrayPush_ ds6_sUb9 ds2_sUba ds5_sUbb in select wild2_sUCz (<{GHC.Tuple.(,)}> ds7_sUbg ds8_sUCy -> <{GHC.Tuple.(,)}> ds7_sUbg <{GHC.Tuple.()}>))) Gui.Base.Dropdown.allOptions3 =: let !ds_sUCP = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.allOptions_x in select ds_sUCP (GHC.Ptr.Ptr ds1_sUbR -> let !tpl_sUCO = Gui.Base.Dropdown.allOptions_x, !wild_sUCN = ffi_wrapper3 jsToString ds1_sUbR GHC.Prim.realWorld# in select wild_sUCN (<{GHC.Tuple.(,)}> ds2_sUCM ds3_sUbW -> GHC.Ptr.Ptr ds3_sUbW)) Gui.Base.Dropdown.allOptions_x =: GHC.CString.unpackCString# "option" Gui.Base.Dropdown.$wdropdownManip$10 w_sUeB val_sUfs name_sUf2 a_sUeA s_sUeL = let !ds5_sUE0 = Javascript.Base.Types.FakePtr (Data.Dynamic.Dynamic (w_sUeB a_sUeA) a_sUeA) in select ds5_sUE0 (GHC.Ptr.Ptr ds6_sUfh -> select Gui.Base.Dropdown.dropdown8 (GHC.Ptr.Ptr ds1_sUeK -> let !wild_sUDY = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sUeK s_sUeL in select wild_sUDY (<{GHC.Tuple.(,)}> ds2_sUeV ds3_sUeU -> select Gui.Base.Dropdown.dropdown7 (GHC.Ptr.Ptr ds7_sUeT -> let !wild1_sUDW = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds7_sUeT ds3_sUeU ds2_sUeV in select wild1_sUDW (<{GHC.Tuple.(,)}> ds8_sUfu ds9_sUf7 -> select val_sUfs (Data.Maybe.Nothing -> Gui.Base.Dropdown.$wdropdownManip$2 ds6_sUfh ds9_sUf7 name_sUf2 ds8_sUfu) (Data.Maybe.Just x2_sUfy -> select Gui.Base.Dropdown.dropdown6 (GHC.Ptr.Ptr ds11_sUfC -> select x2_sUfy (GHC.Ptr.Ptr ds13_sUfD -> let !wild3_sUE2 = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setAttr ds11_sUfC ds13_sUfD ds9_sUf7 ds8_sUfu in select wild3_sUE2 (<{GHC.Tuple.(,)}> ds14_sUfI ds15_sUDP -> Gui.Base.Dropdown.$wdropdownManip$2 ds6_sUfh ds9_sUf7 name_sUf2 ds14_sUfI))))))))) Gui.Base.Dropdown.$wdropdownManip$2 ds6_sUfh ds9_sUf7 name_sUf2 w1_sUf8 = select name_sUf2 (GHC.Ptr.Ptr ds11_sUf6 -> let !wild2_sUDU = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds11_sUf6 ds9_sUf7 w1_sUf8 in select wild2_sUDU (<{GHC.Tuple.(,)}> ds12_sUfj ds13_sUfi -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ds15_sUfg -> let !wild3_sUDS = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setData ds15_sUfg ds6_sUfh ds13_sUfi ds12_sUfj in select wild3_sUDS (<{GHC.Tuple.(,)}> ds16_sUfo ds17_sUfp -> <{GHC.Tuple.(,)}> ds16_sUfo (GHC.Ptr.Ptr ds17_sUfp))))) Gui.Base.Dropdown.key =: let !ds_sUBJ = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.allValues_x in select ds_sUBJ (GHC.Ptr.Ptr ds1_sU95 -> let !tpl_sUBI = Gui.Base.Dropdown.allValues_x, !wild_sUBH = ffi_wrapper3 jsToString ds1_sU95 GHC.Prim.realWorld# in select wild_sUBH (<{GHC.Tuple.(,)}> ds2_sUBG ds3_sU9a -> GHC.Ptr.Ptr ds3_sU9a)) Gui.Base.Dropdown.allValues_x =: GHC.CString.unpackCString# "val" Gui.Base.Dropdown.dropdown6 =: let !ds_sUDM = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x in select ds_sUDM (GHC.Ptr.Ptr ds1_sUep -> let !tpl_sUDL = Gui.Base.Dropdown.dropdown_x, !wild_sUDK = ffi_wrapper3 jsToString ds1_sUep GHC.Prim.realWorld# in select wild_sUDK (<{GHC.Tuple.(,)}> ds2_sUDJ ds3_sUeu -> GHC.Ptr.Ptr ds3_sUeu)) Gui.Base.Dropdown.dropdown_x =: GHC.CString.unpackCString# "value" Gui.Base.Dropdown.dropdown7 =: let !ds_sUDH = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x1 in select ds_sUDH (GHC.Ptr.Ptr ds1_sUef -> let !tpl_sUDG = Gui.Base.Dropdown.dropdown_x1, !wild_sUDF = ffi_wrapper3 jsToString ds1_sUef GHC.Prim.realWorld# in select wild_sUDF (<{GHC.Tuple.(,)}> ds2_sUDE ds3_sUek -> GHC.Ptr.Ptr ds3_sUek)) Gui.Base.Dropdown.dropdown_x1 =: GHC.CString.unpackCString# "input option" Gui.Base.Dropdown.dropdown8 =: let !ds_sUDC = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x2 in select ds_sUDC (GHC.Ptr.Ptr ds1_sUe5 -> let !tpl_sUDB = Gui.Base.Dropdown.dropdown_x2, !wild_sUDA = ffi_wrapper3 jsToString ds1_sUe5 GHC.Prim.realWorld# in select wild_sUDA (<{GHC.Tuple.(,)}> ds2_sUDz ds3_sUea -> GHC.Ptr.Ptr ds3_sUea)) Gui.Base.Dropdown.dropdown_x2 =: GHC.CString.unpackCString# "" :: Data.Dynamic.Dynamic = Data.Dynamic.Dynamic a1 a2 Gui.Base.Dropdown.dropdown9 eta_sUao = select Gui.Base.Dropdown.dropdown11 (GHC.Ptr.Ptr ds1_sUah -> let !tpl_sUCs = Gui.Base.Dropdown.dropdown_x4, !wild_sUCr = ffi_wrapper3 jsToString ds1_sUah GHC.Prim.realWorld# in select wild_sUCr (<{GHC.Tuple.(,)}> ds2_sUCq ds3_sUan -> let !wild1_sUCp = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_sUan eta_sUao in select wild1_sUCp (<{GHC.Tuple.(,)}> ds4_sUaF ds5_sUaE -> select Gui.Base.Dropdown.dropdown10 (GHC.Ptr.Ptr ds7_sUax -> let !tpl1_sUCn = Gui.Base.Dropdown.dropdown_x3, !wild2_sUCm = ffi_wrapper3 jsToString ds7_sUax GHC.Prim.realWorld# in select wild2_sUCm (<{GHC.Tuple.(,)}> ds8_sUCl ds9_sUaD -> let !wild3_sUCk = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_sUaD ds5_sUaE ds4_sUaF in select wild3_sUCk (<{GHC.Tuple.(,)}> ds10_sUaK ds11_sUaL -> <{GHC.Tuple.(,)}> ds10_sUaK (GHC.Ptr.Ptr ds11_sUaL))))))) Gui.Base.Dropdown.dropdown_x3 =: GHC.CString.unpackCString# "input dropdown" Gui.Base.Dropdown.dropdown10 =: Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x3 Gui.Base.Dropdown.dropdown_x4 =: GHC.CString.unpackCString# "" Gui.Base.Dropdown.dropdown11 =: Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x4 Gui.FRP.Dropdown.dropdown12$14 $dEq_sXV8 $dTypeable_sXV7 sigIn_sXUj ww_sXVC s_sXW7 = let !ds12_sY2m = FRP.Fursuit.Signal.compile1 sigIn_sXUj s_sXW7 in select ds12_sY2m (<{GHC.Tuple.(,)}> ipv16_sXWb ipv17_sXWc -> let !ds13_sY2l = ipv17_sXWc ipv16_sXWb in select ds13_sY2l (<{GHC.Tuple.(,)}> ipv18_sXWk ipv19_sXWs -> select Javascript.JQuery.Basic.hasFocus1 (GHC.Ptr.Ptr ds15_sXWj -> let !wild3_sY2j = ffi_wrapper4 _Javascript_JQuery_Basic_isText ds15_sXWj ww_sXVC ipv18_sXWk in select wild3_sY2j (<{GHC.Tuple.(,)}> ds16_sXWr ds17_sXWp -> select ds17_sXWp (_ -> <{GHC.Tuple.(,)}> ds16_sXWr <{GHC.Tuple.()}>) (0 -> let !ds18_sY2q = Gui.Base.Dropdown.$wa5 $dEq_sXV8 $dTypeable_sXV7 (Gui.FRP.Dropdown.dropdown12$6 ipv19_sXWs) ww_sXVC ds16_sXWr in select ds18_sY2q (<{GHC.Tuple.(,)}> ipv20_sXWE ipv21_sY1S -> <{GHC.Tuple.(,)}> ipv20_sXWE <{GHC.Tuple.()}>)))))) Gui.FRP.Dropdown.dropdown12$6 ipv19_sXWs = select ipv19_sXWs (Data.Maybe.Nothing -> <{GHC.Types.[]}>) (Data.Maybe.Just a3_sXWv -> select a3_sXWv (<{GHC.Tuple.(,)}> x_sXWz ds18_sY1T -> x_sXWz)) Gui.Base.Dropdown.$wa5 w_sUxg w1_sUwS w2_sUxh ww_sUy5 w3_sUy6 = let !ds_sUJa = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.$wa5$24 w1_sUwS w2_sUxh w_sUxg) in select ds_sUJa (GHC.Ptr.Ptr ds1_sUyc -> select Gui.Base.Dropdown.lvl7 (GHC.Ptr.Ptr ds3_sUy4 -> let !wild_sUJ8 = ffi_wrapper4 _Javascript_JQuery_Basic_findText ds3_sUy4 ww_sUy5 w3_sUy6 in select wild_sUJ8 (<{GHC.Tuple.(,)}> ds7_sUyk ds8_sUyj -> let !wild1_sUJ7 = ffi_wrapper3 makeCallback ds1_sUyc GHC.Prim.realWorld# in select wild1_sUJ7 (<{GHC.Tuple.(,)}> ds4_sUIw ds5_sUyi -> let !wild2_sUJ6 = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds5_sUyi ds8_sUyj ds7_sUyk in select wild2_sUJ6 (<{GHC.Tuple.(,)}> ds6_sUyp ds9_sUIx -> <{GHC.Tuple.(,)}> ds6_sUyp (GHC.Ptr.Ptr ww_sUy5)))))) Gui.Base.Dropdown.lvl7 =: let !ds_sUIs = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.allOptions_x in select ds_sUIs (GHC.Ptr.Ptr ds1_sUw0 -> let !tpl_sUIr = Gui.Base.Dropdown.allOptions_x, !wild_sUIq = ffi_wrapper3 jsToString ds1_sUw0 GHC.Prim.realWorld# in select wild_sUIq (<{GHC.Tuple.(,)}> ds2_sUIp ds3_sUw5 -> GHC.Ptr.Ptr ds3_sUw5)) Gui.Base.Dropdown.$wa5$24 w1_sUwS w2_sUxh w_sUxg i_sUxX e_sUwe s_sUwj = select e_sUwe (GHC.Ptr.Ptr ds2_sUwi -> let !wild_sUIU = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds2_sUwi s_sUwj in select wild_sUIU (<{GHC.Tuple.(,)}> ds4_sUwq ds5_sUwp -> let !wild1_sUIT = ffi_wrapper3 _Javascript_JQuery_Basic_getTextUnsafe ds5_sUwp ds4_sUwq in select wild1_sUIT (<{GHC.Tuple.(,)}> ds_sUwz ds3_sUIS -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww1_sUwy -> let !wild2_sUIQ = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUwy ds5_sUwp ds_sUwz in select wild2_sUIQ (<{GHC.Tuple.(,)}> ds6_sUxn ds7_sUwE -> let !wild3_sUIP = GHC.Ptr.Ptr ds7_sUwE in select wild3_sUIP (Javascript.Base.Types.FakePtr val1_sUwH -> select val1_sUwH (Data.Dynamic.Dynamic ww2_sUwL ww3_sUwR -> select ww2_sUwL (Data.Typeable.Internal.TypeRep rb_sUwZ rb1_sUx8 ds8_sUIL ds9_sUIM -> let !wild5_sUIK = w1_sUwS ww3_sUwR in select wild5_sUIK (Data.Typeable.Internal.TypeRep rb2_sUx0 rb3_sUx9 ds10_sUII ds11_sUIJ -> let !wild6_sUIH = ffi_wrapper4 hs_eqWord64 rb_sUwZ rb2_sUx0 GHC.Prim.realWorld# in select wild6_sUIH (<{GHC.Tuple.(,)}> ds12_sUIG ds13_sUx5 -> select ds13_sUx5 (_ -> let !wild8_sUIE = ffi_wrapper4 hs_eqWord64 rb1_sUx8 rb3_sUx9 GHC.Prim.realWorld# in select wild8_sUIE (<{GHC.Tuple.(,)}> ds14_sUID ds15_sUxe -> select ds15_sUxe (_ -> let !wild10_sUIB = GHC.List.elem w_sUxg ww3_sUwR w2_sUxh in if wild10_sUIB (select Gui.Base.Dropdown.lvl1 (GHC.Ptr.Ptr ds17_sUxy -> select Gui.Base.Dropdown.lvl2 (GHC.Ptr.Ptr ds19_sUxz -> let !wild11_sUIX = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setAttr ds17_sUxy ds19_sUxz ds5_sUwp ds6_sUxn in select wild11_sUIX (<{GHC.Tuple.(,)}> ds20_sUxE ds21_sUIW -> <{GHC.Tuple.(,)}> ds20_sUxE <{GHC.Tuple.()}>)))) (select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds17_sUxm -> let !wild11_sUIz = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds17_sUxm ds5_sUwp ds6_sUxn in select wild11_sUIz (<{GHC.Tuple.(,)}> ds18_sUxs ds19_sUIy -> <{GHC.Tuple.(,)}> ds18_sUxs <{GHC.Tuple.()}>)))) (0 -> select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds17_sUxI -> let !wild10_sUJ1 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds17_sUxI ds5_sUwp ds6_sUxn in select wild10_sUJ1 (<{GHC.Tuple.(,)}> ds18_sUxN ds19_sUJ0 -> <{GHC.Tuple.(,)}> ds18_sUxN <{GHC.Tuple.()}>))))) (0 -> select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds15_sUxR -> let !wild8_sUJ4 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds15_sUxR ds5_sUwp ds6_sUxn in select wild8_sUJ4 (<{GHC.Tuple.(,)}> ds16_sUxW ds17_sUJ3 -> <{GHC.Tuple.(,)}> ds16_sUxW <{GHC.Tuple.()}>))))))))))))) Gui.Base.Dropdown.lvl =: let !ds_sUC2 = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.x in select ds_sUC2 (GHC.Ptr.Ptr ds1_sU9M -> let !tpl_sUC1 = Gui.Base.Dropdown.x, !wild_sUC0 = ffi_wrapper3 jsToString ds1_sU9M GHC.Prim.realWorld# in select wild_sUC0 (<{GHC.Tuple.(,)}> ds2_sUBZ ds3_sU9R -> GHC.Ptr.Ptr ds3_sU9R)) Gui.Base.Dropdown.x =: GHC.CString.unpackCString# "selected" Gui.Base.Dropdown.lvl2 =: let !ds_sUCd = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.x1 in select ds_sUCd (GHC.Ptr.Ptr ds1_sUa6 -> let !tpl_sUCc = Gui.Base.Dropdown.x1, !wild_sUCb = ffi_wrapper3 jsToString ds1_sUa6 GHC.Prim.realWorld# in select wild_sUCb (<{GHC.Tuple.(,)}> ds2_sUCa ds3_sUab -> GHC.Ptr.Ptr ds3_sUab)) Gui.Base.Dropdown.x1 =: GHC.CString.unpackCString# "true" Gui.Base.Dropdown.lvl1 =: let !ds_sUC7 = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.x in select ds_sUC7 (GHC.Ptr.Ptr ds1_sU9W -> let !tpl_sUC6 = Gui.Base.Dropdown.x, !wild_sUC5 = ffi_wrapper3 jsToString ds1_sU9W GHC.Prim.realWorld# in select wild_sUC5 (<{GHC.Tuple.(,)}> ds2_sUC4 ds3_sUa1 -> GHC.Ptr.Ptr ds3_sUa1)) Gui.FRP.Dropdown.dropdown12$15 $dEq_sXV8 $dTypeable_sXV7 a2_sXWF ipv11_sXVz lm_sXWQ l_sXWZ s_sXX1 = select lm_sXWQ (Gui.Base.Dropdown.ListManip ww1_sY1L ww2_sXWX ww3_sXWY -> let !ds12_sY2v = Gui.Base.Dropdown.$wa6 $dEq_sXV8 $dTypeable_sXV7 ww2_sXWX ww3_sXWY l_sXWZ ipv11_sXVz s_sXX1 in select ds12_sY2v (<{GHC.Tuple.(,)}> ipv16_sXXf ipv17_sY1M -> select (Javascript.Base.Types.FakePtr a2_sXWF) (GHC.Ptr.Ptr ds14_sXX8 -> let !wild3_sY2t = ffi_wrapper3 makeCallback ds14_sXX8 GHC.Prim.realWorld# in select wild3_sY2t (<{GHC.Tuple.(,)}> ds15_sY1N ds16_sXXe -> let !wild4_sY2s = ffi_wrapper4 _Javascript_Utils_setTimeout_ 0 ds16_sXXe ipv16_sXXf in select wild4_sY2s (<{GHC.Tuple.(,)}> ds17_sXXk ds18_sY1O -> <{GHC.Tuple.(,)}> ds17_sXXk <{GHC.Tuple.()}>))))) Gui.Base.Dropdown.$wa6 w_sUhq w1_sUgH ww_sUir ww1_sUg8 w2_sUhg w3_sUg6 w4_sUg7 = let !ds1_sUEK = ww1_sUg8 w3_sUg6 w4_sUg7 in select ds1_sUEK (<{GHC.Tuple.(,)}> ipv_sUhb ipv1_sUha -> let !ds2_sUEL = Control.Monad.$wfoldM GHC.Base.bindIO1 GHC.Base.returnIO1 (Gui.Base.Dropdown.$wa6$11 w1_sUgH) <{GHC.Types.[]}> ipv1_sUha ipv_sUhb in select ds2_sUEL (<{GHC.Tuple.(,)}> ipv2_sUhO ipv3_sUhN -> let a_sUhM = Gui.Base.Dropdown.$wa6$12 a_sUhM w2_sUhg w_sUhq, !ds3_sUES = a_sUhM ipv3_sUhN ipv2_sUhO in select ds3_sUES (<{GHC.Tuple.(,)}> ipv4_sUiW ipv5_sUEs -> let !ds4_sUF4 = GHC.List.foldr2 (Gui.Base.Dropdown.$wa6$13 ipv3_sUhN (<{GHC.Classes.==}> w_sUhq) ww_sUir) Gui.Base.Dropdown.lvl4 Gui.Base.Dropdown.lvl3 w2_sUhg ipv4_sUiW in select ds4_sUF4 (<{GHC.Tuple.(,)}> ipv6_sUj2 ipv7_sUj0 -> select ipv7_sUj0 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ipv6_sUj2 w3_sUg6) (<{GHC.Types.:}> y_sUj5 ys_sUjB -> select y_sUj5 (GHC.Ptr.Ptr ds6_sUjb -> select w3_sUg6 (GHC.Ptr.Ptr ds8_sUjc -> let !wild1_sUF6 = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds6_sUjb ds8_sUjc ipv6_sUj2 in select wild1_sUF6 (<{GHC.Tuple.(,)}> ds9_sUjC ds10_sUEn -> let a1_sUjA = Gui.Base.Dropdown.$wa6$14 a1_sUjA ds8_sUjc, !ds11_sUFa = a1_sUjA ys_sUjB ds9_sUjC in select ds11_sUFa (<{GHC.Tuple.(,)}> ipv8_sUjG ipv9_sUEm -> <{GHC.Tuple.(,)}> ipv8_sUjG w3_sUg6))))))))) Gui.Base.Dropdown.$wa6$14 a1_sUjA ds8_sUjc ds_sUjk eta_sUjm = select ds_sUjk (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUjm <{GHC.Tuple.()}>) (<{GHC.Types.:}> y1_sUjp ys1_sUjy -> select y1_sUjp (GHC.Ptr.Ptr ds12_sUjt -> let !wild3_sUF8 = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds12_sUjt ds8_sUjc eta_sUjm in select wild3_sUF8 (<{GHC.Tuple.(,)}> ds13_sUjz ds14_sUEl -> a1_sUjA ys1_sUjy ds13_sUjz))) Gui.Base.Dropdown.lvl3 =: GHC.Enum.eftInt 0 2147483647 Gui.Base.Dropdown.lvl4 s_sUfY = <{GHC.Tuple.(,)}> s_sUfY <{GHC.Types.[]}> Gui.Base.Dropdown.$wa6$13 ipv3_sUhN lvl8_sUhT ww_sUir x2_sUia y_sUhY r_sUiA s_sUiv = select y_sUhY (<{GHC.Tuple.(,)}> name_sUiu a1_sUi3 -> let !wild1_sUEY = GHC.List.filter (Gui.Base.Dropdown.$wa6$15 (lvl8_sUhT a1_sUi3)) ipv3_sUhN in select wild1_sUEY (<{GHC.Types.[]}> -> let !ds4_sUF0 = ww_sUir (Data.Maybe.Just (Gui.Base.Dropdown.$wa6$3 x2_sUia)) name_sUiu a1_sUi3 s_sUiv in select ds4_sUF0 (<{GHC.Tuple.(,)}> ipv6_sUiz ipv7_sUiF -> let !ds5_sUEZ = r_sUiA ipv6_sUiz in select ds5_sUEZ (<{GHC.Tuple.(,)}> ipv8_sUiE ipv9_sUiG -> <{GHC.Tuple.(,)}> ipv8_sUiE (<{GHC.Types.:}> ipv7_sUiF ipv9_sUiG)))) (<{GHC.Types.:}> a2_sUiK ds4_sUEh -> select a2_sUiK (<{GHC.Tuple.(,)}> opt_sUiS ds_sUEi -> let !ds5_sUF1 = r_sUiA s_sUiv in select ds5_sUF1 (<{GHC.Tuple.(,)}> ipv6_sUiR ipv7_sUiT -> <{GHC.Tuple.(,)}> ipv6_sUiR (<{GHC.Types.:}> opt_sUiS ipv7_sUiT))))) Gui.Base.Dropdown.$wa6$3 x2_sUia = select x2_sUia (GHC.Types.I# ww2_sUie -> let !x3_sUif = GHC.Show.$wshowSignedInt 0 ww2_sUie <{GHC.Types.[]}>, !ds_sUEW = Javascript.Base.Types.FakePtr x3_sUif in select ds_sUEW (GHC.Ptr.Ptr ds4_sUik -> let !tpl_sUEV = x3_sUif, !wild2_sUEU = ffi_wrapper3 jsToString ds4_sUik GHC.Prim.realWorld# in select wild2_sUEU (<{GHC.Tuple.(,)}> ds5_sUEj ds6_sUip -> GHC.Ptr.Ptr ds6_sUip))) Gui.Base.Dropdown.$wa6$15 f_sUi4 x3_sUi6 = f_sUi4 (Data.Tuple.snd x3_sUi6) GHC.List.foldr2 _k_s3Kw z_s3Kn ds_s3Kl _ys_s3Kq = select ds_s3Kl (<{GHC.Types.[]}> -> z_s3Kn) (<{GHC.Types.:}> ipv_s3Ku ipv1_s3Kx -> select _ys_s3Kq (<{GHC.Types.[]}> -> z_s3Kn) (<{GHC.Types.:}> ipv2_s3Kv ipv3_s3Ky -> _k_s3Kw ipv_s3Ku ipv2_s3Kv (GHC.List.foldr2 _k_s3Kw z_s3Kn ipv1_s3Kx ipv3_s3Ky))) Gui.Base.Dropdown.$wa6$12 a_sUhM w2_sUhg w_sUhq ds_sUhl eta_sUhn = select ds_sUhl (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUhn <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_sUhr ys_sUhK -> let !wild1_sUER = GHC.List.elem w_sUhq (Gui.Base.Dropdown.$wa6$4 y_sUhr) (GHC.Base.map Data.Tuple.snd w2_sUhg) in if wild1_sUER (a_sUhM ys_sUhK eta_sUhn) (select y_sUhr (<{GHC.Tuple.(,)}> x2_sUhB ds3_sUEp -> select x2_sUhB (GHC.Ptr.Ptr ds5_sUhF -> let !wild3_sUEO = ffi_wrapper3 _Javascript_JQuery_Basic_removeNone ds5_sUhF eta_sUhn in select wild3_sUEO (<{GHC.Tuple.(,)}> ds6_sUhL ds7_sUEq -> a_sUhM ys_sUhK ds6_sUhL))))) Gui.Base.Dropdown.$wa6$4 y_sUhr = select y_sUhr (<{GHC.Tuple.(,)}> ds3_sUEr y1_sUhv -> y1_sUhv) Gui.Base.Dropdown.$wa6$11 w1_sUgH l_sUh7 opt_sUgh eta_sUgn = select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww2_sUgl -> select opt_sUgh (GHC.Ptr.Ptr ww3_sUgm -> let !wild_sUEI = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww2_sUgl ww3_sUgm eta_sUgn in select wild_sUEI (<{GHC.Tuple.(,)}> ds_sUgz ds2_sUgs -> let !wild1_sUEH = GHC.Ptr.Ptr ds2_sUgs in select wild1_sUEH (Javascript.Base.Types.FakePtr val1_sUgv -> select val1_sUgv (Data.Dynamic.Dynamic ww4_sUgA ww5_sUgG -> <{GHC.Tuple.(,)}> ds_sUgz (Gui.Base.Dropdown.$wa6$5 l_sUh7 opt_sUgh w1_sUgH ww4_sUgA ww5_sUgG)))))) Gui.Base.Dropdown.$wa6$5 l_sUh7 opt_sUgh w1_sUgH ww4_sUgA ww5_sUgG = select ww4_sUgA (Data.Typeable.Internal.TypeRep rb_sUgO rb1_sUgX ds3_sUED ds4_sUEE -> let !wild3_sUEC = w1_sUgH ww5_sUgG in select wild3_sUEC (Data.Typeable.Internal.TypeRep rb2_sUgP rb3_sUgY ds5_sUEA ds6_sUEB -> let !wild4_sUEz = ffi_wrapper4 hs_eqWord64 rb_sUgO rb2_sUgP GHC.Prim.realWorld# in select wild4_sUEz (<{GHC.Tuple.(,)}> ds7_sUEy ds8_sUgU -> select ds8_sUgU (_ -> let !wild6_sUEw = ffi_wrapper4 hs_eqWord64 rb1_sUgX rb3_sUgY GHC.Prim.realWorld# in select wild6_sUEw (<{GHC.Tuple.(,)}> ds9_sUEv ds10_sUh3 -> select ds10_sUh3 (_ -> <{GHC.Types.:}> (<{GHC.Tuple.(,)}> opt_sUgh ww5_sUgG) l_sUh7) (0 -> l_sUh7))) (0 -> l_sUh7)))) Control.Monad.$wfoldM ww_s1Pt ww1_s1Po w_s1Ps w1_s1Pn w2_s1Pl = select w2_s1Pl (<{GHC.Types.[]}> -> ww1_s1Po w1_s1Pn) (<{GHC.Types.:}> x_s1Pr xs_s1Px -> ww_s1Pt (w_s1Ps w1_s1Pn x_s1Pr) (Control.Monad.$wfoldM$6 w_s1Ps ww1_s1Po ww_s1Pt xs_s1Px)) Control.Monad.$wfoldM$6 w_s1Ps ww1_s1Po ww_s1Pt xs_s1Px fax_s1Pw = Control.Monad.$wfoldM ww_s1Pt ww1_s1Po w_s1Ps fax_s1Pw xs_s1Px Gui.FRP.Dropdown.dropdown12$13 $dEq_sXV8 $dTypeable_sXV7 ww_sXVC vs_sXVV eta1_sXVN = select Javascript.JQuery.Basic.hasFocus1 (GHC.Ptr.Ptr ds12_sXVM -> let !wild3_sY2d = ffi_wrapper4 _Javascript_JQuery_Basic_isText ds12_sXVM ww_sXVC eta1_sXVN in select wild3_sY2d (<{GHC.Tuple.(,)}> ds13_sXVU ds14_sXVS -> select ds14_sXVS (_ -> <{GHC.Tuple.(,)}> ds13_sXVU <{GHC.Tuple.()}>) (0 -> let !ds15_sY2h = Gui.Base.Dropdown.$wa5 $dEq_sXV8 $dTypeable_sXV7 vs_sXVV ww_sXVC ds13_sXVU in select ds15_sY2h (<{GHC.Tuple.(,)}> ipv14_sXVZ ipv15_sY1X -> <{GHC.Tuple.(,)}> ipv14_sXVZ <{GHC.Tuple.()}>)))) Gui.FRP.Dropdown.dropdown12$12 ds7_sXVk ds8_sXVn var#_sXV2 w1_sXVs w2_sXVt = select ds7_sXVk (GHC.STRef.STRef ww6_sXVq -> select ds8_sXVn (GHC.STRef.STRef ww8_sXVr -> FRP.Fursuit.Pipe.$wa1 var#_sXV2 ww6_sXVq ww8_sXVr w1_sXVs w2_sXVt)) Gui.FRP.Dropdown.dropdown12$5 ipv7_sXV9 = select ipv7_sXV9 (Data.Maybe.Nothing -> <{GHC.Types.[]}>) (Data.Maybe.Just a2_sXVc -> select a2_sXVc (<{GHC.Tuple.(,)}> x_sXVg ds9_sY1Y -> x_sXVg)) Gui.Base.Dropdown.dropdown5 $dTypeable_sUsq $dEq_sUsA opts_sUsD action_sUsV s_sUsv = let !ww_sUHr = Gui.Base.Dropdown.$wdropdownManip $dTypeable_sUsq in select ww_sUHr (<{GHC.Tuple.(,,)}> ww1_sUsw ww2_sUsB ww3_sUsC -> let !ds1_sUHq = ww1_sUsw s_sUsv in select ds1_sUHq (<{GHC.Tuple.(,)}> ipv_sUsF ipv1_sUsE -> let !ds2_sUHp = Gui.Base.Dropdown.$wa6 $dEq_sUsA $dTypeable_sUsq ww2_sUsB ww3_sUsC opts_sUsD ipv1_sUsE ipv_sUsF in select ds2_sUHp (<{GHC.Tuple.(,)}> ipv2_sUte ipv3_sUsL -> let !ds_sUHw = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.dropdown5$22 $dTypeable_sUsq action_sUsV ipv3_sUsL) in select ds_sUHw (GHC.Ptr.Ptr ds3_sUt3 -> select Javascript.JQuery.Events.change_evt (GHC.Ptr.Ptr ds5_sUtb -> let !wild_sUHu = ffi_wrapper3 makeCallback ds3_sUt3 GHC.Prim.realWorld# in select wild_sUHu (<{GHC.Tuple.(,)}> ds6_sUHm ds7_sUtc -> select ipv3_sUsL (GHC.Ptr.Ptr ds9_sUtd -> let !wild1_sUHs = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds5_sUtb ds7_sUtc ds9_sUtd ipv2_sUte in select wild1_sUHs (<{GHC.Tuple.(,)}> ds10_sUtj ds11_sUtk -> <{GHC.Tuple.(,)}> ds10_sUtj (GHC.Ptr.Ptr ds11_sUtk))))))))) Gui.Base.Dropdown.dropdown5$22 $dTypeable_sUsq action_sUsV ipv3_sUsL ds_sUsW eta_sUsP = select ipv3_sUsL (GHC.Ptr.Ptr ww4_sUsO -> let !ds3_sUHn = Gui.Base.Dropdown.$wa3 $dTypeable_sUsq ww4_sUsO eta_sUsP in select ds3_sUHn (<{GHC.Tuple.(,)}> ipv4_sUsU ipv5_sUsT -> action_sUsV ipv5_sUsT ipv4_sUsU)) Gui.Base.Dropdown.$wa3 w_sUqQ ww_sUoX w1_sUoY = select Gui.Base.Dropdown.lvl5 (GHC.Ptr.Ptr ds3_sUoW -> let !wild_sUGF = ffi_wrapper4 _Javascript_JQuery_Basic_jq_children ds3_sUoW ww_sUoX w1_sUoY in select wild_sUGF (<{GHC.Tuple.(,)}> ds7_sUp4 ds8_sUpH -> let !wild1_sUGE = ffi_wrapper2 _Javascript_Base_Array_newArray ds7_sUp4 in select wild1_sUGE (<{GHC.Tuple.(,)}> ds1_sUpI ds4_sUpo -> let !ds_sUGM = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.$wa3$19 ds4_sUpo) in select ds_sUGM (GHC.Ptr.Ptr ds5_sUpA -> let !wild2_sUGL = ffi_wrapper3 makeCallback ds5_sUpA GHC.Prim.realWorld# in select wild2_sUGL (<{GHC.Tuple.(,)}> ds6_sUGw ds9_sUpG -> let !wild3_sUGK = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds9_sUpG ds8_sUpH ds1_sUpI in select wild3_sUGK (<{GHC.Tuple.(,)}> ds10_sUpO ds11_sUGx -> let !wild4_sUGJ = ffi_wrapper3 fromJSArrayJSVal ds4_sUpo ds10_sUpO in select wild4_sUGJ (<{GHC.Tuple.(,)}> ds12_sUpY ds13_sUpT -> let !wild5_sUGI = GHC.Ptr.Ptr ds13_sUpT in select wild5_sUGI (Javascript.Base.Types.FakePtr val_sUpW -> select val_sUpW (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ds12_sUpY (Data.Maybe.catMaybes1 <{GHC.Types.[]}>)) (<{GHC.Types.:}> y_sUq4 ys_sUqX -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww1_sUq8 -> select y_sUq4 (GHC.Ptr.Ptr ww2_sUq9 -> let !wild7_sUGQ = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUq8 ww2_sUq9 ds12_sUpY in select wild7_sUGQ (<{GHC.Tuple.(,)}> ds14_sUqY ds15_sUqe -> let !wild8_sUGP = GHC.Ptr.Ptr ds15_sUqe in select wild8_sUGP (Javascript.Base.Types.FakePtr val1_sUqh -> select val1_sUqh (Data.Dynamic.Dynamic ww3_sUr3 ww4_sUr4 -> let a_sUqL = Gui.Base.Dropdown.$wa3$20 a_sUqL w_sUqQ ww1_sUq8, !ds16_sUGY = a_sUqL ys_sUqX ds14_sUqY in select ds16_sUGY (<{GHC.Tuple.(,)}> ipv_sUr2 ipv1_sUr6 -> <{GHC.Tuple.(,)}> ipv_sUr2 (Data.Maybe.catMaybes1 (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic w_sUqQ ww3_sUr3 ww4_sUr4) ipv1_sUr6))))))))))))))))) Data.Dynamic.$wfromDynamic w_s1sQ ww_s1sJ ww1_s1sP = select ww_s1sJ (Data.Typeable.Internal.TypeRep rb_s1sX rb1_s1t6 ds2_s1vY ds3_s1vZ -> let !wild1_s1vW = w_s1sQ ww1_s1sP in select wild1_s1vW (Data.Typeable.Internal.TypeRep rb2_s1sY rb3_s1t7 ds4_s1w0 ds5_s1w1 -> let !wild2_s1vV = ffi_wrapper4 hs_eqWord64 rb_s1sX rb2_s1sY GHC.Prim.realWorld# in select wild2_s1vV (<{GHC.Tuple.(,)}> ds1_s1vU ds6_s1t3 -> select ds6_s1t3 (_ -> let !wild4_s1vS = ffi_wrapper4 hs_eqWord64 rb1_s1t6 rb3_s1t7 GHC.Prim.realWorld# in select wild4_s1vS (<{GHC.Tuple.(,)}> ds7_s1vR ds8_s1tc -> select ds8_s1tc (_ -> Data.Maybe.Just ww1_s1sP) (0 -> Data.Maybe.Nothing))) (0 -> Data.Maybe.Nothing)))) Gui.Base.Dropdown.$wa3$20 a_sUqL w_sUqQ ww1_sUq8 ds16_sUqo eta_sUqq = select ds16_sUqo (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUqq <{GHC.Types.[]}>) (<{GHC.Types.:}> y1_sUqt ys1_sUqJ -> select y1_sUqt (GHC.Ptr.Ptr ww5_sUqx -> let !wild10_sUGW = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUq8 ww5_sUqx eta_sUqq in select wild10_sUGW (<{GHC.Tuple.(,)}> ds17_sUqK ds18_sUqC -> let !wild11_sUGV = GHC.Ptr.Ptr ds18_sUqC in select wild11_sUGV (Javascript.Base.Types.FakePtr val2_sUqF -> select val2_sUqF (Data.Dynamic.Dynamic ww6_sUqR ww7_sUqS -> let !ds19_sUGT = a_sUqL ys1_sUqJ ds17_sUqK in select ds19_sUGT (<{GHC.Tuple.(,)}> ipv_sUqP ipv1_sUqU -> <{GHC.Tuple.(,)}> ipv_sUqP (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic w_sUqQ ww6_sUqR ww7_sUqS) ipv1_sUqU))))))) Gui.Base.Dropdown.$wa3$19 ds4_sUpo ds_sUpv eta_sUpc eta1_sUph = select eta_sUpc (GHC.Ptr.Ptr ds6_sUpg -> let !wild2_sUGC = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds6_sUpg eta1_sUph in select wild2_sUGC (<{GHC.Tuple.(,)}> ds9_sUpp ds10_sUpn -> let !wild3_sUGB = ffi_wrapper4 _Javascript_Base_Array_jsArrayPush_ ds10_sUpn ds4_sUpo ds9_sUpp in select wild3_sUGB (<{GHC.Tuple.(,)}> ds11_sUpu ds12_sUGA -> <{GHC.Tuple.(,)}> ds11_sUpu <{GHC.Tuple.()}>))) Gui.Base.Dropdown.lvl5 =: let !ds_sUGs = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.choices_x in select ds_sUGs (GHC.Ptr.Ptr ds1_sUoK -> let !tpl_sUGr = Gui.Base.Dropdown.choices_x, !wild_sUGq = ffi_wrapper3 jsToString ds1_sUoK GHC.Prim.realWorld# in select wild_sUGq (<{GHC.Tuple.(,)}> ds2_sUGp ds3_sUoP -> GHC.Ptr.Ptr ds3_sUoP)) Gui.Base.Dropdown.choices_x =: GHC.CString.unpackCString# "option:selected" Gui.FRP.Dropdown.dropdown12$4 ipv3_sXUD = select ipv3_sXUD (Data.Maybe.Nothing -> <{GHC.Types.[]}>) (Data.Maybe.Just a2_sXUG -> select a2_sXUG (<{GHC.Tuple.(,)}> x_sXUK ds5_sY2z -> x_sXUK)) Gui.Generic.Classes.lvl15 =: <{GHC.Types.:}> GHC.Show.shows10 <{GHC.Types.[]}> Gui.Generic.Classes.$wa$85 ds18_s11jO eta_B1_B1 = <{GHC.Show.$fShow(,)_$cshowList}> Javascript.Base.String.$fShowPtr GHC.Show.$fShowInt ds18_s11jO eta_B1_B1 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.$fShowPtr_$cshowList ls_s8i3 s_s8i4 = GHC.Show.showList__ Javascript.Base.String.$fShowPtr1 ls_s8i3 s_s8i4 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.$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.$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))) <{GHC.Show.$fShow(,)_$cshowList}> $dShow_s6Dc $dShow1_s6Dd eta_s6Di eta1_s6Dj = GHC.Show.showList__ (<{GHC.Show.$fShow(,)_$cshowList$16}> $dShow1_s6Dd $dShow_s6Dc) eta_s6Di eta1_s6Dj <{GHC.Show.$fShow(,)_$cshowList$16}> $dShow1_s6Dd $dShow_s6Dc w_s6D8 w1_s6Dg = select w_s6D8 (<{GHC.Tuple.(,)}> ww_s6De ww1_s6Df -> GHC.Show.$w$cshowsPrec1 $dShow_s6Dc $dShow1_s6Dd ww_s6De ww1_s6Df w1_s6Dg) Gui.Generic.Classes.$wa$86 x5_s11jE s_s11jG = select x5_s11jE (Data.Maybe.Nothing -> <{GHC.Base.++}> GHC.Show.$fShowMaybe2 s_s11jG) (Data.Maybe.Just x6_s11jI -> <{GHC.Base.++}> GHC.Show.$fShowMaybe1 (Gui.Generic.Classes.$wa$36 s_s11jG x6_s11jI)) Gui.Generic.Classes.$wa$36 s_s11jG x6_s11jI = select x6_s11jI (GHC.Types.I# ww5_s11jL -> GHC.Show.$wshowSignedInt 11 ww5_s11jL s_s11jG) GHC.List.foldr1 ds_s3z6 ds1_s3yX = select ds1_s3yX (<{GHC.Types.[]}> -> GHC.List.foldr3) (<{GHC.Types.:}> x_s3z3 ds2_s3z1 -> select ds2_s3z1 (<{GHC.Types.[]}> -> x_s3z3) (<{GHC.Types.:}> ipv_s3z7 ipv1_s3z8 -> ds_s3z6 x_s3z3 (GHC.List.foldr1_$sfoldr1 ds_s3z6 ipv_s3z7 ipv1_s3z8))) Gui.Generic.Classes.$wa$129 cns_s11iO = let !ww2_s11iR = GHC.List.$wlen cns_s11iO 0, !sat_s11Jd_s11Jd = <{-#}> ww2_s11iR 1 in GHC.Types.I# sat_s11Jd_s11Jd Gui.Generic.Classes.$wa$82 $wgo_s11j1 a9_s11iT w5_s11iW = select w5_s11iW (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> a9_s11iT Gui.Generic.Classes.lvl12) (<{GHC.Types.:}> y_s11jf ys_s11j0 -> let !ww2_s11KQ = $wgo_s11j1 ys_s11j0 in select ww2_s11KQ (<{GHC.Tuple.(,)}> ww3_s11j9 ww4_s11j5 -> select ww4_s11j5 (<{GHC.Tuple.(,)}> mi_s11jl l_s11jq -> <{GHC.Tuple.(,)}> (Gui.Generic.Classes.$wa$38 ww3_s11j9) (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$wa$37 mi_s11jl ww3_s11j9 y_s11jf) (<{GHC.Types.:}> (<{GHC.Tuple.(,)}> (Data.Tuple.fst y_s11jf) ww3_s11j9) l_s11jq))))) Gui.Generic.Classes.$wa$37 mi_s11jl ww3_s11j9 y_s11jf = select y_s11jf (<{GHC.Tuple.(,)}> ds18_s11Ky y1_s11jj -> if y1_s11jj (Data.Maybe.Just ww3_s11j9) mi_s11jl) Gui.Generic.Classes.$wa$38 ww3_s11j9 = select ww3_s11j9 (GHC.Types.I# x5_s11jc -> let !sat_s11Kv_s11Kv = <{-#}> x5_s11jc 1 in GHC.Types.I# sat_s11Kv_s11Kv) Gui.Generic.Classes.lvl12 =: <{GHC.Tuple.(,)}> Data.Maybe.Nothing <{GHC.Types.[]}> Gui.Generic.Classes.lvl11 a9_s11fc = <{GHC.Tuple.(,)}> (Gui.Generic.Classes.lvl11$30 a9_s11fc) (Gui.Generic.Classes.lvl11$29 a9_s11fc) Gui.Generic.Classes.lvl11$29 a9_s11fc = select a9_s11fc (Gui.Generic.Classes.Alt ds_s11I6 ds1_s11fn ds2_s11I7 -> ds1_s11fn) Gui.Generic.Classes.lvl11$30 a9_s11fc = select a9_s11fc (Gui.Generic.Classes.Alt ds_s11fh ds1_s11I5 ds2_s11I4 -> ds_s11fh) Gui.Generic.Classes.lvl9 =: let !ds_s11HZ = Javascript.Base.Types.FakePtr Gui.Generic.Classes.x2 in select ds_s11HZ (GHC.Ptr.Ptr ds1_s11f5 -> let !tpl_s11HY = Gui.Generic.Classes.x2, !wild_s11HX = ffi_wrapper3 jsToString ds1_s11f5 GHC.Prim.realWorld# in select wild_s11HX (<{GHC.Tuple.(,)}> ds2_s11HW ds3_s11fa -> GHC.Ptr.Ptr ds3_s11fa)) Gui.Generic.Classes.x2 =: GHC.CString.unpackCString# "container" Gui.Generic.Classes.lvl8 =: let !ds_s11HT = Javascript.Base.Types.FakePtr Gui.Generic.Classes.x1 in select ds_s11HT (GHC.Ptr.Ptr ds1_s11eV -> let !tpl_s11HS = Gui.Generic.Classes.x1, !wild_s11HR = ffi_wrapper3 jsToString ds1_s11eV GHC.Prim.realWorld# in select wild_s11HR (<{GHC.Tuple.(,)}> ds2_s11HQ ds3_s11f0 -> GHC.Ptr.Ptr ds3_s11f0)) Gui.Generic.Classes.x1 =: GHC.CString.unpackCString# "