:: Gui.Dialog.DialogResult = Gui.Dialog.DialogCancel | Gui.Dialog.DialogOK a1 :: Gui.Dialog.DialogProp = Gui.Dialog.DialogProp a1 a2 a3 a4 Gui.Dialog.$fShowDialogResult5 =: GHC.CString.unpackCString# "DialogCancel" Gui.Dialog.$fShowDialogResult4 eta_B1_B1 = <{GHC.Base.++}> Gui.Dialog.$fShowDialogResult5 eta_B1_B1 Gui.Dialog.$fShowDialogResult2 =: GHC.CString.unpackCString# "DialogOK " Gui.Dialog.$fShowDialogResult3 =: GHC.Types.I# 11 Gui.Dialog.$fShowDialogResult_$cshowsPrec $dShow_s1as7 ds_s1as3 ds1_s1as0 = select ds1_s1as0 (Gui.Dialog.DialogCancel -> Gui.Dialog.$fShowDialogResult4) (Gui.Dialog.DialogOK b1_s1as8 -> select ds_s1as3 (GHC.Types.I# x9_s1asa -> let g_s1as9 = GHC.Show.showsPrec $dShow_s1as7 Gui.Dialog.$fShowDialogResult3 b1_s1as8, !wild2_s1aNN = <{>=#}> x9_s1asa 11 in if wild2_s1aNN (Gui.Dialog.$fShowDialogResult_$cshowsPrec$25 g_s1as9) (Gui.Dialog.$fShowDialogResult_$cshowsPrec$24 g_s1as9))) Gui.Dialog.$fShowDialogResult_$cshowsPrec$24 g_s1as9 x10_s1asd = <{GHC.Base.++}> Gui.Dialog.$fShowDialogResult2 (g_s1as9 x10_s1asd) Gui.Dialog.$fShowDialogResult_$cshowsPrec$25 g_s1as9 x10_s1asi = <{GHC.Types.:}> GHC.Show.shows11 (<{GHC.Base.++}> Gui.Dialog.$fShowDialogResult2 (g_s1as9 (<{GHC.Types.:}> GHC.Show.shows10 x10_s1asi))) Gui.Dialog.$fShowDialogResult1 =: GHC.Types.I# 0 Gui.Dialog.$fShowDialogResult_$cshowList $dShow_s1ast eta_s1asv eta1_s1asw = GHC.Show.showList__ (Gui.Dialog.$fShowDialogResult_$cshowList$26 $dShow_s1ast) eta_s1asv eta1_s1asw Gui.Dialog.$fShowDialogResult_$cshowList$26 $dShow_s1ast eta_B1_B1 = Gui.Dialog.$fShowDialogResult_$cshowsPrec $dShow_s1ast Gui.Dialog.$fShowDialogResult1 eta_B1_B1 Gui.Dialog.$fShowDialogResult_$cshow $dShow_s1asz x9_s1asA = Gui.Dialog.$fShowDialogResult_$cshowsPrec $dShow_s1asz GHC.Show.shows26 x9_s1asA <{GHC.Types.[]}> Gui.Dialog.$fShowDialogResult $dShow_s1asC = <{GHC.Show.D:Show}> (Gui.Dialog.$fShowDialogResult$29 $dShow_s1asC) (Gui.Dialog.$fShowDialogResult$28 $dShow_s1asC) (Gui.Dialog.$fShowDialogResult$27 $dShow_s1asC) Gui.Dialog.$fShowDialogResult$27 $dShow_s1asC eta_B2_B2 eta_B1_B1 = Gui.Dialog.$fShowDialogResult_$cshowList $dShow_s1asC eta_B2_B2 eta_B1_B1 Gui.Dialog.$fShowDialogResult$28 $dShow_s1asC eta_B1_B1 = Gui.Dialog.$fShowDialogResult_$cshow $dShow_s1asC eta_B1_B1 Gui.Dialog.$fShowDialogResult$29 $dShow_s1asC eta_B2_B2 eta_B1_B1 = Gui.Dialog.$fShowDialogResult_$cshowsPrec $dShow_s1asC eta_B2_B2 eta_B1_B1 Gui.Dialog.simplePopup_x3 =: GHC.CString.unpackCString# "modal" Gui.Dialog.simplePopup6 =: let !ds_s1aO1 = Javascript.Base.Types.FakePtr Gui.Dialog.simplePopup_x3 in select ds_s1aO1 (GHC.Ptr.Ptr ds1_s1asK -> let !tpl_s1aO0 = Gui.Dialog.simplePopup_x3, !wild_s1aNZ = ffi_wrapper3 jsToString ds1_s1asK GHC.Prim.realWorld# in select wild_s1aNZ (<{GHC.Tuple.(,)}> ds2_s1aNY ds3_s1asP -> GHC.Ptr.Ptr ds3_s1asP)) Gui.Dialog.simplePopup_x2 =: GHC.CString.unpackCString# "width" Gui.Dialog.simplePopup4 =: let !ds_s1aO7 = Javascript.Base.Types.FakePtr Gui.Dialog.simplePopup_x2 in select ds_s1aO7 (GHC.Ptr.Ptr ds1_s1asU -> let !tpl_s1aO6 = Gui.Dialog.simplePopup_x2, !wild_s1aO5 = ffi_wrapper3 jsToString ds1_s1asU GHC.Prim.realWorld# in select wild_s1aO5 (<{GHC.Tuple.(,)}> ds2_s1aO4 ds3_s1asZ -> GHC.Ptr.Ptr ds3_s1asZ)) Gui.Dialog.simplePopup_x1 =: GHC.CString.unpackCString# "height" Gui.Dialog.simplePopup3 =: let !ds_s1aOd = Javascript.Base.Types.FakePtr Gui.Dialog.simplePopup_x1 in select ds_s1aOd (GHC.Ptr.Ptr ds1_s1at4 -> let !tpl_s1aOc = Gui.Dialog.simplePopup_x1, !wild_s1aOb = ffi_wrapper3 jsToString ds1_s1at4 GHC.Prim.realWorld# in select wild_s1aOb (<{GHC.Tuple.(,)}> ds2_s1aOa ds3_s1at9 -> GHC.Ptr.Ptr ds3_s1at9)) Gui.Dialog.simplePopup_x =: GHC.CString.unpackCString# "close" Gui.Dialog.simplePopup2 =: let !ds_s1aOj = Javascript.Base.Types.FakePtr Gui.Dialog.simplePopup_x in select ds_s1aOj (GHC.Ptr.Ptr ds1_s1ate -> let !tpl_s1aOi = Gui.Dialog.simplePopup_x, !wild_s1aOh = ffi_wrapper3 jsToString ds1_s1ate GHC.Prim.realWorld# in select wild_s1aOh (<{GHC.Tuple.(,)}> ds2_s1aOg ds3_s1atj -> GHC.Ptr.Ptr ds3_s1atj)) Gui.Dialog.x =: GHC.CString.unpackCString# "
" Gui.Dialog.x1 =: GHC.CString.unpackCString# "container" Gui.Dialog.x2 =: GHC.CString.unpackCString# "dialogCont" Gui.Dialog.lvl =: let !ds_s1aOr = Javascript.Base.Types.FakePtr Gui.Dialog.x in select ds_s1aOr (GHC.Ptr.Ptr ds1_s1ato -> let !tpl_s1aOq = Gui.Dialog.x, !wild_s1aOp = ffi_wrapper3 jsToString ds1_s1ato GHC.Prim.realWorld# in select wild_s1aOp (<{GHC.Tuple.(,)}> ds2_s1aOo ds3_s1att -> GHC.Ptr.Ptr ds3_s1att)) Gui.Dialog.x3 =: GHC.CString.unpackCString# "dialogButtons" Gui.Dialog.lvl1 =: let !ds_s1aOx = Javascript.Base.Types.FakePtr Gui.Dialog.x3 in select ds_s1aOx (GHC.Ptr.Ptr ds1_s1aty -> let !tpl_s1aOw = Gui.Dialog.x3, !wild_s1aOv = ffi_wrapper3 jsToString ds1_s1aty GHC.Prim.realWorld# in select wild_s1aOv (<{GHC.Tuple.(,)}> ds2_s1aOu ds3_s1atD -> GHC.Ptr.Ptr ds3_s1atD)) Gui.Dialog.x4 =: GHC.CString.unpackCString# "Cancel" Gui.Dialog.lvl2 =: let !ds_s1aOD = Javascript.Base.Types.FakePtr Gui.Dialog.x4 in select ds_s1aOD (GHC.Ptr.Ptr ds1_s1atI -> let !tpl_s1aOC = Gui.Dialog.x4, !wild_s1aOB = ffi_wrapper3 jsToString ds1_s1atI GHC.Prim.realWorld# in select wild_s1aOB (<{GHC.Tuple.(,)}> ds2_s1aOA ds3_s1atN -> GHC.Ptr.Ptr ds3_s1atN)) Gui.Dialog.x5 =: GHC.CString.unpackCString# "OK" Gui.Dialog.lvl3 =: let !ds_s1aOJ = Javascript.Base.Types.FakePtr Gui.Dialog.x5 in select ds_s1aOJ (GHC.Ptr.Ptr ds1_s1atS -> let !tpl_s1aOI = Gui.Dialog.x5, !wild_s1aOH = ffi_wrapper3 jsToString ds1_s1atS GHC.Prim.realWorld# in select wild_s1aOH (<{GHC.Tuple.(,)}> ds2_s1aOG ds3_s1atX -> GHC.Ptr.Ptr ds3_s1atX)) Gui.Dialog.simplePopup5 =: Javascript.Base.Types.FakePtr true Gui.Dialog.lvl4 x9_s1au0 ds_s1au1 = true Gui.Dialog.x6 =: GHC.CString.unpackCString# "Reset" Gui.Dialog.lvl5 =: let !ds_s1aOR = Javascript.Base.Types.FakePtr Gui.Dialog.x6 in select ds_s1aOR (GHC.Ptr.Ptr ds1_s1au6 -> let !tpl_s1aOQ = Gui.Dialog.x6, !wild_s1aOP = ffi_wrapper3 jsToString ds1_s1au6 GHC.Prim.realWorld# in select wild_s1aOP (<{GHC.Tuple.(,)}> ds2_s1aOO ds3_s1aub -> GHC.Ptr.Ptr ds3_s1aub)) Gui.Dialog.a s_s1aud = <{GHC.Tuple.(,)}> s_s1aud <{GHC.Tuple.()}> Gui.Dialog.lvl6 =: FRP.Fursuit.Signal.Pure <{GHC.Tuple.(,)}> Gui.Dialog.lvl7 =: FRP.Fursuit.Signal.Pure Gui.Dialog.lvl4 Gui.Dialog.lvl8 =: Javascript.Base.Types.FakePtr Gui.Dialog.x2 Gui.Dialog.lvl9 =: Javascript.Base.Types.FakePtr Gui.Dialog.x1 Gui.Dialog.lvl10 =: Javascript.Base.Types.FakePtr Gui.Dialog.x Gui.Dialog.a1 $dEq_s1awQ div_s1aAo initial_s1axf inp_s1ava onOK_s1ayl onCancel_s1ayX onReset_s1ayG eta_s1aux = select Gui.Dialog.lvl10 (GHC.Ptr.Ptr ds1_s1auq -> let !tpl_s1aPI = Gui.Dialog.x, !wild_s1aPH = ffi_wrapper3 jsToString ds1_s1auq GHC.Prim.realWorld# in select wild_s1aPH (<{GHC.Tuple.(,)}> ds2_s1aPG ds3_s1auw -> let !wild1_s1aPF = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_s1auw eta_s1aux in select wild1_s1aPF (<{GHC.Tuple.(,)}> ds4_s1auO ds5_s1auN -> select Gui.Dialog.lvl9 (GHC.Ptr.Ptr ds7_s1auG -> let !tpl1_s1aPD = Gui.Dialog.x1, !wild2_s1aPC = ffi_wrapper3 jsToString ds7_s1auG GHC.Prim.realWorld# in select wild2_s1aPC (<{GHC.Tuple.(,)}> ds8_s1aPB ds9_s1auM -> let !wild3_s1aPA = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_s1auM ds5_s1auN ds4_s1auO in select wild3_s1aPA (<{GHC.Tuple.(,)}> ds10_s1av5 ds11_s1av4 -> select Gui.Dialog.lvl8 (GHC.Ptr.Ptr ds13_s1auX -> let !tpl2_s1aPy = Gui.Dialog.x2, !wild4_s1aPx = ffi_wrapper3 jsToString ds13_s1auX GHC.Prim.realWorld# in select wild4_s1aPx (<{GHC.Tuple.(,)}> ds14_s1aPw ds15_s1av3 -> let !wild5_s1aPv = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds15_s1av3 ds11_s1av4 ds10_s1av5 in select wild5_s1aPv (<{GHC.Tuple.(,)}> ds16_s1avA ds17_s1avr -> select inp_s1ava (Gui.Generic.Types.Input ds18_s1axp ds19_s1avz -> let a112_s1avy = Gui.Dialog.a1$30 a112_s1avy ds17_s1avr, !ds20_s1aQ3 = a112_s1avy ds19_s1avz ds16_s1avA in select ds20_s1aQ3 (<{GHC.Tuple.(,)}> ipv_s1avI ipv1_s1aPs -> select Gui.Dialog.lvl (GHC.Ptr.Ptr ds22_s1avH -> let !wild7_s1aQ1 = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds22_s1avH ipv_s1avI in select wild7_s1aQ1 (<{GHC.Tuple.(,)}> ds23_s1avS ds24_s1avR -> select Gui.Dialog.lvl1 (GHC.Ptr.Ptr ds26_s1avQ -> let !wild8_s1aPZ = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds26_s1avQ ds24_s1avR ds23_s1avS in select wild8_s1aPZ (<{GHC.Tuple.(,)}> ds27_s1avX ds28_s1azM -> let !ds29_s1aPY = Gui.FRP.Button.button1 Gui.Dialog.lvl2 ds27_s1avX in select ds29_s1aPY (<{GHC.Tuple.(,)}> ipv2_s1aw5 ipv3_s1aw1 -> select ipv3_s1aw1 (<{GHC.Tuple.(,)}> cancel_s1aAf cancelsig_s1az8 -> let !ds30_s1aPW = Gui.FRP.Button.button1 Gui.Dialog.lvl3 ipv2_s1aw5 in select ds30_s1aPW (<{GHC.Tuple.(,)}> ipv4_s1awo ipv5_s1aw9 -> select ipv5_s1aw9 (<{GHC.Tuple.(,)}> a5_s1awh b_s1ayu -> select Javascript.JQuery.Basic.disable_t (GHC.Ptr.Ptr ds32_s1awl -> select Gui.Dialog.simplePopup5 (GHC.Ptr.Ptr ds34_s1awm -> select a5_s1awh (GHC.Ptr.Ptr ds36_s1awn -> let !wild11_s1aPR = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setProp ds32_s1awl ds34_s1awm ds36_s1awn ipv4_s1awo in select wild11_s1aPR (<{GHC.Tuple.(,)}> ds37_s1awt ds38_s1ax3 -> let !ds39_s1aPQ = Gui.FRP.Button.button1 Gui.Dialog.lvl5 ds37_s1awt in select ds39_s1aPQ (<{GHC.Tuple.(,)}> ipv6_s1awG ipv7_s1awx -> select ipv7_s1awx (<{GHC.Tuple.(,)}> a6_s1awB b1_s1ayJ -> select a6_s1awB (GHC.Ptr.Ptr ds41_s1awF -> let !wild13_s1aPN = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setProp ds32_s1awl ds34_s1awm ds41_s1awF ipv6_s1awG in select wild13_s1aPN (<{GHC.Tuple.(,)}> ds42_s1awL ds43_s1axF -> let !ds44_s1aPM = newMutVar# Data.Maybe.Nothing ds42_s1awL in select ds44_s1aPM (<{GHC.Tuple.(,)}> ipv8_s1axr ipv9_s1ayc -> let lvl17_s1awR = <{GHC.Classes.==}> $dEq_s1awQ, !ds45_s1aQa = FRP.Fursuit.Signal.removableSink1 (Gui.Dialog.a1$32 ds32_s1awl ds38_s1ax3) (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure (Gui.Dialog.a1$31 initial_s1axf lvl17_s1awR)) ds18_s1axp) ipv8_s1axr in select ds45_s1aQa (<{GHC.Tuple.(,)}> ipv10_s1ay0 ipv11_s1azf -> let !ds46_s1aQg = FRP.Fursuit.Signal.removableSink1 (Gui.Dialog.a1$34 ds32_s1awl ds43_s1axF) (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure (Gui.Dialog.a1$33 initial_s1axf lvl17_s1awR)) ds18_s1axp) ipv10_s1ay0 in select ds46_s1aQg (<{GHC.Tuple.(,)}> ipv12_s1ayB ipv13_s1azk -> let !ds47_s1aQm = FRP.Fursuit.Signal.removableSink1 (Gui.Dialog.a1$35 ipv9_s1ayc onOK_s1ayl) (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App Gui.Dialog.lvl6 (FRP.Fursuit.Signal.Accum false (FRP.Fursuit.Signal.App Gui.Dialog.lvl7 b_s1ayu))) ds18_s1axp) ipv12_s1ayB in select ds47_s1aQm (<{GHC.Tuple.(,)}> ipv14_s1ayK ipv15_s1azu -> let !ds48_s1aQp = FRP.Fursuit.Signal.removableSink1 (Gui.Dialog.a1$36 onReset_s1ayG) b1_s1ayJ ipv14_s1ayK in select ds48_s1aQp (<{GHC.Tuple.(,)}> ipv16_s1az9 ipv17_s1azp -> let !ds49_s1aQv = FRP.Fursuit.Signal.removableSink1 (Gui.Dialog.a1$38 (Gui.Dialog.a1$37 ipv9_s1ayc onCancel_s1ayX)) cancelsig_s1az8 ipv16_s1az9 in select ds49_s1aQv (<{GHC.Tuple.(,)}> ipv18_s1azD ipv19_s1azz -> let !s2#_s1aAe = writeMutVar# ipv9_s1ayc (Data.Maybe.Just (Gui.Dialog.a1$39 ipv11_s1azf ipv13_s1azk ipv15_s1azu ipv17_s1azp ipv19_s1azz)) ipv18_s1azD, $sa112_s1azV = Gui.Dialog.a1$40 a7_s1azU ds28_s1azM, a7_s1azU = Gui.Dialog.a1$41 a7_s1azU ds28_s1azM, !ds50_s1aQD = $sa112_s1azV s2#_s1aAe (<{GHC.Types.:}> cancel_s1aAf (<{GHC.Types.:}> (GHC.Ptr.Ptr ds38_s1ax3) <{GHC.Types.[]}>)) ds43_s1axF in select ds50_s1aQD (<{GHC.Tuple.(,)}> ipv20_s1aAt ipv21_s1aP3 -> select div_s1aAo (GHC.Ptr.Ptr ds52_s1aAs -> let !wild14_s1aQB = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds17_s1avr ds52_s1aAs ipv20_s1aAt in select wild14_s1aQB (<{GHC.Tuple.(,)}> ds53_s1aAz ds54_s1aP4 -> let !wild15_s1aQA = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds28_s1azM ds52_s1aAs ds53_s1aAz in select wild15_s1aQA (<{GHC.Tuple.(,)}> ds55_s1aAE ds56_s1aP5 -> <{GHC.Tuple.(,)}> ds55_s1aAE <{GHC.Tuple.()}>))))))))))))))))))))))))))))))))))))) Gui.Dialog.a1$30 a112_s1avy ds17_s1avr ds20_s1avh eta3_s1avj = select ds20_s1avh (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s1avj <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1avm ys_s1avw -> select y_s1avm (GHC.Ptr.Ptr ds22_s1avq -> let !wild8_s1aPK = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds22_s1avq ds17_s1avr eta3_s1avj in select wild8_s1aPK (<{GHC.Tuple.(,)}> ds23_s1avx ds24_s1aPr -> a112_s1avy ys_s1avw ds23_s1avx))) Gui.Dialog.a1$31 initial_s1axf lvl17_s1awR ds45_s1axc = select ds45_s1axc (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just ipv10_s1axk -> select initial_s1axf (Data.Maybe.Nothing -> Data.Maybe.Just ds45_s1axc) (Data.Maybe.Just a7_s1axj -> let !wild16_s1aQ5 = lvl17_s1awR a7_s1axj ipv10_s1axk in if wild16_s1aQ5 Data.Maybe.Nothing (Data.Maybe.Just ds45_s1axc))) Gui.Dialog.a1$32 ds32_s1awl ds38_s1ax3 x9_s1awU s_s1ax4 = let !tpl3_s1awY = Gui.Dialog.a1$2 x9_s1awU, !ds45_s1aQ7 = Javascript.Base.Types.FakePtr tpl3_s1awY in select ds45_s1aQ7 (GHC.Ptr.Ptr ds46_s1ax2 -> let !wild14_s1aQ6 = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setProp ds32_s1awl ds46_s1ax2 ds38_s1ax3 s_s1ax4 in select wild14_s1aQ6 (<{GHC.Tuple.(,)}> ds47_s1ax9 ds48_s1aPp -> <{GHC.Tuple.(,)}> ds47_s1ax9 <{GHC.Tuple.()}>)) Gui.Dialog.a1$33 initial_s1axf lvl17_s1awR ds46_s1axO = select ds46_s1axO (Data.Maybe.Nothing -> true) (Data.Maybe.Just ipv12_s1axU -> select initial_s1axf (Data.Maybe.Nothing -> true) (Data.Maybe.Just a7_s1axT -> let !wild16_s1aQc = lvl17_s1awR a7_s1axT ipv12_s1axU in if wild16_s1aQc false true)) Gui.Dialog.a1$34 ds32_s1awl ds43_s1axF x9_s1axx s_s1axG = let !tpl3_s1axA = Gui.Dialog.a1$1 x9_s1axx, !ds46_s1aQe = Javascript.Base.Types.FakePtr tpl3_s1axA in select ds46_s1aQe (GHC.Ptr.Ptr ds47_s1axE -> let !wild14_s1aQd = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setProp ds32_s1awl ds47_s1axE ds43_s1axF s_s1axG in select wild14_s1aQd (<{GHC.Tuple.(,)}> ds48_s1axL ds49_s1aPm -> <{GHC.Tuple.(,)}> ds48_s1axL <{GHC.Tuple.()}>)) Gui.Dialog.a1$35 ipv9_s1ayc onOK_s1ayl ds47_s1ay5 = select ds47_s1ay5 (<{GHC.Tuple.(,)}> b2_s1ay9 a7_s1ayj -> if b2_s1ay9 (Gui.Dialog.a1$42 a7_s1ayj ipv9_s1ayc onOK_s1ayl) Gui.Dialog.a) Gui.Dialog.a1$42 a7_s1ayj ipv9_s1ayc onOK_s1ayl s_s1ayd = let !ds48_s1aQk = readMutVar# ipv9_s1ayc s_s1ayd in select ds48_s1aQk (<{GHC.Tuple.(,)}> ipv14_s1ayk ipv15_s1ayh -> select ipv15_s1ayh (Data.Maybe.Nothing -> onOK_s1ayl a7_s1ayj ipv14_s1ayk) (Data.Maybe.Just x9_s1ayn -> let !ds49_s1aQl = x9_s1ayn ipv14_s1ayk in select ds49_s1aQl (<{GHC.Tuple.(,)}> ipv16_s1ayr ipv17_s1aPj -> onOK_s1ayl a7_s1ayj ipv16_s1ayr))) Gui.Dialog.a1$36 onReset_s1ayG ds48_s1ayH = onReset_s1ayG Gui.Dialog.a1$37 ipv9_s1ayc onCancel_s1ayX s_s1ayQ = let !ds49_s1aQo = readMutVar# ipv9_s1ayc s_s1ayQ in select ds49_s1aQo (<{GHC.Tuple.(,)}> ipv18_s1ayW ipv19_s1ayU -> select ipv19_s1ayU (Data.Maybe.Nothing -> onCancel_s1ayX ipv18_s1ayW) (Data.Maybe.Just x9_s1ayZ -> let !ds50_s1aQq = x9_s1ayZ ipv18_s1ayW in select ds50_s1aQq (<{GHC.Tuple.(,)}> ipv20_s1az3 ipv21_s1aPf -> onCancel_s1ayX ipv20_s1az3))) Gui.Dialog.a1$38 a7_s1az4 ds49_s1az6 eta_B1_B1 = a7_s1az4 eta_B1_B1 Gui.Dialog.a1$39 ipv11_s1azf ipv13_s1azk ipv15_s1azu ipv17_s1azp ipv19_s1azz s_s1aze = let !ds50_s1aQu = ipv11_s1azf s_s1aze in select ds50_s1aQu (<{GHC.Tuple.(,)}> ipv20_s1azj ipv21_s1aPa -> let !ds51_s1aQt = ipv13_s1azk ipv20_s1azj in select ds51_s1aQt (<{GHC.Tuple.(,)}> ipv22_s1azo ipv23_s1aPb -> let !ds52_s1aQs = ipv17_s1azp ipv22_s1azo in select ds52_s1aQs (<{GHC.Tuple.(,)}> ipv24_s1azt ipv25_s1aPc -> let !ds53_s1aQr = ipv15_s1azu ipv24_s1azt in select ds53_s1aQr (<{GHC.Tuple.(,)}> ipv26_s1azy ipv27_s1aPd -> ipv19_s1azz ipv26_s1azy)))) Gui.Dialog.a1$40 a7_s1azU ds28_s1azM sc_s1azN sc1_s1azS sc2_s1azL = let !wild14_s1aQw = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery sc2_s1azL ds28_s1azM sc_s1azN in select wild14_s1aQw (<{GHC.Tuple.(,)}> ds50_s1azT ds51_s1aP7 -> a7_s1azU sc1_s1azS ds50_s1azT) Gui.Dialog.a1$41 a7_s1azU ds28_s1azM ds50_s1azY eta3_s1aA0 = select ds50_s1azY (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta3_s1aA0 <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1aA3 ys_s1aAc -> select y_s1aA3 (GHC.Ptr.Ptr ds52_s1aA7 -> let !wild15_s1aQy = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds52_s1aA7 ds28_s1azM eta3_s1aA0 in select wild15_s1aQy (<{GHC.Tuple.(,)}> ds53_s1aAd ds54_s1aP6 -> a7_s1azU ys_s1aAc ds53_s1aAd))) Gui.Dialog.a1$1 x9_s1axx = if x9_s1axx false true Gui.Dialog.a1$2 x9_s1awU = select x9_s1awU (Data.Maybe.Nothing -> true) (Data.Maybe.Just ipv10_s1aPq -> false) Gui.Dialog.x7 =: GHC.CString.unpackCString# "inlineDialog" Gui.Dialog.lvl11 =: Javascript.Base.Types.FakePtr Gui.Dialog.x7 Gui.Dialog.lvl12 =: Javascript.Base.Types.FakePtr Gui.Dialog.x Gui.Dialog.a2 s_s1aAR = select Gui.Dialog.lvl12 (GHC.Ptr.Ptr ds1_s1aAK -> let !tpl_s1aQR = Gui.Dialog.x, !wild_s1aQQ = ffi_wrapper3 jsToString ds1_s1aAK GHC.Prim.realWorld# in select wild_s1aQQ (<{GHC.Tuple.(,)}> ds2_s1aQP ds3_s1aAQ -> let !wild1_s1aQO = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_s1aAQ s_s1aAR in select wild1_s1aQO (<{GHC.Tuple.(,)}> ds4_s1aB8 ds5_s1aB7 -> select Gui.Dialog.lvl11 (GHC.Ptr.Ptr ds7_s1aB0 -> let !tpl1_s1aQM = Gui.Dialog.x7, !wild2_s1aQL = ffi_wrapper3 jsToString ds7_s1aB0 GHC.Prim.realWorld# in select wild2_s1aQL (<{GHC.Tuple.(,)}> ds8_s1aQK ds9_s1aB6 -> let !wild3_s1aQJ = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_s1aB6 ds5_s1aB7 ds4_s1aB8 in select wild3_s1aQJ (<{GHC.Tuple.(,)}> ds10_s1aBd ds11_s1aBe -> <{GHC.Tuple.(,)}> ds10_s1aBd (GHC.Ptr.Ptr ds11_s1aBe))))))) Gui.Dialog.$winlineDialog w_s1aEa w1_s1aBk w2_s1aE6 = let $dMonad_s1aBn = Control.Monad.IO.Class.$p1MonadIO w1_s1aBk in Gui.Dialog.$winlineDialog$43 (Control.Monad.Trans.State.Lazy.$w$cliftIO w1_s1aBk Gui.Dialog.a2) (GHC.Base.return $dMonad_s1aBn) (<{GHC.Base.>>=}> $dMonad_s1aBn) (<{GHC.Base.>>=}> $dMonad_s1aBn) (<{GHC.Base.>>=}> $dMonad_s1aBn) (<{GHC.Base.>>=}> $dMonad_s1aBn) (<{GHC.Base.>>=}> $dMonad_s1aBn) w1_s1aBk w2_s1aE6 w_s1aEa Gui.Dialog.$winlineDialog$43 a5_s1aBl lvl17_s1aBp lvl18_s1aBr lvl19_s1aBt lvl20_s1aBv lvl21_s1aBx lvl22_s1aBz w1_s1aBk w2_s1aE6 w_s1aEa sigIn_s1aBD = Gui.Dialog.$winlineDialog$45 a5_s1aBl lvl22_s1aBz (Gui.Dialog.$winlineDialog$44 (Control.Monad.Trans.State.Lazy.$w$cliftIO w1_s1aBk (Gui.Dialog.$winlineDialog$46 sigIn_s1aBD)) lvl17_s1aBp lvl18_s1aBr lvl19_s1aBt lvl20_s1aBv lvl21_s1aBx sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa) Gui.Dialog.$winlineDialog$44 a6_s1aBZ lvl17_s1aBp lvl18_s1aBr lvl19_s1aBt lvl20_s1aBv lvl21_s1aBx sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa ds_s1aC3 = let div_s1aC8 = Gui.Dialog.$winlineDialog$3 ds_s1aC3 in lvl21_s1aBx (a6_s1aBZ (Gui.Dialog.$winlineDialog$4 ds_s1aC3)) (Gui.Dialog.$winlineDialog$48 (Gui.Dialog.$winlineDialog$47 div_s1aC8) div_s1aC8 lvl17_s1aBp lvl18_s1aBr lvl19_s1aBt lvl20_s1aBv sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa) Gui.Dialog.$winlineDialog$47 div_s1aC8 s_s1aCf = select div_s1aC8 (GHC.Ptr.Ptr ds2_s1aCe -> let !wild_s1aRh = ffi_wrapper3 _Javascript_JQuery_Basic_removeNone ds2_s1aCe s_s1aCf in select wild_s1aRh (<{GHC.Tuple.(,)}> ds4_s1aCk ds5_s1aRc -> <{GHC.Tuple.(,)}> ds4_s1aCk <{GHC.Tuple.()}>)) Gui.Dialog.$winlineDialog$48 a7_s1aCl div_s1aC8 lvl17_s1aBp lvl18_s1aBr lvl19_s1aBt lvl20_s1aBv sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa ds1_s1aCx = let initial_s1aCC = Gui.Dialog.$winlineDialog$5 ds1_s1aCx in lvl20_s1aBv (Control.Monad.Trans.State.Lazy.$w$cliftIO w1_s1aBk (Gui.Dialog.$winlineDialog$50 initial_s1aCC) (Gui.Dialog.$winlineDialog$6 ds1_s1aCx)) (Gui.Dialog.$winlineDialog$49 a7_s1aCl (Control.Monad.Trans.State.Lazy.$w$cliftIO w1_s1aBk (Gui.Dialog.$winlineDialog$51 initial_s1aCC)) div_s1aC8 initial_s1aCC lvl17_s1aBp lvl18_s1aBr lvl19_s1aBt lvl20_s1aBv sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa) Gui.Dialog.$winlineDialog$49 a7_s1aCl a8_s1aCG div_s1aC8 initial_s1aCC lvl17_s1aBp lvl18_s1aBr lvl19_s1aBt lvl20_s1aBv sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa ds2_s1aCR = select ds2_s1aCR (<{GHC.Tuple.(,)}> a9_s1aCV <{s'_s1aDN}> -> select a9_s1aCV (<{GHC.Tuple.(,)}> pipeOut_s1aD2 sigOut_s1aDA -> lvl20_s1aBv (a8_s1aCG <{s'_s1aDN}>) (Gui.Dialog.$winlineDialog$54 (Gui.Dialog.$winlineDialog$52 div_s1aC8 pipeOut_s1aD2) a7_s1aCl div_s1aC8 initial_s1aCC lvl18_s1aBr lvl19_s1aBt (Gui.Dialog.$winlineDialog$53 div_s1aC8 lvl17_s1aBp sigOut_s1aDA) sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa))) Gui.Dialog.$winlineDialog$52 div_s1aC8 pipeOut_s1aD2 a11_s1aDj s_s1aDk = select pipeOut_s1aD2 (FRP.Fursuit.Signal.P ww_s1aD7 ww1_s1aDa ww2_s1aDd -> select ww_s1aD7 (GHC.STRef.STRef ww4_s1aDg -> select ww1_s1aDa (GHC.STRef.STRef ww6_s1aDh -> select ww2_s1aDd (GHC.STRef.STRef ww8_s1aDi -> let !ds3_s1aRm = FRP.Fursuit.Pipe.$wa1 ww4_s1aDg ww6_s1aDh ww8_s1aDi a11_s1aDj s_s1aDk in select ds3_s1aRm (<{GHC.Tuple.(,)}> ipv_s1aDs ipv1_s1aR6 -> select div_s1aC8 (GHC.Ptr.Ptr ds5_s1aDr -> let !wild2_s1aRk = ffi_wrapper3 _Javascript_JQuery_Basic_removeNone ds5_s1aDr ipv_s1aDs in select wild2_s1aRk (<{GHC.Tuple.(,)}> ds6_s1aDx ds7_s1aR7 -> <{GHC.Tuple.(,)}> ds6_s1aDx <{GHC.Tuple.()}>))))))) Gui.Dialog.$winlineDialog$53 div_s1aC8 lvl17_s1aBp sigOut_s1aDA ds3_s1aDE = lvl17_s1aBp (<{GHC.Tuple.(,)}> (Gui.Generic.Types.Input sigOut_s1aDA (<{GHC.Types.:}> div_s1aC8 <{GHC.Types.[]}>)) (Gui.Dialog.$winlineDialog$9 ds3_s1aDE)) Gui.Dialog.$winlineDialog$54 a10_s1aDy a7_s1aCl div_s1aC8 initial_s1aCC lvl18_s1aBr lvl19_s1aBt lvl26_s1aDM sigIn_s1aBD w1_s1aBk w2_s1aE6 w_s1aEa ds3_s1aDQ = select ds3_s1aDQ (<{GHC.Tuple.(,)}> a11_s1aDU <{s'1_s1aE5}> -> select a11_s1aDU (<{GHC.Tuple.(,)}> preset_s1aE0 sigReset_s1aE3 -> lvl19_s1aBt (w2_s1aE6 w1_s1aBk (FRP.Fursuit.Signal.Union sigIn_s1aBD sigReset_s1aE3) <{s'1_s1aE5}>) (Gui.Dialog.$winlineDialog$56 a10_s1aDy (Gui.Dialog.$winlineDialog$55 initial_s1aCC preset_s1aE0) a7_s1aCl div_s1aC8 initial_s1aCC lvl18_s1aBr lvl26_s1aDM w1_s1aBk w_s1aEa))) Gui.Dialog.$winlineDialog$55 initial_s1aCC preset_s1aE0 eta_s1aE1 = FRP.Fursuit.Pipe.write1 preset_s1aE0 initial_s1aCC eta_s1aE1 Gui.Dialog.$winlineDialog$56 a10_s1aDy a12_s1aE2 a7_s1aCl div_s1aC8 initial_s1aCC lvl18_s1aBr lvl26_s1aDM w1_s1aBk w_s1aEa ds4_s1aEb = lvl18_s1aBr (Control.Monad.Trans.State.Lazy.$w$cliftIO w1_s1aBk (Gui.Dialog.$winlineDialog$57 a10_s1aDy a12_s1aE2 a7_s1aCl div_s1aC8 initial_s1aCC (Gui.Dialog.$winlineDialog$8 ds4_s1aEb) w_s1aEa) (Gui.Dialog.$winlineDialog$7 ds4_s1aEb)) lvl26_s1aDM Gui.Dialog.$winlineDialog$57 a10_s1aDy a12_s1aE2 a7_s1aCl div_s1aC8 initial_s1aCC sat_s1aEh_s1aEh w_s1aEa eta_B1_B1 = Gui.Dialog.a1 w_s1aEa div_s1aC8 initial_s1aCC sat_s1aEh_s1aEh a10_s1aDy a7_s1aCl a12_s1aE2 eta_B1_B1 Gui.Dialog.$winlineDialog$50 initial_s1aCC eta_B1_B1 = FRP.Fursuit.Pipe.pipe1 initial_s1aCC eta_B1_B1 Gui.Dialog.$winlineDialog$51 initial_s1aCC eta_B1_B1 = FRP.Fursuit.Pipe.pipe1 initial_s1aCC eta_B1_B1 Gui.Dialog.$winlineDialog$45 a5_s1aBl lvl22_s1aBz lvl23_s1aEv eta_s1aEx = lvl22_s1aBz (a5_s1aBl eta_s1aEx) lvl23_s1aEv Gui.Dialog.$winlineDialog$46 sigIn_s1aBD s_s1aBE = let !ds1_s1aED = FRP.Fursuit.Signal.compile1 sigIn_s1aBD s_s1aBE in select ds1_s1aED (<{GHC.Tuple.(,)}> ipv_s1aBI ipv1_s1aBJ -> let !ds2_s1aEC = ipv1_s1aBJ ipv_s1aBI in select ds2_s1aEC (<{GHC.Tuple.(,)}> ipv2_s1aBN ipv3_s1aBO -> <{GHC.Tuple.(,)}> ipv2_s1aBN (Gui.Dialog.$winlineDialog$10 ipv3_s1aBO))) Gui.Dialog.$winlineDialog$3 ds_s1aC3 = select ds_s1aC3 (<{GHC.Tuple.(,)}> a7_s1aC7 <{s'_s1aRe}> -> a7_s1aC7) Gui.Dialog.$winlineDialog$4 ds_s1aC3 = select ds_s1aC3 (<{GHC.Tuple.(,)}> a8_s1aRa <{s'_s1aCr}> -> <{s'_s1aCr}>) Gui.Dialog.$winlineDialog$5 ds1_s1aCx = select ds1_s1aCx (<{GHC.Tuple.(,)}> a8_s1aCB <{s'_s1aRb}> -> a8_s1aCB) Gui.Dialog.$winlineDialog$6 ds1_s1aCx = select ds1_s1aCx (<{GHC.Tuple.(,)}> a9_s1aR5 <{s'_s1aCL}> -> <{s'_s1aCL}>) Gui.Dialog.$winlineDialog$7 ds4_s1aEb = select ds4_s1aEb (<{GHC.Tuple.(,)}> a13_s1aQZ <{s'2_s1aEm}> -> <{s'2_s1aEm}>) Gui.Dialog.$winlineDialog$8 ds4_s1aEb = select ds4_s1aEb (<{GHC.Tuple.(,)}> a13_s1aEf <{s'2_s1aQV}> -> a13_s1aEf) Gui.Dialog.$winlineDialog$9 ds3_s1aDE = select ds3_s1aDE (<{GHC.Tuple.(,)}> a11_s1aR2 <{s'1_s1aDI}> -> <{s'1_s1aDI}>) Gui.Dialog.$winlineDialog$10 ipv3_s1aBO = select ipv3_s1aBO (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a7_s1aBR -> select a7_s1aBR (<{GHC.Tuple.(,)}> x9_s1aBV ds3_s1aEE -> x9_s1aBV)) Gui.Dialog.inlineDialog w_s1aEP w1_s1aEM w2_s1aEN w3_s1aEO = Gui.Dialog.$winlineDialog w1_s1aEM w2_s1aEN w3_s1aEO Gui.Dialog.simplePopup_x4 =: GHC.CString.unpackCString# "title" Gui.Dialog.simplePopup7 =: let !ds_s1aRG = Javascript.Base.Types.FakePtr Gui.Dialog.simplePopup_x4 in select ds_s1aRG (GHC.Ptr.Ptr ds1_s1aEU -> let !tpl_s1aRF = Gui.Dialog.simplePopup_x4, !wild_s1aRE = ffi_wrapper3 jsToString ds1_s1aEU GHC.Prim.realWorld# in select wild_s1aRE (<{GHC.Tuple.(,)}> ds2_s1aRD ds3_s1aEZ -> GHC.Ptr.Ptr ds3_s1aEZ)) Gui.Dialog.x8 =: GHC.CString.unpackCString# "dialog" Gui.Dialog.lvl13 =: Javascript.Base.Types.FakePtr Gui.Dialog.x8 Gui.Dialog.lvl14 =: Javascript.Base.Types.FakePtr Gui.Dialog.x Gui.Dialog.a3 s_s1aFc = select Gui.Dialog.lvl14 (GHC.Ptr.Ptr ds1_s1aF5 -> let !tpl_s1aRU = Gui.Dialog.x, !wild_s1aRT = ffi_wrapper3 jsToString ds1_s1aF5 GHC.Prim.realWorld# in select wild_s1aRT (<{GHC.Tuple.(,)}> ds2_s1aRS ds3_s1aFb -> let !wild1_s1aRR = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_s1aFb s_s1aFc in select wild1_s1aRR (<{GHC.Tuple.(,)}> ds4_s1aFt ds5_s1aFs -> select Gui.Dialog.lvl13 (GHC.Ptr.Ptr ds7_s1aFl -> let !tpl1_s1aRP = Gui.Dialog.x8, !wild2_s1aRO = ffi_wrapper3 jsToString ds7_s1aFl GHC.Prim.realWorld# in select wild2_s1aRO (<{GHC.Tuple.(,)}> ds8_s1aRN ds9_s1aFr -> let !wild3_s1aRM = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_s1aFr ds5_s1aFs ds4_s1aFt in select wild3_s1aRM (<{GHC.Tuple.(,)}> ds10_s1aFy ds11_s1aFz -> <{GHC.Tuple.(,)}> ds10_s1aFy (GHC.Ptr.Ptr ds11_s1aFz))))))) Gui.Dialog.a4 =: GHC.Types.I# 400 Gui.Dialog.lvl15 =: Gui.Dialog.DialogProp Javascript.Base.Instances.$fToJSValInt Javascript.Base.Instances.$fToJSValMInt Gui.Dialog.simplePopup4 Gui.Dialog.a4 Gui.Dialog.lvl16 =: <{GHC.Types.:}> Gui.Dialog.lvl15 <{GHC.Types.[]}> Gui.Dialog.dialog $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi = let $dMonad_s1aFK = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1aFF in Gui.Dialog.dialog$58 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF Gui.Dialog.a3) (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF Javascript.Base.Object.newObject) (GHC.Base.return $dMonad_s1aFK) (<{GHC.Base.>>=}> $dMonad_s1aFK) (<{GHC.Base.>>=}> $dMonad_s1aFK) (<{GHC.Base.>>=}> $dMonad_s1aFK) (<{GHC.Base.>>=}> $dMonad_s1aFK) (<{GHC.Base.>>=}> $dMonad_s1aFK) (<{GHC.Base.>>=}> $dMonad_s1aFK) (<{GHC.Base.>>=}> $dMonad_s1aFK) Gui.Dialog.dialog$58 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a5_s1aFG a6_s1aFI lvl17_s1aFM lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl21_s1aFU lvl22_s1aFW lvl23_s1aFY lvl24_s1aG0 t_s1aKd sigIn_s1aG5 = Gui.Dialog.dialog$60 a5_s1aFG lvl21_s1aFU (Gui.Dialog.dialog$59 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a6_s1aFI (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF (Gui.Dialog.dialog$61 sigIn_s1aG5)) lvl17_s1aFM lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl21_s1aFU lvl22_s1aFW lvl23_s1aFY lvl24_s1aG0 sigIn_s1aG5 t_s1aKd) Gui.Dialog.dialog$59 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a6_s1aFI a7_s1aGr lvl17_s1aFM lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl21_s1aFU lvl22_s1aFW lvl23_s1aFY lvl24_s1aG0 sigIn_s1aG5 t_s1aKd ds_s1aGv = lvl24_s1aG0 (a7_s1aGr (Gui.Dialog.dialog$12 ds_s1aGv)) (Gui.Dialog.dialog$62 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a6_s1aFI (Gui.Dialog.dialog$11 ds_s1aGv) lvl17_s1aFM lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl21_s1aFU lvl22_s1aFW lvl23_s1aFY sigIn_s1aG5 t_s1aKd) Gui.Dialog.dialog$62 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a6_s1aFI div_s1aGA lvl17_s1aFM lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl21_s1aFU lvl22_s1aFW lvl23_s1aFY sigIn_s1aG5 t_s1aKd ds1_s1aGK = let initial_s1aGP = Gui.Dialog.dialog$13 ds1_s1aGK in lvl23_s1aFY (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF (Gui.Dialog.dialog$64 initial_s1aGP) (Gui.Dialog.dialog$14 ds1_s1aGK)) (Gui.Dialog.dialog$63 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a6_s1aFI (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF (Gui.Dialog.dialog$65 initial_s1aGP)) div_s1aGA initial_s1aGP lvl17_s1aFM lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl21_s1aFU lvl22_s1aFW sigIn_s1aG5 t_s1aKd) Gui.Dialog.dialog$63 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a6_s1aFI a8_s1aGT div_s1aGA initial_s1aGP lvl17_s1aFM lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl21_s1aFU lvl22_s1aFW sigIn_s1aG5 t_s1aKd ds2_s1aHt = select ds2_s1aHt (<{GHC.Tuple.(,)}> a9_s1aHx <{s'_s1aJG}> -> select a9_s1aHx (<{GHC.Tuple.(,)}> pipeOut_s1aI7 sigOut_s1aHD -> lvl22_s1aFW (a6_s1aFI <{s'_s1aJG}>) (Gui.Dialog.dialog$68 $dMonadIO_s1aFF div_s1aGA lvl18_s1aFO lvl21_s1aFU (Gui.Dialog.dialog$67 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a8_s1aGT div_s1aGA initial_s1aGP lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS (Gui.Dialog.dialog$66 lvl17_s1aFM sigOut_s1aHD) pipeOut_s1aI7 sigIn_s1aG5) t_s1aKd))) Gui.Dialog.dialog$66 lvl17_s1aFM sigOut_s1aHD ds3_s1aHE = lvl17_s1aFM (<{GHC.Tuple.(,)}> sigOut_s1aHD (Gui.Dialog.dialog$22 ds3_s1aHE)) Gui.Dialog.dialog$67 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a8_s1aGT div_s1aGA initial_s1aGP lvl18_s1aFO lvl19_s1aFQ lvl20_s1aFS lvl26_s1aHM pipeOut_s1aI7 sigIn_s1aG5 ds3_s1aHQ = let d_s1aHV = Gui.Dialog.dialog$18 ds3_s1aHQ in lvl20_s1aFS (a8_s1aGT (Gui.Dialog.dialog$19 ds3_s1aHQ)) (Gui.Dialog.dialog$71 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi (Gui.Dialog.dialog$69 d_s1aHV pipeOut_s1aI7) (Gui.Dialog.dialog$70 d_s1aHV pipeOut_s1aI7) div_s1aGA initial_s1aGP lvl18_s1aFO lvl19_s1aFQ lvl26_s1aHM sigIn_s1aG5) Gui.Dialog.dialog$69 d_s1aHV pipeOut_s1aI7 a11_s1aIo eta_s1aI3 = select d_s1aHV (GHC.Ptr.Ptr ds5_s1aI2 -> let !wild2_s1aSM = ffi_wrapper3 _Javascript_JQuery_UI_Dialog_jq_destroy ds5_s1aI2 eta_s1aI3 in select wild2_s1aSM (<{GHC.Tuple.()}> ds6_s1aIq -> select pipeOut_s1aI7 (FRP.Fursuit.Signal.P ww_s1aIc ww1_s1aIf ww2_s1aIi -> select ww_s1aIc (GHC.STRef.STRef ww4_s1aIl -> select ww1_s1aIf (GHC.STRef.STRef ww6_s1aIm -> select ww2_s1aIi (GHC.STRef.STRef ww8_s1aIn -> FRP.Fursuit.Pipe.$wa1 ww4_s1aIl ww6_s1aIm ww8_s1aIn (Gui.Dialog.DialogOK a11_s1aIo) ds6_s1aIq)))))) Gui.Dialog.dialog$70 d_s1aHV pipeOut_s1aI7 s_s1aIy = select d_s1aHV (GHC.Ptr.Ptr ds5_s1aIx -> let !wild2_s1aSS = ffi_wrapper3 _Javascript_JQuery_UI_Dialog_jq_destroy ds5_s1aIx s_s1aIy in select wild2_s1aSS (<{GHC.Tuple.()}> ds6_s1aIS -> select pipeOut_s1aI7 (FRP.Fursuit.Signal.P ww_s1aIG ww1_s1aIJ ww2_s1aIM -> select ww_s1aIG (GHC.STRef.STRef ww4_s1aIP -> select ww1_s1aIJ (GHC.STRef.STRef ww6_s1aIQ -> select ww2_s1aIM (GHC.STRef.STRef ww8_s1aIR -> FRP.Fursuit.Pipe.$wa1 ww4_s1aIP ww6_s1aIQ ww8_s1aIR Gui.Dialog.DialogCancel ds6_s1aIS)))))) Gui.Dialog.dialog$71 $dEq_s1aJm $dMonadIO_s1aFF $dToInput_s1aJi a10_s1aIr a11_s1aIT div_s1aGA initial_s1aGP lvl18_s1aFO lvl19_s1aFQ lvl26_s1aHM sigIn_s1aG5 ds4_s1aJ2 = select ds4_s1aJ2 (<{GHC.Tuple.(,)}> a12_s1aJ6 <{s'1_s1aJh}> -> select a12_s1aJ6 (<{GHC.Tuple.(,)}> preset_s1aJc sigReset_s1aJf -> lvl19_s1aFQ ($dToInput_s1aJi $dMonadIO_s1aFF (FRP.Fursuit.Signal.Union sigIn_s1aG5 sigReset_s1aJf) <{s'1_s1aJh}>) (Gui.Dialog.dialog$73 $dEq_s1aJm $dMonadIO_s1aFF a10_s1aIr a11_s1aIT (Gui.Dialog.dialog$72 initial_s1aGP preset_s1aJc) div_s1aGA initial_s1aGP lvl18_s1aFO lvl26_s1aHM))) Gui.Dialog.dialog$72 initial_s1aGP preset_s1aJc eta_s1aJd = FRP.Fursuit.Pipe.write1 preset_s1aJc initial_s1aGP eta_s1aJd Gui.Dialog.dialog$73 $dEq_s1aJm $dMonadIO_s1aFF a10_s1aIr a11_s1aIT a13_s1aJe div_s1aGA initial_s1aGP lvl18_s1aFO lvl26_s1aHM ds5_s1aJn = lvl18_s1aFO (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF (Gui.Dialog.dialog$74 $dEq_s1aJm a10_s1aIr a11_s1aIT a13_s1aJe div_s1aGA initial_s1aGP (Gui.Dialog.dialog$21 ds5_s1aJn)) (Gui.Dialog.dialog$20 ds5_s1aJn)) lvl26_s1aHM Gui.Dialog.dialog$74 $dEq_s1aJm a10_s1aIr a11_s1aIT a13_s1aJe div_s1aGA initial_s1aGP sat_s1aJt_s1aJt eta_B1_B1 = Gui.Dialog.a1 $dEq_s1aJm div_s1aGA initial_s1aGP sat_s1aJt_s1aJt a10_s1aIr a11_s1aIT a13_s1aJe eta_B1_B1 Gui.Dialog.dialog$68 $dMonadIO_s1aFF div_s1aGA lvl18_s1aFO lvl21_s1aFU lvl27_s1aJF t_s1aKd ds3_s1aJK = let dps_s1aJP = Gui.Dialog.dialog$15 ds3_s1aJK in lvl18_s1aFO (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF (Gui.Dialog.dialog$76 dps_s1aJP t_s1aKd) (Gui.Dialog.dialog$16 ds3_s1aJK)) (Gui.Dialog.dialog$75 (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s1aFF (Gui.Dialog.dialog$77 div_s1aGA dps_s1aJP)) lvl21_s1aFU lvl27_s1aJF) Gui.Dialog.dialog$75 a10_s1aK9 lvl21_s1aFU lvl27_s1aJF ds4_s1aLM = lvl21_s1aFU (a10_s1aK9 (Gui.Dialog.dialog$17 ds4_s1aLM)) lvl27_s1aJF Gui.Dialog.dialog$76 dps_s1aJP t_s1aKd eta_s1aKm = select Gui.Dialog.simplePopup7 (GHC.Ptr.Ptr ds5_s1aKj -> select t_s1aKd (GHC.Ptr.Ptr ds7_s1aKk -> select dps_s1aJP (GHC.Ptr.Ptr ds9_s1aKl -> let !wild2_s1aTa = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds5_s1aKj ds7_s1aKk ds9_s1aKl eta_s1aKm in select wild2_s1aTa (<{GHC.Tuple.()}> ds10_s1aLB -> let $sa_s1aKZ = Gui.Dialog.dialog$78 a11_s1aKX ds9_s1aKl, a11_s1aKX = Gui.Dialog.dialog$79 a11_s1aKX ds9_s1aKl in $sa_s1aKZ ds10_s1aLB Gui.Dialog.lvl16 true Gui.Dialog.simplePopup6 Javascript.Base.Instances.$fToJSValMBool Javascript.Base.Instances.$fToJSValBool)))) Gui.Dialog.dialog$78 a11_s1aKX ds9_s1aKl sc_s1aKD sc1_s1aKV sc2_s1aKC sc3_s1aKI sc4_s1aKY sc5_s1aKy = let !w5_s1aT9 = Javascript.Base.Class.$p1ToJSVal sc5_s1aKy in select w5_s1aT9 (<{Javascript.Base.Class.D:ToJSValM}> ww_s1aSe ww1_s1aKE -> let !ds11_s1aT8 = ww1_s1aKE sc2_s1aKC sc_s1aKD in select ds11_s1aT8 (<{GHC.Tuple.(,)}> ipv_s1aKR ipv1_s1aKL -> select sc3_s1aKI (GHC.Ptr.Ptr ds13_s1aKP -> select ipv1_s1aKL (GHC.Ptr.Ptr ds15_s1aKQ -> let !wild3_s1aT5 = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds13_s1aKP ds15_s1aKQ ds9_s1aKl ipv_s1aKR in select wild3_s1aT5 (<{GHC.Tuple.()}> ds16_s1aKW -> a11_s1aKX sc1_s1aKV ds16_s1aKW))))) Gui.Dialog.dialog$79 a11_s1aKX ds9_s1aKl ds11_s1aL2 eta1_s1aL4 = select ds11_s1aL2 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta1_s1aL4 <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1aL7 ys_s1aLz -> select y_s1aL7 (Gui.Dialog.DialogProp $dToJSVal_s1aLd $dToJSValM_s1aSc t1_s1aLm p_s1aLh -> let !w5_s1aTj = Javascript.Base.Class.$p1ToJSVal $dToJSVal_s1aLd in select w5_s1aTj (<{Javascript.Base.Class.D:ToJSValM}> ww_s1aSd ww1_s1aLi -> let !ds12_s1aTi = ww1_s1aLi p_s1aLh eta1_s1aL4 in select ds12_s1aTi (<{GHC.Tuple.(,)}> ipv_s1aLv ipv1_s1aLp -> select t1_s1aLm (GHC.Ptr.Ptr ds14_s1aLt -> select ipv1_s1aLp (GHC.Ptr.Ptr ds16_s1aLu -> let !wild5_s1aTf = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds14_s1aLt ds16_s1aLu ds9_s1aKl ipv_s1aLv in select wild5_s1aTf (<{GHC.Tuple.()}> ds17_s1aLA -> a11_s1aKX ys_s1aLz ds17_s1aLA))))))) Gui.Dialog.dialog$77 div_s1aGA dps_s1aJP w3_s1aJZ = select dps_s1aJP (GHC.Ptr.Ptr ds5_s1aJX -> select div_s1aGA (GHC.Ptr.Ptr ds7_s1aJY -> let !wild2_s1aT0 = ffi_wrapper4 _Javascript_JQuery_UI_Dialog_jq_dialog ds5_s1aJX ds7_s1aJY w3_s1aJZ in select wild2_s1aT0 (<{GHC.Tuple.(,)}> ds8_s1aK4 ds9_s1aK5 -> <{GHC.Tuple.(,)}> ds8_s1aK4 (GHC.Ptr.Ptr ds9_s1aK5)))) Gui.Dialog.dialog$64 initial_s1aGP eta_s1aGV = let !ds2_s1aTo = FRP.Fursuit.Pipe.emptyPipe1 eta_s1aGV in select ds2_s1aTo (<{GHC.Tuple.(,)}> ipv_s1aHf ipv1_s1aGZ -> select ipv1_s1aGZ (<{GHC.Tuple.(,)}> ds3_s1aH3 ds4_s1aSo -> select ds3_s1aH3 (FRP.Fursuit.Signal.P ref_s1aH8 ds5_s1aSq ds6_s1aSp -> select ref_s1aH8 (GHC.STRef.STRef var#_s1aHb -> let !s2#_s1aHh = writeMutVar# var#_s1aHb (Data.Maybe.Just (Gui.Dialog.DialogOK initial_s1aGP)) ipv_s1aHf in <{GHC.Tuple.(,)}> s2#_s1aHh ipv1_s1aGZ)))) Gui.Dialog.dialog$65 initial_s1aGP eta_B1_B1 = FRP.Fursuit.Pipe.pipe1 initial_s1aGP eta_B1_B1 Gui.Dialog.dialog$60 a5_s1aFG lvl21_s1aFU lvl25_s1aLY eta_s1aM0 = lvl21_s1aFU (a5_s1aFG eta_s1aM0) lvl25_s1aLY Gui.Dialog.dialog$61 sigIn_s1aG5 s_s1aG6 = let !ds1_s1aM6 = FRP.Fursuit.Signal.compile1 sigIn_s1aG5 s_s1aG6 in select ds1_s1aM6 (<{GHC.Tuple.(,)}> ipv_s1aGa ipv1_s1aGb -> let !ds2_s1aM5 = ipv1_s1aGb ipv_s1aGa in select ds2_s1aM5 (<{GHC.Tuple.(,)}> ipv2_s1aGf ipv3_s1aGg -> <{GHC.Tuple.(,)}> ipv2_s1aGf (Gui.Dialog.dialog$23 ipv3_s1aGg))) Gui.Dialog.dialog$11 ds_s1aGv = select ds_s1aGv (<{GHC.Tuple.(,)}> a8_s1aGz <{s'_s1aSA}> -> a8_s1aGz) Gui.Dialog.dialog$12 ds_s1aGv = select ds_s1aGv (<{GHC.Tuple.(,)}> a8_s1aSx <{s'_s1aGE}> -> <{s'_s1aGE}>) Gui.Dialog.dialog$13 ds1_s1aGK = select ds1_s1aGK (<{GHC.Tuple.(,)}> a8_s1aGO <{s'_s1aSy}> -> a8_s1aGO) Gui.Dialog.dialog$14 ds1_s1aGK = select ds1_s1aGK (<{GHC.Tuple.(,)}> a9_s1aSt <{s'_s1aHn}> -> <{s'_s1aHn}>) Gui.Dialog.dialog$15 ds3_s1aJK = select ds3_s1aJK (<{GHC.Tuple.(,)}> a10_s1aJO <{s'1_s1aSl}> -> a10_s1aJO) Gui.Dialog.dialog$16 ds3_s1aJK = select ds3_s1aJK (<{GHC.Tuple.(,)}> a11_s1aSh <{s'1_s1aLG}> -> <{s'1_s1aLG}>) Gui.Dialog.dialog$17 ds4_s1aLM = select ds4_s1aLM (<{GHC.Tuple.(,)}> a11_s1aSi <{s'1_s1aLQ}> -> <{s'1_s1aLQ}>) Gui.Dialog.dialog$18 ds3_s1aHQ = select ds3_s1aHQ (<{GHC.Tuple.(,)}> a10_s1aHU <{s'1_s1aSm}> -> a10_s1aHU) Gui.Dialog.dialog$19 ds3_s1aHQ = select ds3_s1aHQ (<{GHC.Tuple.(,)}> a12_s1aS9 <{s'1_s1aIX}> -> <{s'1_s1aIX}>) Gui.Dialog.dialog$20 ds5_s1aJn = select ds5_s1aJn (<{GHC.Tuple.(,)}> a14_s1aS6 <{s'2_s1aJy}> -> <{s'2_s1aJy}>) Gui.Dialog.dialog$21 ds5_s1aJn = select ds5_s1aJn (<{GHC.Tuple.(,)}> a14_s1aJr <{s'2_s1aS2}> -> a14_s1aJr) Gui.Dialog.dialog$22 ds3_s1aHE = select ds3_s1aHE (<{GHC.Tuple.(,)}> a10_s1aSu <{s'1_s1aHI}> -> <{s'1_s1aHI}>) Gui.Dialog.dialog$23 ipv3_s1aGg = select ipv3_s1aGg (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a8_s1aGj -> select a8_s1aGj (<{GHC.Tuple.(,)}> x9_s1aGn ds3_s1aM7 -> x9_s1aGn)) Gui.Dialog.simplePopup1 t_s1aMs w_s1aMQ h_s1aN2 f_s1aMh div_s1aNs eta_s1aMl = let !ds_s1aTM = Javascript.Base.Types.FakePtr f_s1aMh in select ds_s1aTM (GHC.Ptr.Ptr ds1_s1aNg -> let !wild_s1aTL = ffi_wrapper2 _Javascript_Base_Object_newObject eta_s1aMl in select wild_s1aTL (<{GHC.Tuple.(,)}> ds2_s1aMz ds3_s1aMy -> select Gui.Dialog.simplePopup7 (GHC.Ptr.Ptr ds5_s1aMw -> select t_s1aMs (GHC.Ptr.Ptr ds7_s1aMx -> let !wild1_s1aTI = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds5_s1aMw ds7_s1aMx ds3_s1aMy ds2_s1aMz in select wild1_s1aTI (<{GHC.Tuple.()}> ds8_s1aMK -> select Gui.Dialog.simplePopup6 (GHC.Ptr.Ptr ds10_s1aMI -> select Gui.Dialog.simplePopup5 (GHC.Ptr.Ptr ds12_s1aMJ -> let !wild2_s1aTF = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds10_s1aMI ds12_s1aMJ ds3_s1aMy ds8_s1aMK in select wild2_s1aTF (<{GHC.Tuple.()}> ds13_s1aMW -> select Gui.Dialog.simplePopup4 (GHC.Ptr.Ptr ds15_s1aMU -> select w_s1aMQ (GHC.Ptr.Ptr ds17_s1aMV -> let !wild3_s1aTC = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds15_s1aMU ds17_s1aMV ds3_s1aMy ds13_s1aMW in select wild3_s1aTC (<{GHC.Tuple.()}> ds18_s1aN8 -> select Gui.Dialog.simplePopup3 (GHC.Ptr.Ptr ds20_s1aN6 -> select h_s1aN2 (GHC.Ptr.Ptr ds22_s1aN7 -> let !wild4_s1aTz = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds20_s1aN6 ds22_s1aN7 ds3_s1aMy ds18_s1aN8 in select wild4_s1aTz (<{GHC.Tuple.()}> ds23_s1aNo -> select Gui.Dialog.simplePopup2 (GHC.Ptr.Ptr ds25_s1aNm -> let !tpl_s1aTx = f_s1aMh, !wild5_s1aTw = ffi_wrapper3 makeCallback ds1_s1aNg GHC.Prim.realWorld# in select wild5_s1aTw (<{GHC.Tuple.(,)}> ds26_s1aTv ds27_s1aNn -> let !wild6_s1aTu = ffi_wrapper5 _Javascript_Base_Object_setProp_ ds25_s1aNm ds27_s1aNn ds3_s1aMy ds23_s1aNo in select wild6_s1aTu (<{GHC.Tuple.()}> ds28_s1aNx -> select div_s1aNs (GHC.Ptr.Ptr ds30_s1aNw -> let !wild7_s1aTs = ffi_wrapper4 _Javascript_JQuery_UI_Dialog_jq_dialog ds3_s1aMy ds30_s1aNw ds28_s1aNx in select wild7_s1aTs (<{GHC.Tuple.(,)}> ds31_s1aNC ds32_s1aND -> <{GHC.Tuple.(,)}> ds31_s1aNC (GHC.Ptr.Ptr ds32_s1aND)))))))))))))))))))) Gui.Dialog.simplePopup eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Dialog.simplePopup1 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1