[(Blaze.ByteString.Builder.Internal.Write.$WWrite [InlPrag=INLINE] :: GHC.Types.Int -> Blaze.ByteString.Builder.Internal.Write.Poke -> Blaze.ByteString.Builder.Internal.Write.Write [GblId[DataConWrapper], Arity=2, Caf=NoCafRefs, Str=DmdType SLm, Unf=OtherCon []] = \r [tpl_s2a1 tpl_s2a5] case tpl_s2a1 of _ { GHC.Types.I# tpl_s2a4 [Occ=Once] -> Blaze.ByteString.Builder.Internal.Write.Write [tpl_s2a4 tpl_s2a5]; };, [(Blaze.ByteString.Builder.Internal.Write.$WWrite, [])]), (Blaze.ByteString.Builder.Internal.Write.boundedWrite [InlPrag=INLINE (sat-args=0)] :: GHC.Types.Int -> Blaze.ByteString.Builder.Internal.Write.Poke -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType SLm, Unf=OtherCon []] = \r [eta_B2 eta_B1] Blaze.ByteString.Builder.Internal.Write.$WWrite eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.boundedWrite, [])]), (Blaze.ByteString.Builder.Internal.Write.getBound [InlPrag=INLINE (sat-args=1)] :: Blaze.ByteString.Builder.Internal.Write.Write -> GHC.Types.Int [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType U(LA)m, Unf=OtherCon []] = \r [eta] case eta of _ { Blaze.ByteString.Builder.Internal.Write.Write rb ds -> GHC.Types.I# [rb]; };, [(Blaze.ByteString.Builder.Internal.Write.getBound, [])]), (lvl :: [GHC.Types.Char] [GblId] = \u [] GHC.CString.unpackCString# ": write bound is not data-independent.";, [(lvl, [])]), (lvl1 :: forall a. GHC.Base.String -> a [GblId, Arity=1, Str=DmdType Tb, Unf=OtherCon []] = sat-only \r srt:(0,*bitmap*) [eta] let { sat_s2af :: [GHC.Types.Char] [LclId] = \u srt:(1,*bitmap*) [] GHC.Base.++ eta lvl; } in case GHC.CString.unpackAppendCString# "getBound' called from " sat_s2af of sat_s2kQ { __DEFAULT -> GHC.Err.error sat_s2kQ; };, [(lvl1, [GHC.Err.error, lvl])]), (Blaze.ByteString.Builder.Internal.Write.getBound' [InlPrag=INLINE (sat-args=2)] :: forall a. GHC.Base.String -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> GHC.Types.Int [GblId, Arity=2, Str=DmdType LC(U(LA))m, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta eta1] let { sat_s2kR :: a [LclId] = \u srt:(0,*bitmap*) [] lvl1 eta; } in case eta1 sat_s2kR of _ { Blaze.ByteString.Builder.Internal.Write.Write rb _ -> GHC.Types.I# [rb]; };, [(Blaze.ByteString.Builder.Internal.Write.getBound', [lvl1])]), (Blaze.ByteString.Builder.Internal.Write.getPoke [InlPrag=INLINE (sat-args=1)] :: Blaze.ByteString.Builder.Internal.Write.Write -> Blaze.ByteString.Builder.Internal.Write.Poke [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType U(AS), Unf=OtherCon []] = \r [eta] case eta of _ { Blaze.ByteString.Builder.Internal.Write.Write rb wio -> wio; };, [(Blaze.ByteString.Builder.Internal.Write.getPoke, [])]), (Blaze.ByteString.Builder.Internal.Write.writeIf [InlPrag=INLINE (sat-args=4)] :: forall a. (a -> GHC.Types.Bool) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> a -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType LC(U(LA))C(U(LA))Lm, Unf=OtherCon []] = \r [eta eta1 eta2 eta3] case eta1 eta3 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb ds -> case eta2 eta3 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb1 ds1 -> case <=# [rb rb1] of _ { GHC.Types.False -> let { sat_s2kW :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case eta eta3 of _ { GHC.Types.False -> ds1; GHC.Types.True -> ds; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb sat_s2kW]; GHC.Types.True -> let { sat_s2l1 :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case eta eta3 of _ { GHC.Types.False -> ds1; GHC.Types.True -> ds; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb1 sat_s2l1]; }; }; };, [(Blaze.ByteString.Builder.Internal.Write.writeIf, [])]), (Blaze.ByteString.Builder.Internal.Write.writeEq [InlPrag=INLINE (sat-args=1)] :: forall a. GHC.Classes.Eq a => a -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> a -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType LL, Unf=OtherCon []] = \r [$dEq eta] let { sat_s2l3 :: a -> GHC.Types.Bool [LclId] = \u [] GHC.Classes.== $dEq eta; } in Blaze.ByteString.Builder.Internal.Write.writeIf sat_s2l3;, [(Blaze.ByteString.Builder.Internal.Write.writeEq, [])]), (Blaze.ByteString.Builder.Internal.Write.writeOrdering [InlPrag=INLINE (sat-args=5)] :: forall a. (a -> GHC.Types.Ordering) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> a -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=5, Caf=NoCafRefs, Str=DmdType LC(U(LA))C(U(LA))C(U(LA))Lm, Unf=OtherCon []] = \r [eta eta1 eta2 eta3 eta4] case eta1 eta4 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb ds -> case eta2 eta4 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb1 ds1 -> case eta3 eta4 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb2 ds2 -> case <=# [rb1 rb2] of _ { GHC.Types.False -> case <=# [rb rb1] of _ { GHC.Types.False -> let { sat_s2l4 :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case eta eta4 of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb sat_s2l4]; GHC.Types.True -> let { sat_s2lb :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case eta eta4 of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb1 sat_s2lb]; }; GHC.Types.True -> case <=# [rb rb2] of _ { GHC.Types.False -> let { sat_s2ld :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case eta eta4 of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb sat_s2ld]; GHC.Types.True -> let { sat_s2lg :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case eta eta4 of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb2 sat_s2lg]; }; }; }; }; };, [(Blaze.ByteString.Builder.Internal.Write.writeOrdering, [])]), (Blaze.ByteString.Builder.Internal.Write.writeOrd [InlPrag=INLINE (sat-args=1)] :: forall a. GHC.Classes.Ord a => a -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> a -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=6, Caf=NoCafRefs, Str=DmdType LLC(U(LA))C(U(LA))C(U(LA))Lm, Unf=OtherCon []] = \r [$dOrd eta eta1 eta2 eta3 eta4] case eta1 eta4 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb ds -> case eta2 eta4 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb1 ds1 -> case eta3 eta4 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb2 ds2 -> case <=# [rb1 rb2] of _ { GHC.Types.False -> case <=# [rb rb1] of _ { GHC.Types.False -> let { sat_s2li :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case GHC.Classes.compare $dOrd eta4 eta of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb sat_s2li]; GHC.Types.True -> let { sat_s2lp :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case GHC.Classes.compare $dOrd eta4 eta of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb1 sat_s2lp]; }; GHC.Types.True -> case <=# [rb rb2] of _ { GHC.Types.False -> let { sat_s2lr :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case GHC.Classes.compare $dOrd eta4 eta of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb sat_s2lr]; GHC.Types.True -> let { sat_s2lu :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \u [] case GHC.Classes.compare $dOrd eta4 eta of _ { GHC.Types.LT -> ds; GHC.Types.EQ -> ds1; GHC.Types.GT -> ds2; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb2 sat_s2lu]; }; }; }; }; };, [(Blaze.ByteString.Builder.Internal.Write.writeOrd, [])]), (Blaze.ByteString.Builder.Internal.Write.runPoke1 :: Blaze.ByteString.Builder.Internal.Write.Poke -> Blaze.ByteString.Builder.Internal.Write.Poke [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType S, Unf=OtherCon []] = \r [ds] ds;, [(Blaze.ByteString.Builder.Internal.Write.runPoke1, [])]), (Blaze.ByteString.Builder.Internal.Write.runPoke :: Blaze.ByteString.Builder.Internal.Write.Poke -> GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Types.IO (GHC.Ptr.Ptr GHC.Word.Word8) [GblId[[RecSel]], Arity=1, Caf=NoCafRefs, Str=DmdType S, Unf=OtherCon []] = \r [eta_B1] Blaze.ByteString.Builder.Internal.Write.runPoke1 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.runPoke, [])]), (Blaze.ByteString.Builder.Internal.Write.runWrite [InlPrag=INLINE (sat-args=0)] :: Blaze.ByteString.Builder.Internal.Write.Write -> GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Types.IO (GHC.Ptr.Ptr GHC.Word.Word8) [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType U(AS), Unf=OtherCon []] = \r [eta_B1] Blaze.ByteString.Builder.Internal.Write.getPoke eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.runWrite, [])]), (Blaze.ByteString.Builder.Internal.Write.fromWriteSingleton [InlPrag=INLINE (sat-args=1)] :: forall a. (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> a -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType LL, Unf=OtherCon []] = \r [eta x] let { ds [Dmd=Just D(LT)] :: Blaze.ByteString.Builder.Internal.Write.Write [LclId, Str=DmdType] = \u [] eta x; } in let { maxSize [Dmd=Just D(L)] :: GHC.Types.Int [LclId, Str=DmdType] = \u [] case ds of _ { Blaze.ByteString.Builder.Internal.Write.Write rb wio -> GHC.Types.I# [rb]; }; } in let { a6 [InlPrag=INLINE[0]] :: 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 #) [LclId, Arity=3, Str=DmdType LU(LL)L, Unf=OtherCon []] = \r [w w1 w2] case w1 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> $wa4 w ww ww1 w2; }; $wa4 [Occ=LoopBreaker] :: 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 #) [LclId, Arity=4, Str=DmdType LLLL, Unf=OtherCon []] = sat-only \r [w ww ww1 w1] case maxSize of _ { GHC.Types.I# d -> case plusAddr# [ww d] of sat_s2lx { __DEFAULT -> case leAddr# [sat_s2lx ww1] of _ { GHC.Types.False -> let { sat_s2cR :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [eta_B2 eta_B1] a6 w eta_B2 eta_B1; } in let { sat_s2lw :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [d ww sat_s2cR]; } in (#,#) [w1 sat_s2lw]; GHC.Types.True -> case ds of _ { Blaze.ByteString.Builder.Internal.Write.Write rb wio -> let { sat_s2lz :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = NO_CCS GHC.Ptr.Ptr! [ww]; } in case wio sat_s2lz w1 of _ { (#,#) ipv ipv1 -> case ipv1 of _ { GHC.Ptr.Ptr tpl1 -> let { sat_s2ly :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [tpl1 ww1]; } in w sat_s2ly ipv; }; }; }; }; }; }; } in a6;, [(Blaze.ByteString.Builder.Internal.Write.fromWriteSingleton, [])]), ($wa1 :: forall a. (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> [a] -> 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=6, Caf=NoCafRefs, Str=DmdType LSLLLL, Unf=OtherCon []] = sat-only \r [w w1 w2 ww ww1 w3] let { $wa4 [Occ=LoopBreaker] :: forall r1. [a] -> (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r1)) -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=5, Str=DmdType SLLLL, Unf=OtherCon []] = sat-only \r [w4 w5 ww2 ww3 w6] let-no-escape { $wa5 [Occ=LoopBreaker] :: [a] -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=3, Str=DmdType SLL, Unf=OtherCon []] = sat-only \r [w7 ww4 w8] case w7 of wild { [] -> let { sat_s2lJ :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [ww4 ww3]; } in w5 sat_s2lJ w8; : x' xs' -> case w x' of _ { Blaze.ByteString.Builder.Internal.Write.Write rb wio -> case plusAddr# [ww4 rb] of sat_s2lL { __DEFAULT -> case leAddr# [sat_s2lL ww3] of _ { GHC.Types.False -> let { sat_s2dQ :: Blaze.ByteString.Builder.Internal.Types.BuildStep r1 [LclId] = \r [w9 w10] case w9 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww5 ww6 -> $wa4 wild w5 ww5 ww6 w10; }; } in let { sat_s2lK :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [rb ww4 sat_s2dQ]; } in (#,#) [w8 sat_s2lK]; GHC.Types.True -> let { sat_s2lM :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = NO_CCS GHC.Ptr.Ptr! [ww4]; } in case wio sat_s2lM w8 of _ { (#,#) ipv ipv1 -> case ipv1 of _ { GHC.Ptr.Ptr ww5 -> $wa5 xs' ww5 ipv; }; }; }; }; }; }; } in $wa5 w4 ww2 w6; } in $wa4 w1 w2 ww ww1 w3;, [($wa1, [])]), (a :: forall a. (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> [a] -> 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=5, Caf=NoCafRefs, Str=DmdType LSLU(LL)L, Unf=OtherCon []] = sat-only \r [w w1 w2 w3 w4] case w3 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> $wa1 w w1 w2 ww ww1 w4; };, [(a, [])]), (Blaze.ByteString.Builder.Internal.Write.fromWriteList [InlPrag=INLINE (sat-args=1)] :: forall a. (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> [a] -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=5, Caf=NoCafRefs, Str=DmdType LSLU(LL)L, Unf=OtherCon []] = \r [eta_B5 eta_B4 eta_B3 eta_B2 eta_B1] a eta_B5 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.fromWriteList, [])]), ($wa2 :: GHC.Prim.Int# -> Blaze.ByteString.Builder.Internal.Write.Poke -> 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=6, Caf=NoCafRefs, Str=DmdType LLLLLL, Unf=OtherCon []] = sat-only \r [ww ww1 w ww2 ww3 w1] let { a6 [InlPrag=INLINE[0]] :: forall r1. (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r1)) -> Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=3, Str=DmdType LU(LL)L, Unf=OtherCon []] = sat-only \r [w2 w3 w4] case w3 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww4 ww5 -> $wa4 w2 ww4 ww5 w4; }; $wa4 [Occ=LoopBreaker] :: forall r1. (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r1)) -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=4, Str=DmdType LLLL, Unf=OtherCon []] = sat-only \r [w2 ww4 ww5 w3] case plusAddr# [ww4 ww] of sat_s2lU { __DEFAULT -> case leAddr# [sat_s2lU ww5] of _ { GHC.Types.False -> let { sat_s2eY :: Blaze.ByteString.Builder.Internal.Types.BuildStep r1 [LclId] = \r [eta_B2 eta_B1] a6 w2 eta_B2 eta_B1; } in let { sat_s2lT :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [ww ww4 sat_s2eY]; } in (#,#) [w3 sat_s2lT]; GHC.Types.True -> let { sat_s2lW :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = NO_CCS GHC.Ptr.Ptr! [ww4]; } in case ww1 sat_s2lW w3 of _ { (#,#) ipv ipv1 -> case ipv1 of _ { GHC.Ptr.Ptr tpl1 -> let { sat_s2lV :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [tpl1 ww5]; } in w2 sat_s2lV ipv; }; }; }; }; } in $wa4 w ww2 ww3 w1;, [($wa2, [])]), (a1 :: Blaze.ByteString.Builder.Internal.Write.Write -> 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=4, Caf=NoCafRefs, Str=DmdType U(LL)LU(LL)L, Unf=OtherCon []] = sat-only \r [w w1 w2 w3] case w of _ { Blaze.ByteString.Builder.Internal.Write.Write ww ww1 -> case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww2 ww3 -> $wa2 ww ww1 w1 ww2 ww3 w3; }; };, [(a1, [])]), (Blaze.ByteString.Builder.Internal.Write.fromWrite [InlPrag=INLINE (sat-args=1)] :: Blaze.ByteString.Builder.Internal.Write.Write -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType U(LL)LU(LL)L, Unf=OtherCon []] = \r [eta_B4 eta_B3 eta_B2 eta_B1] a1 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.fromWrite, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmempty [InlPrag=INLINE (sat-args=0)] :: Blaze.ByteString.Builder.Internal.Write.Poke [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType LL, Unf=OtherCon []] = \r [eta_B2 eta_B1] GHC.Base.returnIO1 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmempty, [])]), (a2 :: Blaze.ByteString.Builder.Internal.Write.Poke -> Blaze.ByteString.Builder.Internal.Write.Poke -> GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Ptr.Ptr GHC.Word.Word8 #) [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType C(C(U(LL)))LLL, Unf=OtherCon []] = sat-only \r [eta eta1 x s] case eta x s of _ { (#,#) ipv ipv1 -> eta1 ipv1 ipv; };, [(a2, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmappend [InlPrag=INLINE (sat-args=2)] :: Blaze.ByteString.Builder.Internal.Write.Poke -> Blaze.ByteString.Builder.Internal.Write.Poke -> Blaze.ByteString.Builder.Internal.Write.Poke [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType C(C(U(LL)))LLL, Unf=OtherCon []] = \r [eta_B4 eta_B3 eta_B2 eta_B1] a2 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmappend, [])]), (a3 :: [Blaze.ByteString.Builder.Internal.Write.Poke] -> GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Ptr.Ptr GHC.Word.Word8 #) [GblId, Arity=3, Caf=NoCafRefs, Str=DmdType SLL, Unf=OtherCon []] = sat-only \r [ds eta eta1] case ds of _ { [] -> (#,#) [eta1 eta]; : y ys -> case y eta eta1 of _ { (#,#) ipv ipv1 -> a3 ys ipv1 ipv; }; };, [(a3, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmconcat [InlPrag=INLINE (sat-args=0)] :: [Blaze.ByteString.Builder.Internal.Write.Poke] -> Blaze.ByteString.Builder.Internal.Write.Poke [GblId, Arity=3, Caf=NoCafRefs, Str=DmdType SLL, Unf=OtherCon []] = \r [eta_B3 eta_B2 eta_B1] a3 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmconcat, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke [InlPrag=[ALWAYS] CONLIKE] :: Data.Monoid.Monoid Blaze.ByteString.Builder.Internal.Write.Poke [GblId[DFunId], Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS Data.Monoid.D:Monoid! [GHC.Base.returnIO1 Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmappend Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmconcat];, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmempty [InlPrag=INLINE (sat-args=0)] :: Blaze.ByteString.Builder.Internal.Write.Write [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS Blaze.ByteString.Builder.Internal.Write.Write! [0 GHC.Base.returnIO1];, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmempty, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmappend [InlPrag=INLINE (sat-args=2)] :: Blaze.ByteString.Builder.Internal.Write.Write -> Blaze.ByteString.Builder.Internal.Write.Write -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType U(LL)U(LL)m, Unf=OtherCon []] = \r [eta eta1] case eta of _ { Blaze.ByteString.Builder.Internal.Write.Write rb w1 -> case eta1 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb1 w2 -> let { sat_s2m6 :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \r [eta_B2 eta_B1] Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmappend w1 w2 eta_B2 eta_B1; } in case +# [rb rb1] of sat_s2m7 { __DEFAULT -> Blaze.ByteString.Builder.Internal.Write.Write [sat_s2m7 sat_s2m6]; }; }; };, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmappend, [])]), ($wgo :: [Blaze.ByteString.Builder.Internal.Write.Write] -> (# GHC.Prim.Int#, Blaze.ByteString.Builder.Internal.Write.Poke #) [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType S, Unf=OtherCon []] = sat-only \r [w] case w of _ { [] -> (#,#) [0 GHC.Base.returnIO1]; : y ys -> case y of _ { Blaze.ByteString.Builder.Internal.Write.Write rb w1 -> case $wgo ys of _ { (#,#) ww1 ww2 -> let { sat_s2mb :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \r [eta_B2 eta_B1] Blaze.ByteString.Builder.Internal.Write.$fMonoidPoke_$cmappend w1 ww2 eta_B2 eta_B1; } in case +# [rb ww1] of sat_s2mc { __DEFAULT -> (#,#) [sat_s2mc sat_s2mb]; }; }; }; };, [($wgo, [])]), (go :: [Blaze.ByteString.Builder.Internal.Write.Write] -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType Sm, Unf=OtherCon []] = sat-only \r [w] case $wgo w of _ { (#,#) ww1 ww2 -> Blaze.ByteString.Builder.Internal.Write.Write [ww1 ww2]; };, [(go, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmconcat [InlPrag=INLINE (sat-args=0)] :: [Blaze.ByteString.Builder.Internal.Write.Write] -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType Sm, Unf=OtherCon []] = \r [eta_B1] go eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmconcat, [])]), (Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite [InlPrag=[ALWAYS] CONLIKE] :: Data.Monoid.Monoid Blaze.ByteString.Builder.Internal.Write.Write [GblId[DFunId], Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS Data.Monoid.D:Monoid! [Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmempty Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmappend Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite_$cmconcat];, [(Blaze.ByteString.Builder.Internal.Write.$fMonoidWrite, [])]), (lvl2 :: [GHC.Types.Char] [GblId, Str=DmdType] = \u [] GHC.CString.unpackCString# "writeLiftIO";, [(lvl2, [])]), (lvl3 :: [GHC.Types.Char] [GblId] = \u srt:(0,*bitmap*) [] GHC.Base.++ lvl2 lvl;, [(lvl3, [lvl, lvl2])]), (lvl4 :: [GHC.Types.Char] [GblId] = \u srt:(0,*bitmap*) [] GHC.CString.unpackAppendCString# "getBound' called from " lvl3;, [(lvl4, [lvl3])]), (lvl5 :: forall a. a [GblId, Str=DmdType b] = \u srt:(0,*bitmap*) [] GHC.Err.error lvl4;, [(lvl5, [GHC.Err.error, lvl4])]), (Blaze.ByteString.Builder.Internal.Write.writeLiftIO [InlPrag=INLINE (sat-args=2)] :: forall a. (a -> Blaze.ByteString.Builder.Internal.Write.Write) -> GHC.Types.IO a -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=2, Str=DmdType C(U(LA))Lm, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta eta1] case eta lvl5 of _ { Blaze.ByteString.Builder.Internal.Write.Write rb _ -> let { sat_s2mg :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \r [pf s] case eta1 s of _ { (#,#) ipv ipv1 -> case eta ipv1 of _ { Blaze.ByteString.Builder.Internal.Write.Write _ wio -> wio pf ipv; }; }; } in Blaze.ByteString.Builder.Internal.Write.Write [rb sat_s2mg]; };, [(Blaze.ByteString.Builder.Internal.Write.writeLiftIO, [lvl5])]), (a4 :: GHC.Types.Int -> (GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Types.IO ()) -> GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Ptr.Ptr GHC.Word.Word8 #) [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType LC(C(U(LA)))LL, Unf=OtherCon []] = sat-only \r [eta eta1 op eta2] case eta1 op eta2 of _ { (#,#) ipv _ -> let { sat_s2mm :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = \u [] GHC.Ptr.plusPtr op eta; } in (#,#) [ipv sat_s2mm]; };, [(a4, [])]), (Blaze.ByteString.Builder.Internal.Write.pokeN [InlPrag=INLINE (sat-args=2)] :: GHC.Types.Int -> (GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Types.IO ()) -> Blaze.ByteString.Builder.Internal.Write.Poke [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType LC(C(U(LA)))LL, Unf=OtherCon []] = \r [eta_B4 eta_B3 eta_B2 eta_B1] a4 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.pokeN, [])]), (Blaze.ByteString.Builder.Internal.Write.exactWrite [InlPrag=INLINE (sat-args=2)] :: GHC.Types.Int -> (GHC.Ptr.Ptr GHC.Word.Word8 -> GHC.Types.IO ()) -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType U(L)Lm, Unf=OtherCon []] = \r [eta eta1] case eta of _ { GHC.Types.I# tpl1 -> let { sat_s2mr :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \r [op s] case eta1 op s of _ { (#,#) ipv _ -> let { sat_s2mq :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = \u [] case op of _ { GHC.Ptr.Ptr addr -> case plusAddr# [addr tpl1] of sat_s2mp { __DEFAULT -> GHC.Ptr.Ptr [sat_s2mp]; }; }; } in (#,#) [ipv sat_s2mq]; }; } in Blaze.ByteString.Builder.Internal.Write.Write [tpl1 sat_s2mr]; };, [(Blaze.ByteString.Builder.Internal.Write.exactWrite, [])]), (Blaze.ByteString.Builder.Internal.Write.writeStorable [InlPrag=INLINE (sat-args=1)] :: forall a. Foreign.Storable.Storable a => a -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType U(SAAAAAAL)Lm, Unf=OtherCon []] = \r [$dStorable eta] case Foreign.Storable.sizeOf $dStorable eta of _ { GHC.Types.I# tpl1 -> let { lvl6 :: GHC.Ptr.Ptr a -> a -> GHC.Types.IO () [LclId] = \u [] Foreign.Storable.poke $dStorable; } in let { sat_s2mA :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \r [op s] let { sat_s2my :: GHC.Ptr.Ptr a [LclId] = \u [] case op of _ { GHC.Ptr.Ptr addr -> GHC.Ptr.Ptr [addr]; }; } in case lvl6 sat_s2my eta s of _ { (#,#) ipv _ -> let { sat_s2mx :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = \u [] case op of _ { GHC.Ptr.Ptr addr -> case plusAddr# [addr tpl1] of sat_s2mw { __DEFAULT -> GHC.Ptr.Ptr [sat_s2mw]; }; }; } in (#,#) [ipv sat_s2mx]; }; } in Blaze.ByteString.Builder.Internal.Write.Write [tpl1 sat_s2mA]; };, [(Blaze.ByteString.Builder.Internal.Write.writeStorable, [])]), (Blaze.ByteString.Builder.Internal.Write.$wa :: forall a. Foreign.Storable.Storable a => [a] -> 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=6, Caf=NoCafRefs, Str=DmdType LSLLLL, Unf=OtherCon []] = \r [w w1 w2 ww ww1 w3] let { lvl6 :: a -> GHC.Types.Int [LclId] = \u [] Foreign.Storable.sizeOf w; } in let { lvl7 :: GHC.Ptr.Ptr a -> a -> GHC.Types.IO () [LclId] = \u [] Foreign.Storable.poke w; } in let { $wa4 [Occ=LoopBreaker] :: forall r1. [a] -> (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r1)) -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=5, Str=DmdType SLLLL, Unf=OtherCon []] = sat-only \r [w4 w5 ww2 ww3 w6] let-no-escape { $wa5 [Occ=LoopBreaker] :: [a] -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=3, Str=DmdType SLL, Unf=OtherCon []] = sat-only \r [w7 ww4 w8] case w7 of wild { [] -> let { sat_s2mF :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [ww4 ww3]; } in w5 sat_s2mF w8; : x' xs' -> case lvl6 x' of _ { GHC.Types.I# tpl1 -> case plusAddr# [ww4 tpl1] of sat_s2mH { __DEFAULT -> case leAddr# [sat_s2mH ww3] of _ { GHC.Types.False -> let { sat_s2iN :: Blaze.ByteString.Builder.Internal.Types.BuildStep r1 [LclId] = \r [w9 w10] case w9 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww5 ww6 -> $wa4 wild w5 ww5 ww6 w10; }; } in let { sat_s2mG :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [tpl1 ww4 sat_s2iN]; } in (#,#) [w8 sat_s2mG]; GHC.Types.True -> let { sat_s2mJ :: GHC.Ptr.Ptr a [LclId] = NO_CCS GHC.Ptr.Ptr! [ww4]; } in case lvl7 sat_s2mJ x' w8 of _ { (#,#) ipv _ -> case plusAddr# [ww4 tpl1] of sat_s2mI { __DEFAULT -> $wa5 xs' sat_s2mI ipv; }; }; }; }; }; }; } in $wa5 w4 ww2 w6; } in $wa4 w1 w2 ww ww1 w3;, [(Blaze.ByteString.Builder.Internal.Write.$wa, [])]), (Blaze.ByteString.Builder.Internal.Write.fromStorables1 [InlPrag=INLINE[0]] :: forall a. Foreign.Storable.Storable a => [a] -> 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=5, Caf=NoCafRefs, Str=DmdType LSLU(LL)L, Unf=OtherCon []] = \r [w w1 w2 w3 w4] case w3 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> Blaze.ByteString.Builder.Internal.Write.$wa w w1 w2 ww ww1 w4; };, [(Blaze.ByteString.Builder.Internal.Write.fromStorables1, [])]), (Blaze.ByteString.Builder.Internal.Write.fromStorables :: forall a. Foreign.Storable.Storable a => [a] -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=5, Caf=NoCafRefs, Str=DmdType LSLU(LL)L, Unf=OtherCon []] = \r [eta_B5 eta_B4 eta_B3 eta_B2 eta_B1] Blaze.ByteString.Builder.Internal.Write.fromStorables1 eta_B5 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.fromStorables, [])]), ($wa3 :: forall a. (a -> GHC.Types.Int) -> (GHC.Ptr.Ptr a -> a -> GHC.Types.IO ()) -> a -> 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=7, Caf=NoCafRefs, Str=DmdType SLLLLLL, Unf=OtherCon []] = sat-only \r [ww ww1 w w1 ww2 ww3 w2] let { lvl6 :: GHC.Types.Int [LclId] = \u [] ww w; } in let { a6 [InlPrag=INLINE[0]] :: forall r1. (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r1)) -> Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=3, Str=DmdType LU(LL)L, Unf=OtherCon []] = sat-only \r [w3 w4 w5] case w4 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww4 ww5 -> $wa4 w3 ww4 ww5 w5; }; $wa4 [Occ=LoopBreaker] :: forall r1. (Blaze.ByteString.Builder.Internal.Types.BufRange -> GHC.Types.IO (Blaze.ByteString.Builder.Internal.Types.BuildSignal r1)) -> GHC.Prim.Addr# -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 #) [LclId, Arity=4, Str=DmdType LLLL, Unf=OtherCon []] = sat-only \r [w3 ww4 ww5 w4] case lvl6 of _ { GHC.Types.I# tpl1 -> case plusAddr# [ww4 tpl1] of sat_s2mR { __DEFAULT -> case leAddr# [sat_s2mR ww5] of _ { GHC.Types.False -> let { sat_s2jY :: Blaze.ByteString.Builder.Internal.Types.BuildStep r1 [LclId] = \r [eta_B2 eta_B1] a6 w3 eta_B2 eta_B1; } in let { sat_s2mQ :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [tpl1 ww4 sat_s2jY]; } in (#,#) [w4 sat_s2mQ]; GHC.Types.True -> let { sat_s2mT :: GHC.Ptr.Ptr a [LclId] = NO_CCS GHC.Ptr.Ptr! [ww4]; } in case ww1 sat_s2mT w w4 of _ { (#,#) ipv _ -> case plusAddr# [ww4 tpl1] of sat_s2k6 { __DEFAULT -> let { sat_s2mS :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [sat_s2k6 ww5]; } in w3 sat_s2mS ipv; }; }; }; }; }; } in $wa4 w1 ww2 ww3 w2;, [($wa3, [])]), (a5 :: forall a. Foreign.Storable.Storable a => a -> 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=5, Caf=NoCafRefs, Str=DmdType U(SAAAAAAL)LLU(LL)L, Unf=OtherCon []] = sat-only \r [w w1 w2 w3 w4] case w of _ { Foreign.Storable.D:Storable ww ww1 ww2 ww3 ww4 ww5 ww6 ww7 -> case w3 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww8 ww9 -> $wa3 ww ww7 w1 w2 ww8 ww9 w4; }; };, [(a5, [])]), (Blaze.ByteString.Builder.Internal.Write.fromStorable [InlPrag=INLINE (sat-args=0)] :: forall a. Foreign.Storable.Storable a => a -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=5, Caf=NoCafRefs, Str=DmdType U(SAAAAAAL)LLU(LL)L, Unf=OtherCon []] = \r [eta_B5 eta_B4 eta_B3 eta_B2 eta_B1] a5 eta_B5 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.Write.fromStorable, [])]), (Blaze.ByteString.Builder.Internal.Write.Write :: GHC.Prim.Int# -> Blaze.ByteString.Builder.Internal.Write.Poke -> Blaze.ByteString.Builder.Internal.Write.Write [GblId[DataCon], Arity=2, Caf=NoCafRefs, Str=DmdType TTm, Unf=OtherCon []] = \r [eta_B2 eta_B1] Blaze.ByteString.Builder.Internal.Write.Write [eta_B2 eta_B1];, [(Blaze.ByteString.Builder.Internal.Write.Write, [])])]