[(a :: forall r. (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r)) -> Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [GblId, Arity=3, Caf=NoCafRefs, Str=DmdType LU(LL)L, Unf=OtherCon []] = \r [w w1 w2] case w1 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> $wa1 w ww ww1 w2; }; $wa1 :: forall r. (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r)) -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType LLLL, Unf=OtherCon []] = sat-only \r [w ww ww1 w1] case plusAddr# [ww 2] of sat_sfr8 { __DEFAULT -> case leAddr# [sat_sfr8 ww1] of _ { GHC.Types.False -> let { sat_sfh7 :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [eta_B2 eta_B1] a w eta_B2 eta_B1; } in let { sat_sfr7 :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [2 ww sat_sfh7]; } in (#,#) [w1 sat_sfr7]; GHC.Types.True -> case writeWord8OffAddr# [ww 0 __word 13 w1] of s2 { __DEFAULT -> case plusAddr# [ww 1] of a2 [Dmd=Just L] { __DEFAULT -> case writeWord8OffAddr# [a2 0 __word 10 s2] of s1 { __DEFAULT -> case plusAddr# [a2 1] of sat_sfhf { __DEFAULT -> let { sat_sftm :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [sat_sfhf ww1]; } in w sat_sftm s1; }; }; }; }; }; };, [(a, []), ($wa1, [])]), (a1 :: Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal () #) [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType U(LA)L, Unf=OtherCon []] = \r [ds eta] case ds of _ { Blaze.ByteString.Builder.Internal.Types.BufRange rb rb1 -> let { sat_sfr9 :: Blaze.ByteString.Builder.Internal.Types.BuildSignal () [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.Done! [rb GHC.Tuple.()]; } in (#,#) [eta sat_sfr9]; };, [(a1, [])]), ($wgo :: GHC.Prim.Int# -> GHC.Prim.Word# -> GHC.Prim.Int# [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType LL, Unf=OtherCon []] = sat-only \r [ww ww1] case eqWord# [ww1 __word 0] of _ { GHC.Types.False -> case uncheckedShiftRL# [ww1 4] of sat_sfrc { __DEFAULT -> case +# [ww 1] of sat_sfrd { __DEFAULT -> $wgo sat_sfrd sat_sfrc; }; }; GHC.Types.True -> ww; };, [($wgo, [])]), ($wgo1 :: GHC.Prim.Int# -> GHC.Prim.Word# -> GHC.Prim.Int# [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType LL, Unf=OtherCon []] = sat-only \r [ww ww1] case eqWord# [ww1 __word 0] of _ { GHC.Types.False -> case uncheckedShiftRL# [ww1 4] of sat_sfrf { __DEFAULT -> case +# [ww 1] of sat_sfrg { __DEFAULT -> $wgo1 sat_sfrg sat_sfrf; }; }; GHC.Types.True -> ww; };, [($wgo1, [])]), (lvl :: GHC.Types.Int [GblId, Caf=NoCafRefs, Unf=OtherCon []] = NO_CCS GHC.Types.I#! [1];, [(lvl, [])]), (Blaze.ByteString.Builder.HTTP.chunkedTransferEncoding1 :: Blaze.ByteString.Builder.Internal.Types.Builder -> forall r. Blaze.ByteString.Builder.Internal.Types.BuildStep r -> Blaze.ByteString.Builder.Internal.Types.BuildStep r [GblId, Arity=2, Str=DmdType LL, Unf=OtherCon []] = \r srt:(0,*bitmap*) [ds eta] let { lvl1 [Dmd=Just L] :: Blaze.ByteString.Builder.Internal.Types.BuildStep () [LclId, Str=DmdType] = \u [] ds a1; } in let { a2 [InlPrag=INLINE[0]] :: Blaze.ByteString.Builder.Internal.Types.BuildStep () -> Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId, Arity=3, Str=DmdType LU(LL)L, Unf=OtherCon []] = sat-only \r [w w1 w2] case w1 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> $wa2 w ww ww1 w2; }; $wa2 [Occ=LoopBreaker] :: Blaze.ByteString.Builder.Internal.Types.BuildStep () -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId, Arity=4, Str=DmdType LLLL, Unf=OtherCon []] = sat-only \r srt:(0,*bitmap*) [w ww ww1 w1] case minusAddr# [ww1 ww] of a3 [Dmd=Just L] { __DEFAULT -> case <# [a3 23] of _ { GHC.Types.False -> case int2Word# [a3] of sat_sfi9 { __DEFAULT -> case narrow32Word# [sat_sfi9] of sat_sfso { __DEFAULT -> case $wgo 0 sat_sfso of ww2 { __DEFAULT -> let-no-escape { $j :: GHC.Prim.Int# -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId, Arity=1, Str=DmdType L, Unf=OtherCon []] = sat-only \r srt:(0,*bitmap*) [x] case +# [x 2] of sat_sfii { __DEFAULT -> case plusAddr# [ww sat_sfii] of rb [Dmd=Just L] { __DEFAULT -> case plusAddr# [ww1 (-12)] of sat_sfik { __DEFAULT -> let { sat_sfrv :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [rb sat_sfik]; } in case w sat_sfrv w1 of _ { (#,#) ipv ipv1 -> case ipv1 of _ { Blaze.ByteString.Builder.Internal.Types.Done rb1 ds2 -> case eqAddr# [rb1 rb] of _ { GHC.Types.False -> let { $wa3 [Occ=LoopBreaker] :: GHC.Prim.Word# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [LclId, Arity=3, Str=DmdType LLL, Unf=OtherCon []] = sat-only \r [ww3 ww4 w2] case ltAddr# [ww4 ww] of _ { GHC.Types.False -> case narrow8Word# [ww3] of sat_sfiH { __DEFAULT -> case and# [sat_sfiH __word 15] of a4 [Dmd=Just L] { __DEFAULT -> case ltWord# [a4 __word 10] of _ { GHC.Types.False -> case plusWord# [__word 55 a4] of sat_sfiK { __DEFAULT -> case narrow8Word# [sat_sfiK] of sat_sfrl { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfrl w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfrj { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfrk { __DEFAULT -> $wa3 sat_sfrk sat_sfrj s2; }; }; }; }; }; GHC.Types.True -> case plusWord# [__word 48 a4] of sat_sfiT { __DEFAULT -> case narrow8Word# [sat_sfiT] of sat_sfrt { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfrt w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfrr { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfrs { __DEFAULT -> $wa3 sat_sfrs sat_sfrr s2; }; }; }; }; }; }; }; }; GHC.Types.True -> (#,#) [w2 GHC.Tuple.()]; }; } in case -# [x 1] of sat_sfj5 { __DEFAULT -> case plusAddr# [ww sat_sfj5] of sat_sfrp { __DEFAULT -> case minusAddr# [rb1 rb] of sat_sfj0 { __DEFAULT -> case int2Word# [sat_sfj0] of sat_sfj2 { __DEFAULT -> case narrow32Word# [sat_sfj2] of sat_sfrq { __DEFAULT -> case $wa3 sat_sfrq sat_sfrp ipv of _ { (#,#) ipv2 _ -> case plusAddr# [rb (-2)] of a4 [Dmd=Just L] { __DEFAULT -> case writeWord8OffAddr# [a4 0 __word 13 ipv2] of s2 { __DEFAULT -> case plusAddr# [a4 1] of sat_sfro { __DEFAULT -> case writeWord8OffAddr# [sat_sfro 0 __word 10 s2] of s1 { __DEFAULT -> case writeWord8OffAddr# [rb1 0 __word 13 s1] of s3 { __DEFAULT -> case plusAddr# [rb1 1] of sat_sfrn { __DEFAULT -> case writeWord8OffAddr# [sat_sfrn 0 __word 10 s3] of s4 { __DEFAULT -> case plusAddr# [rb1 2] of sat_sfjo { __DEFAULT -> let { sat_sfrm :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [sat_sfjo ww1]; } in eta sat_sfrm s4; }; }; }; }; }; }; }; }; }; }; }; }; }; }; GHC.Types.True -> let { sat_sfsm :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [ww ww1]; } in eta sat_sfsm ipv; }; Blaze.ByteString.Builder.Internal.Types.BufferFull rb1 rb2 nextInnerStep -> case eqAddr# [rb2 rb] of _ { GHC.Types.False -> let { $wa3 [Occ=LoopBreaker] :: GHC.Prim.Word# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [LclId, Arity=3, Str=DmdType LLL, Unf=OtherCon []] = sat-only \r [ww3 ww4 w2] case ltAddr# [ww4 ww] of _ { GHC.Types.False -> case narrow8Word# [ww3] of sat_sfjI { __DEFAULT -> case and# [sat_sfjI __word 15] of a4 [Dmd=Just L] { __DEFAULT -> case ltWord# [a4 __word 10] of _ { GHC.Types.False -> case plusWord# [__word 55 a4] of sat_sfjL { __DEFAULT -> case narrow8Word# [sat_sfjL] of sat_sfry { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfry w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfrw { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfrx { __DEFAULT -> $wa3 sat_sfrx sat_sfrw s2; }; }; }; }; }; GHC.Types.True -> case plusWord# [__word 48 a4] of sat_sfjU { __DEFAULT -> case narrow8Word# [sat_sfjU] of sat_sfrG { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfrG w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfrE { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfrF { __DEFAULT -> $wa3 sat_sfrF sat_sfrE s2; }; }; }; }; }; }; }; }; GHC.Types.True -> (#,#) [w2 GHC.Tuple.()]; }; } in case -# [x 1] of sat_sfk6 { __DEFAULT -> case plusAddr# [ww sat_sfk6] of sat_sfrC { __DEFAULT -> case minusAddr# [rb2 rb] of sat_sfk1 { __DEFAULT -> case int2Word# [sat_sfk1] of sat_sfk3 { __DEFAULT -> case narrow32Word# [sat_sfk3] of sat_sfrD { __DEFAULT -> case $wa3 sat_sfrD sat_sfrC ipv of _ { (#,#) ipv2 _ -> case plusAddr# [rb (-2)] of a4 [Dmd=Just L] { __DEFAULT -> case writeWord8OffAddr# [a4 0 __word 13 ipv2] of s2 { __DEFAULT -> case plusAddr# [a4 1] of sat_sfrB { __DEFAULT -> case writeWord8OffAddr# [sat_sfrB 0 __word 10 s2] of s1 { __DEFAULT -> case writeWord8OffAddr# [rb2 0 __word 13 s1] of s3 { __DEFAULT -> case plusAddr# [rb2 1] of sat_sfrA { __DEFAULT -> case writeWord8OffAddr# [sat_sfrA 0 __word 10 s3] of s4 { __DEFAULT -> let { sat_sfkC :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa2 nextInnerStep ww3 ww4 w3; }; } in case plusAddr# [rb2 2] of sat_sfkE { __DEFAULT -> case +# [rb1 22] of sat_sfkD { __DEFAULT -> let { sat_sfrz :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [sat_sfkD sat_sfkE sat_sfkC]; } in (#,#) [s4 sat_sfrz]; }; }; }; }; }; }; }; }; }; }; }; }; }; }; }; GHC.Types.True -> let { sat_sfkR :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa2 nextInnerStep ww3 ww4 w3; }; } in case +# [rb1 22] of sat_sfkS { __DEFAULT -> let { sat_sfsl :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [sat_sfkS ww sat_sfkR]; } in (#,#) [ipv sat_sfsl]; }; }; Blaze.ByteString.Builder.Internal.Types.InsertByteString rb1 bs nextInnerStep -> case bs of wild2 { Data.ByteString.Internal.PS rb2 rb3 rb4 rb5 -> case <=# [rb5 0] of _ { GHC.Types.False -> case int2Word# [rb5] of sat_sfl9 { __DEFAULT -> case narrow32Word# [sat_sfl9] of a4 [Dmd=Just L] { __DEFAULT -> let { len :: GHC.Types.Int [LclId, Str=DmdType] = \u [] case $wgo1 0 a4 of ww3 { __DEFAULT -> case <=# [1 ww3] of _ { GHC.Types.False -> lvl; GHC.Types.True -> GHC.Types.I# [ww3]; }; }; } in let { $wa3 :: GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Ptr.Ptr GHC.Word.Word8 #) [LclId, Arity=2, Str=DmdType LL, Unf=OtherCon []] = sat-only \r [ww3 w2] case len of _ { GHC.Types.I# x1 -> let { $wa4 [Occ=LoopBreaker] :: GHC.Prim.Word# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [LclId, Arity=3, Str=DmdType LLL, Unf=OtherCon []] = sat-only \r [ww4 ww5 w3] case ltAddr# [ww5 ww3] of _ { GHC.Types.False -> case narrow8Word# [ww4] of sat_sflu { __DEFAULT -> case and# [sat_sflu __word 15] of a5 [Dmd=Just L] { __DEFAULT -> case ltWord# [a5 __word 10] of _ { GHC.Types.False -> case plusWord# [__word 55 a5] of sat_sflx { __DEFAULT -> case narrow8Word# [sat_sflx] of sat_sfrK { __DEFAULT -> case writeWord8OffAddr# [ww5 0 sat_sfrK w3] of s2 { __DEFAULT -> case plusAddr# [ww5 (-1)] of sat_sfrI { __DEFAULT -> case uncheckedShiftRL# [ww4 4] of sat_sfrJ { __DEFAULT -> $wa4 sat_sfrJ sat_sfrI s2; }; }; }; }; }; GHC.Types.True -> case plusWord# [__word 48 a5] of sat_sflG { __DEFAULT -> case narrow8Word# [sat_sflG] of sat_sfrP { __DEFAULT -> case writeWord8OffAddr# [ww5 0 sat_sfrP w3] of s2 { __DEFAULT -> case plusAddr# [ww5 (-1)] of sat_sfrN { __DEFAULT -> case uncheckedShiftRL# [ww4 4] of sat_sfrO { __DEFAULT -> $wa4 sat_sfrO sat_sfrN s2; }; }; }; }; }; }; }; }; GHC.Types.True -> (#,#) [w3 GHC.Tuple.()]; }; } in case -# [x1 1] of sat_sflO { __DEFAULT -> case plusAddr# [ww3 sat_sflO] of sat_sfrM { __DEFAULT -> case $wa4 a4 sat_sfrM w2 of _ { (#,#) ipv2 _ -> case plusAddr# [ww3 x1] of sat_sflW { __DEFAULT -> let { sat_sfrL :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = NO_CCS GHC.Ptr.Ptr! [sat_sflW]; } in (#,#) [ipv2 sat_sfrL]; }; }; }; }; }; } in case eqAddr# [rb1 rb] of _ { GHC.Types.False -> let { $wa4 [Occ=LoopBreaker] :: GHC.Prim.Word# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [LclId, Arity=3, Str=DmdType LLL, Unf=OtherCon []] = sat-only \r [ww3 ww4 w2] case ltAddr# [ww4 ww] of _ { GHC.Types.False -> case narrow8Word# [ww3] of sat_sfmb { __DEFAULT -> case and# [sat_sfmb __word 15] of a5 [Dmd=Just L] { __DEFAULT -> case ltWord# [a5 __word 10] of _ { GHC.Types.False -> case plusWord# [__word 55 a5] of sat_sfme { __DEFAULT -> case narrow8Word# [sat_sfme] of sat_sfrT { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfrT w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfrR { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfrS { __DEFAULT -> $wa4 sat_sfrS sat_sfrR s2; }; }; }; }; }; GHC.Types.True -> case plusWord# [__word 48 a5] of sat_sfmn { __DEFAULT -> case narrow8Word# [sat_sfmn] of sat_sfs2 { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfs2 w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfs0 { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfs1 { __DEFAULT -> $wa4 sat_sfs1 sat_sfs0 s2; }; }; }; }; }; }; }; }; GHC.Types.True -> (#,#) [w2 GHC.Tuple.()]; }; } in case -# [x 1] of sat_sfmz { __DEFAULT -> case plusAddr# [ww sat_sfmz] of sat_sfrY { __DEFAULT -> case minusAddr# [rb1 rb] of sat_sfmu { __DEFAULT -> case int2Word# [sat_sfmu] of sat_sfmw { __DEFAULT -> case narrow32Word# [sat_sfmw] of sat_sfrZ { __DEFAULT -> case $wa4 sat_sfrZ sat_sfrY ipv of _ { (#,#) ipv2 _ -> case plusAddr# [rb (-2)] of a5 [Dmd=Just L] { __DEFAULT -> case writeWord8OffAddr# [a5 0 __word 13 ipv2] of s2 { __DEFAULT -> case plusAddr# [a5 1] of sat_sfrX { __DEFAULT -> case writeWord8OffAddr# [sat_sfrX 0 __word 10 s2] of s1 { __DEFAULT -> case writeWord8OffAddr# [rb1 0 __word 13 s1] of s3 { __DEFAULT -> case plusAddr# [rb1 1] of sat_sfrW { __DEFAULT -> case writeWord8OffAddr# [sat_sfrW 0 __word 10 s3] of s4 { __DEFAULT -> case plusAddr# [rb1 2] of sat_sfrV { __DEFAULT -> case $wa3 sat_sfrV s4 of _ { (#,#) ipv4 ipv5 -> case ipv5 of _ { GHC.Ptr.Ptr a6 -> case writeWord8OffAddr# [a6 0 __word 13 ipv4] of s5 { __DEFAULT -> case plusAddr# [a6 1] of a7 [Dmd=Just L] { __DEFAULT -> case writeWord8OffAddr# [a7 0 __word 10 s5] of s6 { __DEFAULT -> let { a8 :: Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId, Arity=2, Unf=OtherCon []] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa2 nextInnerStep ww3 ww4 w3; }; } in let { sat_sfnu :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa1 a8 ww3 ww4 w3; }; } in case plusAddr# [a7 1] of sat_sfnv { __DEFAULT -> let { sat_sfrU :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.InsertByteString! [sat_sfnv wild2 sat_sfnu]; } in (#,#) [s6 sat_sfrU]; }; }; }; }; }; }; }; }; }; }; }; }; }; }; }; }; }; }; }; }; GHC.Types.True -> case $wa3 ww ipv of _ { (#,#) ipv2 ipv3 -> case ipv3 of _ { GHC.Ptr.Ptr a5 -> case writeWord8OffAddr# [a5 0 __word 13 ipv2] of s2 { __DEFAULT -> case plusAddr# [a5 1] of a6 [Dmd=Just L] { __DEFAULT -> case writeWord8OffAddr# [a6 0 __word 10 s2] of s1 { __DEFAULT -> let { a7 :: Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId, Arity=2, Unf=OtherCon []] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa2 nextInnerStep ww3 ww4 w3; }; } in let { sat_sfo7 :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa1 a7 ww3 ww4 w3; }; } in case plusAddr# [a6 1] of sat_sfo8 { __DEFAULT -> let { sat_sfs4 :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.InsertByteString! [sat_sfo8 wild2 sat_sfo7]; } in (#,#) [s1 sat_sfs4]; }; }; }; }; }; }; }; }; }; GHC.Types.True -> case eqAddr# [rb1 rb] of _ { GHC.Types.False -> let { $wa3 [Occ=LoopBreaker] :: GHC.Prim.Word# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [LclId, Arity=3, Str=DmdType LLL, Unf=OtherCon []] = sat-only \r [ww3 ww4 w2] case ltAddr# [ww4 ww] of _ { GHC.Types.False -> case narrow8Word# [ww3] of sat_sfol { __DEFAULT -> case and# [sat_sfol __word 15] of a4 [Dmd=Just L] { __DEFAULT -> case ltWord# [a4 __word 10] of _ { GHC.Types.False -> case plusWord# [__word 55 a4] of sat_sfoo { __DEFAULT -> case narrow8Word# [sat_sfoo] of sat_sfs8 { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfs8 w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfs6 { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfs7 { __DEFAULT -> $wa3 sat_sfs7 sat_sfs6 s2; }; }; }; }; }; GHC.Types.True -> case plusWord# [__word 48 a4] of sat_sfox { __DEFAULT -> case narrow8Word# [sat_sfox] of sat_sfsg { __DEFAULT -> case writeWord8OffAddr# [ww4 0 sat_sfsg w2] of s2 { __DEFAULT -> case plusAddr# [ww4 (-1)] of sat_sfse { __DEFAULT -> case uncheckedShiftRL# [ww3 4] of sat_sfsf { __DEFAULT -> $wa3 sat_sfsf sat_sfse s2; }; }; }; }; }; }; }; }; GHC.Types.True -> (#,#) [w2 GHC.Tuple.()]; }; } in case -# [x 1] of sat_sfoJ { __DEFAULT -> case plusAddr# [ww sat_sfoJ] of sat_sfsc { __DEFAULT -> case minusAddr# [rb1 rb] of sat_sfoE { __DEFAULT -> case int2Word# [sat_sfoE] of sat_sfoG { __DEFAULT -> case narrow32Word# [sat_sfoG] of sat_sfsd { __DEFAULT -> case $wa3 sat_sfsd sat_sfsc ipv of _ { (#,#) ipv2 _ -> case plusAddr# [rb (-2)] of a4 [Dmd=Just L] { __DEFAULT -> case writeWord8OffAddr# [a4 0 __word 13 ipv2] of s2 { __DEFAULT -> case plusAddr# [a4 1] of sat_sfsb { __DEFAULT -> case writeWord8OffAddr# [sat_sfsb 0 __word 10 s2] of s1 { __DEFAULT -> case writeWord8OffAddr# [rb1 0 __word 13 s1] of s3 { __DEFAULT -> case plusAddr# [rb1 1] of sat_sfsa { __DEFAULT -> case writeWord8OffAddr# [sat_sfsa 0 __word 10 s3] of s4 { __DEFAULT -> let { sat_sfpc :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa2 nextInnerStep ww3 ww4 w3; }; } in case plusAddr# [rb1 2] of sat_sfpd { __DEFAULT -> let { sat_sfs9 :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.InsertByteString! [sat_sfpd Data.ByteString.empty sat_sfpc]; } in (#,#) [s4 sat_sfs9]; }; }; }; }; }; }; }; }; }; }; }; }; }; }; GHC.Types.True -> let { sat_sfpp :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> $wa2 nextInnerStep ww3 ww4 w3; }; } in let { sat_sfsi :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.InsertByteString! [ww Data.ByteString.empty sat_sfpp]; } in (#,#) [ipv sat_sfsi]; }; }; }; }; }; }; }; }; } in case <=# [1 ww2] of _ { GHC.Types.False -> $j 1; GHC.Types.True -> $j ww2; }; }; }; }; GHC.Types.True -> let { sat_sfpv :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [eta_B2 eta_B1] a2 w eta_B2 eta_B1; } in let { sat_sfsp :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [23 ww sat_sfpv]; } in (#,#) [w1 sat_sfsp]; }; }; } in let { sat_sfri :: Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId] = \r [eta1 eta2] case eta1 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> $wa2 lvl1 ww ww1 eta2; }; } in sat_sfri;, [(Blaze.ByteString.Builder.HTTP.chunkedTransferEncoding1, [Data.ByteString.empty])]), (Blaze.ByteString.Builder.HTTP.chunkedTransferEncoding :: Blaze.ByteString.Builder.Internal.Types.Builder -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=2, Str=DmdType LL, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B2 eta_B1] Blaze.ByteString.Builder.HTTP.chunkedTransferEncoding1 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.HTTP.chunkedTransferEncoding, [Data.ByteString.empty])]), (Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator_cs :: [GHC.Types.Char] [GblId, Str=DmdType] = \u [] GHC.CString.unpackCString# "0\r\ \\r";, [(Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator_cs, [])]), (Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator3 :: GHC.Types.Int [GblId] = \u srt:(0,*bitmap*) [] case GHC.List.$wlen Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator_cs 0 of ww { __DEFAULT -> GHC.Types.I# [ww]; };, [(Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator3, [Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator_cs])]), (Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator2 :: Data.ByteString.Internal.ByteString [GblId, Str=DmdType] = \u srt:(0,*bitmap*) [] Data.ByteString.Internal.unsafePackLenChars Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator3 Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator_cs;, [(Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator2, [Data.ByteString.Internal.unsafePackLenChars, Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator_cs, Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator3])]), (Blaze.ByteString.Builder.HTTP.$wa :: forall r. Blaze.ByteString.Builder.Internal.Types.BuildStep r -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [GblId, Arity=4, Str=DmdType SLLL, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w ww ww1 w1] case Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator2 of _ { Data.ByteString.Internal.PS rb rb1 rb2 rb3 -> case w of k1 { __DEFAULT -> case +# [rb2 rb3] of sat_sfqa { __DEFAULT -> case plusAddr# [rb sat_sfqa] of ipv [Dmd=Just L] { __DEFAULT -> let { $wa2 [Occ=LoopBreaker] :: GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId, Arity=4, Str=DmdType LLLL, Unf=OtherCon []] = sat-only \r [ww2 ww3 ww4 w2] case minusAddr# [ww4 ww3] of y [Dmd=Just L] { __DEFAULT -> case minusAddr# [ipv ww2] of x [Dmd=Just L] { __DEFAULT -> case <=# [x y] of _ { GHC.Types.False -> case int2Word# [y] of sat_sft5 { __DEFAULT -> case __pkg_ccall base memcpy [ww3 ww2 sat_sft5 w2] of _ { (#,#) ds4 _ -> case plusAddr# [ww2 y] of a2 { __DEFAULT -> let { sat_sfqz :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w3 w4] case w3 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww5 ww6 -> $wa2 a2 ww5 ww6 w4; }; } in let { sat_sft4 :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [1 ww4 sat_sfqz]; } in (#,#) [ds4 sat_sft4]; }; }; }; GHC.Types.True -> case int2Word# [x] of sat_sft8 { __DEFAULT -> case __pkg_ccall base memcpy [ww3 ww2 sat_sft8 w2] of _ { (#,#) ds4 _ -> case touch# [rb1 ds4] of s' { __DEFAULT -> case plusAddr# [ww3 x] of sat_sfqM { __DEFAULT -> let { sat_sft7 :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [sat_sfqM ww4]; } in k1 sat_sft7 s'; }; }; }; }; }; }; }; } in case plusAddr# [rb rb2] of sat_sft6 { __DEFAULT -> $wa2 sat_sft6 ww ww1 w1; }; }; }; }; };, [(Blaze.ByteString.Builder.HTTP.$wa, [Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator2])]), (Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator1 [InlPrag=INLINE[0]] :: forall r. Blaze.ByteString.Builder.Internal.Types.BuildStep r -> Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [GblId, Arity=3, Str=DmdType SU(LL)L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w w1 w2] case w1 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> Blaze.ByteString.Builder.HTTP.$wa w ww ww1 w2; };, [(Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator1, [Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator2])]), (Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator :: Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=3, Str=DmdType SU(LL)L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B3 eta_B2 eta_B1] Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator1 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator, [Blaze.ByteString.Builder.HTTP.chunkedTransferTerminator2])])]