Gui.FRP.Password.getPassword eta_B2_B2 eta_B1_B1 = Javascript.JQuery.Basic.getValUnsafe eta_B2_B2 eta_B1_B1 Gui.FRP.Password.setPassword eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.JQuery.Basic.jq_setVal eta_B3_B3 eta_B2_B2 eta_B1_B1 Gui.FRP.Password.password1 sigIn_sQo7 eta_sQo8 = let !ds1_sQpX = FRP.Fursuit.Signal.compile1 sigIn_sQo7 eta_sQo8 in select ds1_sQpX (<{GHC.Tuple.(,)}> ipv_sQoc ipv1_sQod -> let !ds2_sQpW = ipv1_sQod ipv_sQoc in select ds2_sQpW (<{GHC.Tuple.(,)}> ipv2_sQox ipv3_sQoi -> let !mval_sQor = Gui.FRP.Password.password1$1 ipv3_sQoi, !initially1_sQoO = Gui.FRP.Password.password1$2 mval_sQor in select initially1_sQoO (GHC.Ptr.Ptr ipv4_sQpV -> let !ds3_sQpU = FRP.Fursuit.Pipe.emptyPipe1 ipv2_sQox in select ds3_sQpU (<{GHC.Tuple.(,)}> ipv5_sQoQ ipv6_sQoB -> select ipv6_sQoB (<{GHC.Tuple.(,)}> ds_sQoF ds4_sQpH -> select ds_sQoF (FRP.Fursuit.Signal.P ref_sQoK ds5_sQoU ds6_sQoX -> select ref_sQoK (GHC.STRef.STRef var#_sQoN -> let !s2#_sQp5 = writeMutVar# var#_sQoN (Data.Maybe.Just initially1_sQoO) ipv5_sQoQ, !ds7_sQq4 = Gui.Base.Password.password1 mval_sQor (Gui.FRP.Password.password1$4 ds5_sQoU ds6_sQoX var#_sQoN) s2#_sQp5 in select ds7_sQq4 (<{GHC.Tuple.(,)}> ipv7_sQpC ipv8_sQpd -> let !ds8_sQq7 = FRP.Fursuit.Signal.removableSink1 (Gui.FRP.Password.password1$5 ipv8_sQpd) sigIn_sQo7 ipv7_sQpC in select ds8_sQq7 (<{GHC.Tuple.(,)}> ipv9_sQpG ipv10_sQpN -> <{GHC.Tuple.(,)}> ipv9_sQpG (<{GHC.Tuple.(,)}> ipv8_sQpd ds4_sQpH)))))))))) Gui.FRP.Password.password1$4 ds5_sQoU ds6_sQoX var#_sQoN w1_sQp2 w2_sQp3 = select ds5_sQoU (GHC.STRef.STRef ww6_sQp0 -> select ds6_sQoX (GHC.STRef.STRef ww8_sQp1 -> FRP.Fursuit.Pipe.$wa1 var#_sQoN ww6_sQp0 ww8_sQp1 w1_sQp2 w2_sQp3)) Gui.FRP.Password.password1$5 ipv8_sQpd t_sQpr s_sQpj = select Javascript.JQuery.Basic.hasFocus1 (GHC.Ptr.Ptr ds9_sQph -> select ipv8_sQpd (GHC.Ptr.Ptr ds11_sQpi -> let !wild3_sQq1 = ffi_wrapper4 _Javascript_JQuery_Basic_isText ds9_sQph ds11_sQpi s_sQpj in select wild3_sQq1 (<{GHC.Tuple.(,)}> ds12_sQpq ds13_sQpo -> select ds13_sQpo (_ -> <{GHC.Tuple.(,)}> ds12_sQpq <{GHC.Tuple.()}>) (0 -> select t_sQpr (GHC.Ptr.Ptr ds15_sQpv -> let !wild5_sQq5 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds15_sQpv ds11_sQpi ds12_sQpq in select wild5_sQq5 (<{GHC.Tuple.(,)}> ds16_sQpA ds17_sQpP -> <{GHC.Tuple.(,)}> ds16_sQpA <{GHC.Tuple.()}>)))))) Gui.FRP.Password.password1$1 ipv3_sQoi = select ipv3_sQoi (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a_sQol -> Data.Maybe.Just (Gui.FRP.Password.password1$3 a_sQol)) Gui.FRP.Password.password1$3 a_sQol = select a_sQol (<{GHC.Tuple.(,)}> x_sQop ds3_sQqb -> x_sQop) Gui.FRP.Password.password1$2 mval_sQor = select mval_sQor (Data.Maybe.Nothing -> Javascript.Base.String.$fDefaultPtr_$cmempty) (Data.Maybe.Just v_sQou -> v_sQou) Gui.FRP.Password.password eta_B2_B2 eta_B1_B1 = Gui.FRP.Password.password1 eta_B2_B2 eta_B1_B1