Gui.Generic.ConvNum.convNum tpl_sbsE_sbsE = tpl_sbsE_sbsE
Gui.Generic.ConvNum.$fConvNumDouble_x =: GHC.CString.unpackCString# "not an double"
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.$wfail =: Data.Either.Left Gui.Generic.ConvNum.$fConvNumDouble1
Gui.Generic.ConvNum.$fConvNumDouble2 =: GHC.Read.$fReadDouble13 GHC.Read.$fReadDouble_$sconvertFrac Text.ParserCombinators.ReadPrec.minPrec Text.ParserCombinators.ReadP.$fMonadP_$creturn
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.$fConvNumDouble =: Gui.Generic.ConvNum.$fConvNumDouble_$cconvNum
Gui.Generic.ConvNum.$fConvNumInteger_x =: GHC.CString.unpackCString# "not an integer"
Gui.Generic.ConvNum.$fConvNumInteger1 =: let !ds_sbvp = Javascript.Base.Types.FakePtr Gui.Generic.ConvNum.$fConvNumInteger_x in select ds_sbvp (GHC.Ptr.Ptr ds1_sbtb -> let !tpl_sbvo = Gui.Generic.ConvNum.$fConvNumInteger_x, !wild_sbvn = ffi_wrapper3 jsToString ds1_sbtb GHC.Prim.realWorld# in select wild_sbvn (<{GHC.Tuple.(,)}> ds2_sbvm ds3_sbtg -> GHC.Ptr.Ptr ds3_sbtg))
Gui.Generic.ConvNum.$wfail4 =: Data.Either.Left Gui.Generic.ConvNum.$fConvNumInteger1
Gui.Generic.ConvNum.$fConvNumInt4 =: GHC.Read.$fReadInteger5 GHC.Read.$fReadInteger_$sconvertInt Text.ParserCombinators.ReadPrec.minPrec Text.ParserCombinators.ReadP.$fMonadP_$creturn
Gui.Generic.ConvNum.$fConvNumInteger_$cconvNum a_sbti = let !wild_sbvt = Text.ParserCombinators.ReadP.run Gui.Generic.ConvNum.$fConvNumInt4 a_sbti in select wild_sbvt (<{GHC.Types.[]}>  -> Gui.Generic.ConvNum.$wfail4) (<{GHC.Types.:}> ds_sbtm ds1_sbts -> select ds_sbtm (<{GHC.Tuple.(,)}> <{a'_sbtu}> ds2_sbtq -> select ds2_sbtq (<{GHC.Types.[]}>  -> select ds1_sbts (<{GHC.Types.[]}>  -> Data.Either.Right <{a'_sbtu}>) (<{GHC.Types.:}> ipv_sbvx ipv1_sbvy -> Gui.Generic.ConvNum.$wfail4)) (<{GHC.Types.:}> ipv_sbvz ipv1_sbvA -> Gui.Generic.ConvNum.$wfail4)))
Gui.Generic.ConvNum.$fConvNumInteger =: Gui.Generic.ConvNum.$fConvNumInteger_$cconvNum
Gui.Generic.ConvNum.$fConvNumInt64_x =: GHC.CString.unpackCString# "not an int64"
Gui.Generic.ConvNum.$fConvNumInt3 =: let !ds_sbvH = Javascript.Base.Types.FakePtr Gui.Generic.ConvNum.$fConvNumInt64_x in select ds_sbvH (GHC.Ptr.Ptr ds1_sbtD -> let !tpl_sbvG = Gui.Generic.ConvNum.$fConvNumInt64_x, !wild_sbvF = ffi_wrapper3 jsToString ds1_sbtD GHC.Prim.realWorld# in select wild_sbvF (<{GHC.Tuple.(,)}> ds2_sbvE ds3_sbtI -> GHC.Ptr.Ptr ds3_sbtI))
Gui.Generic.ConvNum.$wfail3 =: Data.Either.Left Gui.Generic.ConvNum.$fConvNumInt3
Gui.Generic.ConvNum.$fConvNumInt64_$cconvNum a_sbtK = let !sat_sbvK_sbvK = Text.ParserCombinators.ReadP.run Gui.Generic.ConvNum.$fConvNumInt4 a_sbtK, !wild_sbvL = GHC.Int.$fReadInt64_go sat_sbvK_sbvK in select wild_sbvL (<{GHC.Types.[]}>  -> Gui.Generic.ConvNum.$wfail3) (<{GHC.Types.:}> ds_sbtP ds1_sbtV -> select ds_sbtP (<{GHC.Tuple.(,)}> <{a'_sbtX}> ds2_sbtT -> select ds2_sbtT (<{GHC.Types.[]}>  -> select ds1_sbtV (<{GHC.Types.[]}>  -> Data.Either.Right <{a'_sbtX}>) (<{GHC.Types.:}> ipv_sbvP ipv1_sbvQ -> Gui.Generic.ConvNum.$wfail3)) (<{GHC.Types.:}> ipv_sbvR ipv1_sbvS -> Gui.Generic.ConvNum.$wfail3)))
Gui.Generic.ConvNum.$fConvNumInt64 =: Gui.Generic.ConvNum.$fConvNumInt64_$cconvNum
Gui.Generic.ConvNum.$fConvNumInt_x =: GHC.CString.unpackCString# "not an int"
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.$wfail2 =: Data.Either.Left Gui.Generic.ConvNum.$fConvNumInt1
Gui.Generic.ConvNum.$fConvNumInt2 =: GHC.Read.$fReadInt5 GHC.Read.$fReadInt_$sconvertInt Text.ParserCombinators.ReadPrec.minPrec Text.ParserCombinators.ReadP.$fMonadP_$creturn
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.$fConvNumInt =: Gui.Generic.ConvNum.$fConvNumInt_$cconvNum
Gui.Generic.ConvNum.$fConvNumFloat_x =: GHC.CString.unpackCString# "not an float"
Gui.Generic.ConvNum.$fConvNumFloat1 =: let !ds_sbwh = Javascript.Base.Types.FakePtr Gui.Generic.ConvNum.$fConvNumFloat_x in select ds_sbwh (GHC.Ptr.Ptr ds1_sbuy -> let !tpl_sbwg = Gui.Generic.ConvNum.$fConvNumFloat_x, !wild_sbwf = ffi_wrapper3 jsToString ds1_sbuy GHC.Prim.realWorld# in select wild_sbwf (<{GHC.Tuple.(,)}> ds2_sbwe ds3_sbuD -> GHC.Ptr.Ptr ds3_sbuD))
Gui.Generic.ConvNum.$wfail1 =: Data.Either.Left Gui.Generic.ConvNum.$fConvNumFloat1
Gui.Generic.ConvNum.$fConvNumFloat2 =: GHC.Read.$fReadFloat11 GHC.Read.$fReadFloat_$sconvertFrac Text.ParserCombinators.ReadPrec.minPrec Text.ParserCombinators.ReadP.$fMonadP_$creturn
Gui.Generic.ConvNum.$fConvNumFloat_$cconvNum a_sbuF = let !wild_sbwl = Text.ParserCombinators.ReadP.run Gui.Generic.ConvNum.$fConvNumFloat2 a_sbuF in select wild_sbwl (<{GHC.Types.[]}>  -> Gui.Generic.ConvNum.$wfail1) (<{GHC.Types.:}> ds_sbuJ ds1_sbuP -> select ds_sbuJ (<{GHC.Tuple.(,)}> <{a'_sbuR}> ds2_sbuN -> select ds2_sbuN (<{GHC.Types.[]}>  -> select ds1_sbuP (<{GHC.Types.[]}>  -> Data.Either.Right <{a'_sbuR}>) (<{GHC.Types.:}> ipv_sbwp ipv1_sbwq -> Gui.Generic.ConvNum.$wfail1)) (<{GHC.Types.:}> ipv_sbwr ipv1_sbws -> Gui.Generic.ConvNum.$wfail1)))
Gui.Generic.ConvNum.$fConvNumFloat =: Gui.Generic.ConvNum.$fConvNumFloat_$cconvNum