:: Data.Attoparsec.Zepto.Result = Data.Attoparsec.Zepto.Fail a1 | Data.Attoparsec.Zepto.OK a1 Data.Attoparsec.Zepto.$WOK tpl_s3S8_s3S8 = let !tpl_s3Sa_s3Sa = tpl_s3S8_s3S8 in Data.Attoparsec.Zepto.OK tpl_s3Sa_s3Sa Data.Attoparsec.Zepto.runParser1 ds_s3Sc = ds_s3Sc Data.Attoparsec.Zepto.runParser eta_B1_B1 = Data.Attoparsec.Zepto.runParser1 eta_B1_B1 Data.Attoparsec.Zepto.parse p_s3Sg bs_s3Sf = let !ds_s3ZI = p_s3Sg bs_s3Sf in select ds_s3ZI (<{GHC.Tuple.(,)}> ipv_s3Sk ipv1_s3ZJ -> select ipv_s3Sk (Data.Attoparsec.Zepto.Fail err_s3Sn -> Data.Either.Left err_s3Sn) (Data.Attoparsec.Zepto.OK a13_s3Sp -> Data.Either.Right a13_s3Sp)) Data.Attoparsec.Zepto.input1 ds_s3Sr = ds_s3Sr Data.Attoparsec.Zepto.input eta_B1_B1 = Data.Attoparsec.Zepto.input1 eta_B1_B1 Data.Attoparsec.Zepto.a eta_s3SI eta1_s3Sw s_s3Sv = let !ds_s3ZU = eta1_s3Sw s_s3Sv in select ds_s3ZU (<{GHC.Tuple.(,)}> ipv_s3SA ipv1_s3SF -> select ipv_s3SA (Data.Attoparsec.Zepto.Fail err_s3SD -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3SD) ipv1_s3SF) (Data.Attoparsec.Zepto.OK a13_s3SH -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.a$6 a13_s3SH eta_s3SI) ipv1_s3SF)) Data.Attoparsec.Zepto.a$6 a13_s3SH eta_s3SI = let !tpl_s3SK = eta_s3SI a13_s3SH in Data.Attoparsec.Zepto.OK tpl_s3SK Data.Attoparsec.Zepto.$fFunctorParser_$cfmap eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fFunctorParser1 x_s3T1 eta_s3SQ eta1_s3SP = let !ds_s3ZY = eta_s3SQ eta1_s3SP in select ds_s3ZY (<{GHC.Tuple.(,)}> ipv_s3SU ipv1_s3SZ -> select ipv_s3SU (Data.Attoparsec.Zepto.Fail err_s3SX -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3SX) ipv1_s3SZ) (Data.Attoparsec.Zepto.OK a13_s400 -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.$fFunctorParser1$7 x_s3T1) ipv1_s3SZ)) Data.Attoparsec.Zepto.$fFunctorParser1$7 x_s3T1 = let !tpl_s3T3 = x_s3T1 in Data.Attoparsec.Zepto.OK tpl_s3T3 <{Data.Attoparsec.Zepto.$fFunctorParser_$c<$}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fFunctorParser1 eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fFunctorParser =: <{GHC.Base.D:Functor}> Data.Attoparsec.Zepto.$fFunctorParser_$cfmap Data.Attoparsec.Zepto.$fFunctorParser1 Data.Attoparsec.Zepto.$fAlternativeParser4 msg5_s3T7 eta_s3T9 = <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail msg5_s3T7) eta_s3T9 Data.Attoparsec.Zepto.$fAlternativeParser_$cfail eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fAlternativeParser4 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.a1 eta_s3Tc eta1_s3Tg = <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.a1$8 eta_s3Tc) eta1_s3Tg Data.Attoparsec.Zepto.a1$8 eta_s3Tc = let !tpl_s3Te = eta_s3Tc in Data.Attoparsec.Zepto.OK tpl_s3Te Data.Attoparsec.Zepto.$fMonadParser_$creturn eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a1 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.a2 eta_s3Tl eta1_s3Tx s_s3Tk = let !ds_s405 = eta_s3Tl s_s3Tk in select ds_s405 (<{GHC.Tuple.(,)}> ipv_s3Tp ipv1_s3Tu -> select ipv_s3Tp (Data.Attoparsec.Zepto.Fail err_s3Ts -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3Ts) ipv1_s3Tu) (Data.Attoparsec.Zepto.OK a13_s3Tw -> eta1_s3Tx a13_s3Tw ipv1_s3Tu)) <{Data.Attoparsec.Zepto.$fMonadParser_$c>>=}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a2 eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.a3 eta_s3TC eta1_s3TN eta2_s3TB = let !ds_s408 = eta_s3TC eta2_s3TB in select ds_s408 (<{GHC.Tuple.(,)}> ipv_s3TG ipv1_s3TL -> select ipv_s3TG (Data.Attoparsec.Zepto.Fail err_s3TJ -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3TJ) ipv1_s3TL) (Data.Attoparsec.Zepto.OK a13_s409 -> eta1_s3TN ipv1_s3TL)) <{Data.Attoparsec.Zepto.$fMonadParser_$c>>}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a3 eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fMonadParser =: <{GHC.Base.D:Monad}> <{Data.Attoparsec.Zepto.$fMonadParser_$c>>=}> <{Data.Attoparsec.Zepto.$fMonadParser_$c>>}> Data.Attoparsec.Zepto.$fMonadParser_$creturn Data.Attoparsec.Zepto.$fAlternativeParser4 Data.Attoparsec.Zepto.a4 eta_s3TS eta1_s3TZ s_s3TR = let !ds_s3U9 = eta_s3TS s_s3TR in select ds_s3U9 (<{GHC.Tuple.(,)}> ipv_s3TW ipv1_s40e -> select ipv_s3TW (Data.Attoparsec.Zepto.Fail ipv2_s40c -> let !ds1_s3U6 = eta1_s3TZ s_s3TR in select ds1_s3U6 (<{GHC.Tuple.(,)}> ipv3_s3U3 ipv4_s40f -> select ipv3_s3U3 (Data.Attoparsec.Zepto.Fail ipv5_s40a -> <{GHC.Tuple.(,)}> ipv3_s3U3 ipv4_s40f) (Data.Attoparsec.Zepto.OK ds2_s40g -> <{GHC.Tuple.(,)}> ipv3_s3U3 ipv4_s40f))) (Data.Attoparsec.Zepto.OK ds1_s40h -> <{GHC.Tuple.(,)}> ipv_s3TW ipv1_s40e)) Data.Attoparsec.Zepto.$fAlternativeParser_$cmplus eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a4 eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.msg =: GHC.CString.unpackCString# "insufficient input" Data.Attoparsec.Zepto.lvl =: Data.Attoparsec.Zepto.Fail Data.Attoparsec.Zepto.msg Data.Attoparsec.Zepto.a5 eta_s3Uc eta1_s3Uf = select eta_s3Uc (GHC.Types.I# ipv_s3Um -> select eta1_s3Uf (Data.ByteString.Internal.PS ipv1_s3Up ipv2_s3Uq ipv3_s3Ur ipv4_s3Ul -> let !wild_s40i = <{>=#}> ipv4_s3Ul ipv_s3Um in if wild_s40i (let !sat_s3Ux_s3Ux = <{-#}> ipv4_s3Ul ipv_s3Um, !sat_s3Uy_s3Uy = <{+#}> ipv3_s3Ur ipv_s3Um in <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.OK (Data.ByteString.Internal.PS ipv1_s3Up ipv2_s3Uq ipv3_s3Ur ipv_s3Um)) (Data.ByteString.Internal.PS ipv1_s3Up ipv2_s3Uq sat_s3Uy_s3Uy sat_s3Ux_s3Ux)) (<{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl eta1_s3Uf))) Data.Attoparsec.Zepto.take eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a5 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.msg1 =: GHC.CString.unpackCString# "string" Data.Attoparsec.Zepto.lvl1 =: Data.Attoparsec.Zepto.Fail Data.Attoparsec.Zepto.msg1 Data.Attoparsec.Zepto.lvl2 =: Data.Attoparsec.Zepto.OK <{GHC.Tuple.()}> Data.Attoparsec.Zepto.$wa ww_s3UO ww1_s3V5 ww2_s3UP ww3_s3UI ww4_s3US ww5_s3V2 ww6_s3UT ww7_s3UK = select ww3_s3UI (_ -> let !wild1_s40t = <{<#}> ww7_s3UK ww3_s3UI in if wild1_s40t (<{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl1 (Data.ByteString.Internal.PS ww4_s3US ww5_s3V2 ww6_s3UT ww7_s3UK)) (let !sat_s40n_s40n = int2Word# ww3_s3UI, !sat_s40o_s40o = plusAddr# ww4_s3US ww6_s3UT, !sat_s40p_s40p = plusAddr# ww_s3UO ww2_s3UP, !wild2_s40s = ffi_wrapper5 memcmp sat_s40p_s40p sat_s40o_s40o sat_s40n_s40n GHC.Prim.realWorld# in select wild2_s40s (<{GHC.Tuple.(,)}> ds4_s3V3 ds5_s3UZ -> let !vx_s3V8 = Data.Attoparsec.Zepto.$wa$9 ds5_s3UZ, !<{s'_s3V6}> = touch# ww5_s3V2 ds4_s3V3, !<{s'1_s40r}> = touch# ww1_s3V5 <{s'_s3V6}> in if vx_s3V8 (let !sat_s3Vd_s3Vd = <{-#}> ww7_s3UK ww3_s3UI, !sat_s3Ve_s3Ve = <{+#}> ww6_s3UT ww3_s3UI in <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl2 (Data.ByteString.Internal.PS ww4_s3US ww5_s3V2 sat_s3Ve_s3Ve sat_s3Vd_s3Vd)) (<{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl1 (Data.ByteString.Internal.PS ww4_s3US ww5_s3V2 ww6_s3UT ww7_s3UK))))) (0 -> <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl2 (Data.ByteString.Internal.PS ww4_s3US ww5_s3V2 ww6_s3UT ww7_s3UK)) Data.Attoparsec.Zepto.$wa$9 ds5_s3UZ = let !wild3_s40v = narrow32Int# ds5_s3UZ in select wild3_s40v (_ -> false) (0 -> true) Data.Attoparsec.Zepto.a6 w_s3Vk w1_s3Vq = select w_s3Vk (Data.ByteString.Internal.PS ww_s3Vw ww1_s3Vx ww2_s3Vy ww3_s3Vz -> select w1_s3Vq (Data.ByteString.Internal.PS ww4_s3VA ww5_s3VB ww6_s3VC ww7_s3VD -> Data.Attoparsec.Zepto.$wa ww_s3Vw ww1_s3Vx ww2_s3Vy ww3_s3Vz ww4_s3VA ww5_s3VB ww6_s3VC ww7_s3VD)) Data.Attoparsec.Zepto.string eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a6 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.a7 s_s3VF = select s_s3VF (Data.ByteString.Internal.PS ipv_s40B ipv1_s40C ipv2_s40D ipv3_s3VL -> let !vx_s3VN = <{<=#}> ipv3_s3VL 0 in <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.OK vx_s3VN) s_s3VF) Data.Attoparsec.Zepto.atEnd eta_B1_B1 = Data.Attoparsec.Zepto.a7 eta_B1_B1 Data.Attoparsec.Zepto.msg2 =: GHC.CString.unpackCString# "empty" Data.Attoparsec.Zepto.lvl3 =: Data.Attoparsec.Zepto.Fail Data.Attoparsec.Zepto.msg2 Data.Attoparsec.Zepto.a8 eta_s3VR = <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl3 eta_s3VR Data.Attoparsec.Zepto.$fAlternativeParser_$cempty eta_B1_B1 = Data.Attoparsec.Zepto.a8 eta_B1_B1 Data.Attoparsec.Zepto.msg3 =: GHC.CString.unpackCString# "mempty" Data.Attoparsec.Zepto.lvl4 =: Data.Attoparsec.Zepto.Fail Data.Attoparsec.Zepto.msg3 Data.Attoparsec.Zepto.a9 eta_s3VT = <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl4 eta_s3VT Data.Attoparsec.Zepto.$fMonoidParser_$cmempty eta_B1_B1 = Data.Attoparsec.Zepto.a9 eta_B1_B1 Data.Attoparsec.Zepto.$fApplicativeParser_$cpure eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fMonadParser_$creturn eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.a10 w_s3VY w1_s3W9 eta_s3VX = let !ds_s40G = w_s3VY eta_s3VX in select ds_s40G (<{GHC.Tuple.(,)}> ipv_s3W2 ipv1_s3W7 -> select ipv_s3W2 (Data.Attoparsec.Zepto.Fail err_s3W5 -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3W5) ipv1_s3W7) (Data.Attoparsec.Zepto.OK a13_s3Wl -> let !ds1_s40J = w1_s3W9 ipv1_s3W7 in select ds1_s40J (<{GHC.Tuple.(,)}> ipv2_s3Wd ipv3_s3Wi -> select ipv2_s3Wd (Data.Attoparsec.Zepto.Fail err_s3Wg -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3Wg) ipv3_s3Wi) (Data.Attoparsec.Zepto.OK a14_s3Wk -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.a10$10 a13_s3Wl a14_s3Wk) ipv3_s3Wi)))) Data.Attoparsec.Zepto.a10$10 a13_s3Wl a14_s3Wk = let !tpl_s3Wn = a13_s3Wl a14_s3Wk in Data.Attoparsec.Zepto.OK tpl_s3Wn <{Data.Attoparsec.Zepto.$fApplicativeParser_$c<*>}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a10 eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fApplicativeParser1 eta1_s3Wt eta2_s3WD eta_s3Ws = let !ds_s3WA = eta1_s3Wt eta_s3Ws in select ds_s3WA (<{GHC.Tuple.(,)}> ipv_s3Wx ipv1_s3WC -> select ipv_s3Wx (Data.Attoparsec.Zepto.Fail err_s40L -> <{GHC.Tuple.(,)}> ipv_s3Wx ipv1_s3WC) (Data.Attoparsec.Zepto.OK a13_s40P -> let !ds1_s40O = eta2_s3WD ipv1_s3WC in select ds1_s40O (<{GHC.Tuple.(,)}> ipv2_s3WH ipv3_s3WM -> select ipv2_s3WH (Data.Attoparsec.Zepto.Fail err_s3WK -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3WK) ipv3_s3WM) (Data.Attoparsec.Zepto.OK a14_s40Q -> <{GHC.Tuple.(,)}> ipv_s3Wx ipv3_s3WM)))) <{Data.Attoparsec.Zepto.$fApplicativeParser_$c<*}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fApplicativeParser1 eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fApplicativeParser2 eta1_s3WT eta2_s3X4 eta_s3WS = let !ds_s40T = eta1_s3WT eta_s3WS in select ds_s40T (<{GHC.Tuple.(,)}> ipv_s3WX ipv1_s3X2 -> select ipv_s3WX (Data.Attoparsec.Zepto.Fail err_s3X0 -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3X0) ipv1_s3X2) (Data.Attoparsec.Zepto.OK a13_s40W -> let !ds1_s3Xb = eta2_s3X4 ipv1_s3X2 in select ds1_s3Xb (<{GHC.Tuple.(,)}> ipv2_s3X8 ipv3_s40X -> select ipv2_s3X8 (Data.Attoparsec.Zepto.Fail err_s40U -> <{GHC.Tuple.(,)}> ipv2_s3X8 ipv3_s40X) (Data.Attoparsec.Zepto.OK a14_s40Y -> <{GHC.Tuple.(,)}> ipv2_s3X8 ipv3_s40X)))) <{Data.Attoparsec.Zepto.$fApplicativeParser_$c*>}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fApplicativeParser2 eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fApplicativeParser =: <{Control.Applicative.D:Applicative}> Data.Attoparsec.Zepto.$fFunctorParser Data.Attoparsec.Zepto.$fMonadParser_$creturn <{Data.Attoparsec.Zepto.$fApplicativeParser_$c<*>}> Data.Attoparsec.Zepto.$fApplicativeParser2 Data.Attoparsec.Zepto.$fApplicativeParser1 Data.Attoparsec.Zepto.msg4 =: GHC.CString.unpackCString# "mzero" Data.Attoparsec.Zepto.lvl5 =: Data.Attoparsec.Zepto.Fail Data.Attoparsec.Zepto.msg4 Data.Attoparsec.Zepto.a11 eta_s3Xe = <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl5 eta_s3Xe Data.Attoparsec.Zepto.$fMonadPlusParser_$cmzero eta_B1_B1 = Data.Attoparsec.Zepto.a11 eta_B1_B1 Data.Attoparsec.Zepto.$fMonadPlusParser =: <{Control.Monad.D:MonadPlus}> Data.Attoparsec.Zepto.$fMonadParser Data.Attoparsec.Zepto.$fMonadPlusParser_$cmzero Data.Attoparsec.Zepto.$fAlternativeParser_$cmplus <{Data.Attoparsec.Zepto.$fAlternativeParser_$c<|>}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fAlternativeParser_$cmplus eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fAlternativeParser2 =: Data.Attoparsec.Zepto.OK <{GHC.Types.[]}> Data.Attoparsec.Zepto.$fAlternativeParser1 v_s3Xk eta_s3XH = let a13_s3Xt = Data.Attoparsec.Zepto.$fAlternativeParser1$3 a13_s3Xt v_s3Xk in a13_s3Xt eta_s3XH Data.Attoparsec.Zepto.$fAlternativeParser1$3 a13_s3Xt v_s3Xk s_s3Xj = let !ds_s413 = v_s3Xk s_s3Xj in select ds_s413 (<{GHC.Tuple.(,)}> ipv_s3Xo ipv1_s3Xs -> select ipv_s3Xo (Data.Attoparsec.Zepto.Fail err_s411 -> <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.$fAlternativeParser2 s_s3Xj) (Data.Attoparsec.Zepto.OK a14_s3XB -> let !ds1_s415 = a13_s3Xt ipv1_s3Xs in select ds1_s415 (<{GHC.Tuple.(,)}> ipv2_s3Xx ipv3_s3XG -> select ipv2_s3Xx (Data.Attoparsec.Zepto.Fail err_s410 -> <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.$fAlternativeParser2 s_s3Xj) (Data.Attoparsec.Zepto.OK a15_s3XC -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.OK (<{GHC.Types.:}> a14_s3XB a15_s3XC)) ipv3_s3XG)))) Data.Attoparsec.Zepto.$fAlternativeParser_$cmany eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fAlternativeParser1 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fAlternativeParser3 v_s3XN eta_s3Yf = let a13_s3XY = Data.Attoparsec.Zepto.$fAlternativeParser3$4 a13_s3XY v_s3XN in a13_s3XY eta_s3Yf Data.Attoparsec.Zepto.$fAlternativeParser3$4 a13_s3XY v_s3XN s_s3XM = let !ds_s41b = v_s3XN s_s3XM in select ds_s41b (<{GHC.Tuple.(,)}> ipv_s3XR ipv1_s3XW -> select ipv_s3XR (Data.Attoparsec.Zepto.Fail err_s3XU -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.Fail err_s3XU) ipv1_s3XW) (Data.Attoparsec.Zepto.OK a14_s3Y5 -> let !ds1_s41d = a13_s3XY ipv1_s3XW in select ds1_s41d (<{GHC.Tuple.(,)}> ipv2_s3Y2 ipv3_s3Ye -> select ipv2_s3Y2 (Data.Attoparsec.Zepto.Fail ipv4_s419 -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.OK (<{GHC.Types.:}> a14_s3Y5 <{GHC.Types.[]}>)) ipv1_s3XW) (Data.Attoparsec.Zepto.OK ds2_s3Ya -> <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.OK (<{GHC.Types.:}> a14_s3Y5 ds2_s3Ya)) ipv3_s3Ye)))) Data.Attoparsec.Zepto.$fAlternativeParser_$csome eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fAlternativeParser3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fAlternativeParser =: <{Control.Applicative.D:Alternative}> Data.Attoparsec.Zepto.$fApplicativeParser Data.Attoparsec.Zepto.$fAlternativeParser_$cempty Data.Attoparsec.Zepto.$fAlternativeParser_$cmplus Data.Attoparsec.Zepto.$fAlternativeParser3 Data.Attoparsec.Zepto.$fAlternativeParser1 Data.Attoparsec.Zepto.$fMonoidParser_$cmappend eta_B3_B3 eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fAlternativeParser_$cmplus eta_B3_B3 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.lvl6 =: Data.Attoparsec.Zepto.Fail Data.Attoparsec.Zepto.msg3 Data.Attoparsec.Zepto.$fMonoidParser1 ds_s3Yi eta_s3Yk = select ds_s3Yi (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> Data.Attoparsec.Zepto.lvl6 eta_s3Yk) (<{GHC.Types.:}> y_s3Yn ys_s3Yu -> let !ds1_s3YE = y_s3Yn eta_s3Yk in select ds1_s3YE (<{GHC.Tuple.(,)}> ipv_s3Yr ipv1_s41j -> select ipv_s3Yr (Data.Attoparsec.Zepto.Fail ipv2_s41h -> let !ds2_s3YB = Data.Attoparsec.Zepto.$fMonoidParser1 ys_s3Yu eta_s3Yk in select ds2_s3YB (<{GHC.Tuple.(,)}> ipv3_s3Yy ipv4_s41k -> select ipv3_s3Yy (Data.Attoparsec.Zepto.Fail ipv5_s41f -> <{GHC.Tuple.(,)}> ipv3_s3Yy ipv4_s41k) (Data.Attoparsec.Zepto.OK ds3_s41l -> <{GHC.Tuple.(,)}> ipv3_s3Yy ipv4_s41k))) (Data.Attoparsec.Zepto.OK ds2_s41m -> <{GHC.Tuple.(,)}> ipv_s3Yr ipv1_s41j))) Data.Attoparsec.Zepto.$fMonoidParser_$cmconcat eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.$fMonoidParser1 eta_B2_B2 eta_B1_B1 Data.Attoparsec.Zepto.$fMonoidParser =: <{Data.Monoid.D:Monoid}> Data.Attoparsec.Zepto.$fMonoidParser_$cmempty Data.Attoparsec.Zepto.$fAlternativeParser_$cmplus Data.Attoparsec.Zepto.$fMonoidParser1 Data.Attoparsec.Zepto.a12 eta_s3Z3 eta1_s3YI = let n_s3Zl = Data.Attoparsec.Zepto.a12$1 eta1_s3YI eta_s3Z3 in <{GHC.Tuple.(,)}> (Data.Attoparsec.Zepto.a12$2 eta1_s3YI n_s3Zl) (Data.ByteString.Unsafe.unsafeDrop n_s3Zl eta1_s3YI) Data.Attoparsec.Zepto.a12$1 eta1_s3YI eta_s3Z3 = select eta1_s3YI (Data.ByteString.Internal.PS rb_s3Zb rb1_s3Zh rb2_s3Zc rb3_s3YP -> let $wa1_s3Z8 = Data.Attoparsec.Zepto.a12$5 $wa1_s3Z8 eta_s3Z3 rb3_s3YP, !sat_s41r_s41r = plusAddr# rb_s3Zb rb2_s3Zc, !ds1_s41B = $wa1_s3Z8 sat_s41r_s41r 0 GHC.Prim.realWorld# in select ds1_s41B (<{GHC.Tuple.(,)}> ipv_s3Zi ipv1_s3Zk -> let !<{s'_s41A}> = touch# rb1_s3Zh ipv_s3Zi in ipv1_s3Zk)) Data.Attoparsec.Zepto.a12$5 $wa1_s3Z8 eta_s3Z3 rb3_s3YP ww_s3YX ww1_s3YV w_s3YY = let !wild1_s41y = <{>=#}> ww1_s3YV rb3_s3YP in if wild1_s41y (<{GHC.Tuple.(,)}> w_s3YY (GHC.Types.I# rb3_s3YP)) (let !ds2_s41x = readWord8OffAddr# ww_s3YX 0 w_s3YY in select ds2_s41x (<{GHC.Tuple.(,)}> ipv2_s3Z6 ipv3_s3Z2 -> let !wild2_s41z = eta_s3Z3 (GHC.Word.W8# ipv3_s3Z2) in if wild2_s41z (let !sat_s41p_s41p = <{+#}> ww1_s3YV 1, !sat_s41q_s41q = plusAddr# ww_s3YX 1 in $wa1_s3Z8 sat_s41q_s41q sat_s41p_s41p ipv2_s3Z6) (<{GHC.Tuple.(,)}> ipv2_s3Z6 (GHC.Types.I# ww1_s3YV)))) Data.Attoparsec.Zepto.a12$2 eta1_s3YI n_s3Zl = select eta1_s3YI (Data.ByteString.Internal.PS rb_s3Zt rb1_s3Zu rb2_s3Zv rb3_s41v -> select n_s3Zl (GHC.Types.I# tpl1_s3Zw -> Data.Attoparsec.Zepto.OK (Data.ByteString.Internal.PS rb_s3Zt rb1_s3Zu rb2_s3Zv tpl1_s3Zw))) Data.Attoparsec.Zepto.takeWhile eta_B2_B2 eta_B1_B1 = Data.Attoparsec.Zepto.a12 eta_B2_B2 eta_B1_B1