[(Blaze.ByteString.Builder.Internal.defaultFirstBufferSize :: GHC.Types.Int [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS GHC.Types.I#! [64];, [(Blaze.ByteString.Builder.Internal.defaultFirstBufferSize, [])]), (Blaze.ByteString.Builder.Internal.defaultMinimalBufferSize :: GHC.Types.Int [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS GHC.Types.I#! [4080];, [(Blaze.ByteString.Builder.Internal.defaultMinimalBufferSize, [])]), (Blaze.ByteString.Builder.Internal.defaultMaximalCopySize :: GHC.Types.Int [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS GHC.Types.I#! [8160];, [(Blaze.ByteString.Builder.Internal.defaultMaximalCopySize, [])]), (Blaze.ByteString.Builder.Internal.defaultBufferSize :: GHC.Types.Int [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS GHC.Types.I#! [32752];, [(Blaze.ByteString.Builder.Internal.defaultBufferSize, [])]), (Blaze.ByteString.Builder.Internal.$wa [Occ=LoopBreaker] :: Data.ByteString.Lazy.Internal.ByteString -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [GblId, Arity=3, Caf=NoCafRefs, Str=DmdType SLL, Unf=OtherCon []] = \r [w ww w1] case w of _ { Data.ByteString.Lazy.Internal.Empty -> (#,#) [w1 GHC.Tuple.()]; Data.ByteString.Lazy.Internal.Chunk rb rb1 rb2 rb3 lbs' -> case int2Word# [rb3] of sat_s544 { __DEFAULT -> case plusAddr# [rb rb2] of sat_s545 { __DEFAULT -> case __pkg_ccall base memcpy [ww sat_s545 sat_s544 w1] of _ { (#,#) ds4 _ -> case touch# [rb1 ds4] of s' { __DEFAULT -> case plusAddr# [ww rb3] of sat_s543 { __DEFAULT -> Blaze.ByteString.Builder.Internal.$wa lbs' sat_s543 s'; }; }; }; }; }; };, [(Blaze.ByteString.Builder.Internal.$wa, [])]), (Blaze.ByteString.Builder.Internal.toByteStringIOWith2 :: 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_s54r :: Blaze.ByteString.Builder.Internal.Types.BuildSignal () [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.Done! [rb GHC.Tuple.()]; } in (#,#) [eta sat_s54r]; };, [(Blaze.ByteString.Builder.Internal.toByteStringIOWith2, [])]), (Blaze.ByteString.Builder.Internal.$wa1 :: GHC.Prim.Int# -> (Data.ByteString.Internal.ByteString -> GHC.Types.IO ()) -> Blaze.ByteString.Builder.Internal.Types.Builder -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [GblId, Arity=4, Str=DmdType LLLL, Unf=OtherCon []] = \r srt:(0,*bitmap*) [ww w w1 w2] let-no-escape { $wa2 [Occ=LoopBreaker] :: GHC.Prim.Int# -> Blaze.ByteString.Builder.Internal.Types.BuildStep () -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [LclId, Arity=3, Str=DmdType LLL, Unf=OtherCon []] = sat-only \r srt:(0,*bitmap*) [ww1 w3 w4] case <# [ww1 0] of _ { GHC.Types.False -> case newPinnedByteArray# [ww1 w4] of _ { (#,#) ipv ipv1 -> case byteArrayContents# [ipv1] of fo [Dmd=Just L] { __DEFAULT -> case plusAddr# [fo ww1] of sat_s4Wa { __DEFAULT -> let { sat_s54z :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [fo sat_s4Wa]; } in case w3 sat_s54z ipv of _ { (#,#) ipv2 ipv3 -> case ipv3 of _ { Blaze.ByteString.Builder.Internal.Types.Done rb ds2 -> case minusAddr# [rb fo] of sat_s4Wp { __DEFAULT -> let { sat_s4Wq :: GHC.ForeignPtr.ForeignPtrContents [LclId] = NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in let { sat_s54y :: Data.ByteString.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Internal.PS! [fo sat_s4Wq 0 sat_s4Wp]; } in w sat_s54y ipv2; }; Blaze.ByteString.Builder.Internal.Types.BufferFull rb rb1 nextStep -> case minusAddr# [rb1 fo] of sat_s4Wz { __DEFAULT -> let { sat_s4WA :: GHC.ForeignPtr.ForeignPtrContents [LclId] = NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in let { sat_s54A :: Data.ByteString.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Internal.PS! [fo sat_s4WA 0 sat_s4Wz]; } in case w sat_s54A ipv2 of _ { (#,#) ipv4 _ -> case <=# [ww rb] of _ { GHC.Types.False -> $wa2 ww nextStep ipv4; GHC.Types.True -> $wa2 rb nextStep ipv4; }; }; }; Blaze.ByteString.Builder.Internal.Types.InsertByteString rb bs nextStep -> case bs of wild2 { Data.ByteString.Internal.PS rb1 rb2 rb3 rb4 -> case minusAddr# [rb fo] of sat_s4WX { __DEFAULT -> let { sat_s4WY :: GHC.ForeignPtr.ForeignPtrContents [LclId] = NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in let { sat_s54C :: Data.ByteString.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Internal.PS! [fo sat_s4WY 0 sat_s4WX]; } in case w sat_s54C ipv2 of _ { (#,#) ipv4 _ -> case <=# [rb4 0] of _ { GHC.Types.False -> case w wild2 ipv4 of _ { (#,#) ipv6 _ -> $wa2 ww nextStep ipv6; }; GHC.Types.True -> $wa2 ww nextStep ipv4; }; }; }; }; }; }; }; }; }; GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2; }; } in let { sat_s54J :: Blaze.ByteString.Builder.Internal.Types.BuildStep () [LclId] = \u [] w1 Blaze.ByteString.Builder.Internal.toByteStringIOWith2; } in $wa2 ww sat_s54J w2;, [(Blaze.ByteString.Builder.Internal.$wa1, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (Blaze.ByteString.Builder.Internal.toByteStringIOWith1 [InlPrag=INLINE[0]] :: GHC.Types.Int -> (Data.ByteString.Internal.ByteString -> GHC.Types.IO ()) -> Blaze.ByteString.Builder.Internal.Types.Builder -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [GblId, Arity=4, Str=DmdType U(L)LLL, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w w1 w2 w3] case w of _ { GHC.Types.I# ww -> Blaze.ByteString.Builder.Internal.$wa1 ww w1 w2 w3; };, [(Blaze.ByteString.Builder.Internal.toByteStringIOWith1, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (Blaze.ByteString.Builder.Internal.toByteStringIOWith :: GHC.Types.Int -> (Data.ByteString.Internal.ByteString -> GHC.Types.IO ()) -> Blaze.ByteString.Builder.Internal.Types.Builder -> GHC.Types.IO () [GblId, Arity=4, Str=DmdType U(L)LLL, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B4 eta_B3 eta_B2 eta_B1] Blaze.ByteString.Builder.Internal.toByteStringIOWith1 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.toByteStringIOWith, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (a :: (Data.ByteString.Internal.ByteString -> GHC.Types.IO ()) -> Blaze.ByteString.Builder.Internal.Types.Builder -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [GblId, Arity=3, Str=DmdType, Unf=OtherCon []] = sat-only \r srt:(0,*bitmap*) [w w1 w2] Blaze.ByteString.Builder.Internal.$wa1 32752 w w1 w2;, [(a, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (Blaze.ByteString.Builder.Internal.toByteStringIO [InlPrag=INLINE (sat-args=0)] :: (Data.ByteString.Internal.ByteString -> GHC.Types.IO ()) -> Blaze.ByteString.Builder.Internal.Types.Builder -> GHC.Types.IO () [GblId, Arity=3, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B3 eta_B2 eta_B1] a eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.toByteStringIO, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (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 [eta_B2 eta_B1] Blaze.ByteString.Builder.Internal.toByteStringIOWith2 eta_B2 eta_B1;, [(a1, [])]), (Blaze.ByteString.Builder.Internal.$wtoLazyByteStringWith :: GHC.Types.Int -> GHC.Prim.Int# -> GHC.Prim.Int# -> Blaze.ByteString.Builder.Internal.Types.Builder -> Data.ByteString.Lazy.Internal.ByteString -> Data.ByteString.Lazy.Internal.ByteString [GblId, Arity=5, Str=DmdType LLLC(S)L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w ww ww1 w1 w2] case w1 a1 of nt { __DEFAULT -> let { $wa2 [Occ=LoopBreaker] :: forall a. GHC.Prim.Int# -> Blaze.ByteString.Builder.Internal.Types.BuildStep a -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Data.ByteString.Lazy.Internal.ByteString #) [LclId, Arity=3, Str=DmdType LSL, Unf=OtherCon []] = sat-only \r srt:(0,*bitmap*) [ww2 w3 w4] case w3 of nt1 { __DEFAULT -> case <# [ww2 0] of _ { GHC.Types.False -> case newPinnedByteArray# [ww2 w4] of _ { (#,#) ipv ipv1 -> let { ds1 :: GHC.ForeignPtr.ForeignPtrContents [LclId, Str=DmdType, Unf=OtherCon []] = NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in case byteArrayContents# [ipv1] of fo [Dmd=Just L] { __DEFAULT -> case plusAddr# [fo ww2] of ipv2 [Dmd=Just L] { __DEFAULT -> let { $wa3 [Occ=LoopBreaker] :: GHC.Prim.Addr# -> Blaze.ByteString.Builder.Internal.Types.BuildStep a -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Data.ByteString.Lazy.Internal.ByteString #) [LclId, Arity=3, Str=DmdType LSL, Unf=OtherCon []] = sat-only \r [ww3 w5 w6] let { sat_s55M :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [ww3 ipv2]; } in case w5 sat_s55M w6 of _ { (#,#) ipv3 ipv4 -> case ipv4 of _ { Blaze.ByteString.Builder.Internal.Types.Done rb ds3 -> case eqAddr# [rb ww3] of _ { GHC.Types.False -> case minusAddr# [rb ww3] of sat_s4Yj { __DEFAULT -> case minusAddr# [ww3 fo] of sat_s4Yi { __DEFAULT -> let { sat_s55L :: Data.ByteString.Lazy.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Lazy.Internal.Chunk! [fo ds1 sat_s4Yi sat_s4Yj w2]; } in (#,#) [ipv3 sat_s55L]; }; }; GHC.Types.True -> (#,#) [ipv3 w2]; }; Blaze.ByteString.Builder.Internal.Types.BufferFull rb rb1 nextStep -> case eqAddr# [rb1 ww3] of _ { GHC.Types.False -> let { sat_s4YJ :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case w of _ { GHC.Types.I# y1 -> case <=# [rb y1] of _ { GHC.Types.False -> case $wa2 rb nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; GHC.Types.True -> case $wa2 y1 nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; }; }; } in case minusAddr# [rb1 ww3] of sat_s4YL { __DEFAULT -> case minusAddr# [ww3 fo] of sat_s4YK { __DEFAULT -> let { sat_s55N :: Data.ByteString.Lazy.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Lazy.Internal.Chunk! [fo ds1 sat_s4YK sat_s4YL sat_s4YJ]; } in (#,#) [ipv3 sat_s55N]; }; }; GHC.Types.True -> case w of _ { GHC.Types.I# y1 -> case <=# [rb y1] of _ { GHC.Types.False -> $wa2 rb nextStep ipv3; GHC.Types.True -> $wa2 y1 nextStep ipv3; }; }; }; Blaze.ByteString.Builder.Internal.Types.InsertByteString rb bs nextStep -> case bs of _ { Data.ByteString.Internal.PS rb1 rb2 rb3 rb4 -> case eqAddr# [rb ww3] of _ { GHC.Types.False -> case minusAddr# [ipv2 rb] of sat_s55Q { __DEFAULT -> case <# [ww sat_s55Q] of _ { GHC.Types.False -> let { sat_s4Zt :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case <=# [rb4 0] of _ { GHC.Types.False -> let { sat_s55O :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case w of _ { GHC.Types.I# ww4 -> case $wa2 ww4 nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; }; } in Data.ByteString.Lazy.Internal.Chunk [rb1 rb2 rb3 rb4 sat_s55O]; GHC.Types.True -> case w of _ { GHC.Types.I# ww4 -> case $wa2 ww4 nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; }; }; } in case minusAddr# [rb ww3] of sat_s4Zv { __DEFAULT -> case minusAddr# [ww3 fo] of sat_s4Zu { __DEFAULT -> let { sat_s55P :: Data.ByteString.Lazy.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Lazy.Internal.Chunk! [fo ds1 sat_s4Zu sat_s4Zv sat_s4Zt]; } in (#,#) [ipv3 sat_s55P]; }; }; GHC.Types.True -> let { sat_s4ZL :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case <=# [rb4 0] of _ { GHC.Types.False -> let { sat_s55V :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case $wa3 rb nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; } in Data.ByteString.Lazy.Internal.Chunk [rb1 rb2 rb3 rb4 sat_s55V]; GHC.Types.True -> case $wa3 rb nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; }; } in case minusAddr# [rb ww3] of sat_s4ZN { __DEFAULT -> case minusAddr# [ww3 fo] of sat_s4ZM { __DEFAULT -> let { sat_s55W :: Data.ByteString.Lazy.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Lazy.Internal.Chunk! [fo ds1 sat_s4ZM sat_s4ZN sat_s4ZL]; } in (#,#) [ipv3 sat_s55W]; }; }; }; }; GHC.Types.True -> let { sat_s55S :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case <=# [rb4 0] of _ { GHC.Types.False -> let { sat_s55R :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case $wa3 rb nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; } in Data.ByteString.Lazy.Internal.Chunk [rb1 rb2 rb3 rb4 sat_s55R]; GHC.Types.True -> case $wa3 rb nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv6 -> ipv6; }; }; } in (#,#) [ipv3 sat_s55S]; }; }; }; }; } in case $wa3 fo nt1 ipv of _ { (#,#) ipv3 ipv4 -> case touch# [ds1 ipv3] of s' { __DEFAULT -> (#,#) [s' ipv4]; }; }; }; }; }; GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2; }; }; } in case <=# [ww ww1] of _ { GHC.Types.False -> case <# [ww1 0] of _ { GHC.Types.False -> case newPinnedByteArray# [ww1 GHC.Prim.realWorld#] of _ { (#,#) ipv ipv1 -> case byteArrayContents# [ipv1] of a3 [Dmd=Just L] { __DEFAULT -> case plusAddr# [a3 ww1] of sat_s50l { __DEFAULT -> let { sat_s56j :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [a3 sat_s50l]; } in case nt sat_s56j ipv of _ { (#,#) ipv2 ipv3 -> let { a4 :: GHC.ForeignPtr.ForeignPtrContents [LclId, Str=DmdType, Unf=OtherCon []] = NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in case ipv3 of _ { Blaze.ByteString.Builder.Internal.Types.Done rb ds2 -> case eqAddr# [rb a3] of _ { GHC.Types.False -> case touch# [a4 ipv2] of _ { __DEFAULT -> case minusAddr# [rb a3] of sat_s564 { __DEFAULT -> Data.ByteString.Lazy.Internal.Chunk [a3 a4 0 sat_s564 w2]; }; }; GHC.Types.True -> case touch# [a4 ipv2] of _ { __DEFAULT -> w2; }; }; Blaze.ByteString.Builder.Internal.Types.BufferFull rb rb1 nextStep -> case minusAddr# [rb1 a3] of ipv4 [Dmd=Just L] { __DEFAULT -> case +# [ipv4 rb] of x1 [Dmd=Just L] { __DEFAULT -> let-no-escape { $j :: GHC.Prim.Int# -> Data.ByteString.Lazy.Internal.ByteString [LclId, Arity=1, Unf=OtherCon []] = sat-only \r [ww2] let { sat_s568 :: Blaze.ByteString.Builder.Internal.Types.BuildStep () [LclId] = \r [ds2] case ds2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange rb2 rb3 -> let { sat_s567 :: GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal () #) [LclId] = \r [s] case int2Word# [ipv4] of sat_s566 { __DEFAULT -> case __pkg_ccall base memcpy [rb2 a3 sat_s566 s] of _ { (#,#) ds4 _ -> case plusAddr# [rb2 ipv4] of sat_s515 { __DEFAULT -> let { sat_s565 :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [sat_s515 rb3]; } in nextStep sat_s565 ds4; }; }; }; } in sat_s567; }; } in case $wa2 ww2 sat_s568 ipv2 of _ { (#,#) ipv5 ipv6 -> case touch# [a4 ipv5] of _ { __DEFAULT -> ipv6; }; }; } in case <=# [x1 ww] of _ { GHC.Types.False -> $j x1; GHC.Types.True -> $j ww; }; }; }; Blaze.ByteString.Builder.Internal.Types.InsertByteString rb bs nextStep -> case bs of _ { Data.ByteString.Internal.PS rb1 rb2 rb3 rb4 -> case eqAddr# [rb a3] of _ { GHC.Types.False -> case touch# [a4 ipv2] of _ { __DEFAULT -> let { sat_s56a :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case <=# [rb4 0] of _ { GHC.Types.False -> let { sat_s569 :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case w of _ { GHC.Types.I# ww2 -> case $wa2 ww2 nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv5 -> ipv5; }; }; } in Data.ByteString.Lazy.Internal.Chunk [rb1 rb2 rb3 rb4 sat_s569]; GHC.Types.True -> case w of _ { GHC.Types.I# ww2 -> case $wa2 ww2 nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv5 -> ipv5; }; }; }; } in case minusAddr# [rb a3] of sat_s56b { __DEFAULT -> Data.ByteString.Lazy.Internal.Chunk [a3 a4 0 sat_s56b sat_s56a]; }; }; GHC.Types.True -> case touch# [a4 ipv2] of _ { __DEFAULT -> case <=# [rb4 0] of _ { GHC.Types.False -> let { sat_s56c :: Data.ByteString.Lazy.Internal.ByteString [LclId] = \u [] case w of _ { GHC.Types.I# ww2 -> case $wa2 ww2 nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv5 -> ipv5; }; }; } in Data.ByteString.Lazy.Internal.Chunk [rb1 rb2 rb3 rb4 sat_s56c]; GHC.Types.True -> case w of _ { GHC.Types.I# ww2 -> case $wa2 ww2 nextStep GHC.Prim.realWorld# of _ { (#,#) _ ipv5 -> ipv5; }; }; }; }; }; }; }; }; }; }; }; GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2; }; GHC.Types.True -> case $wa2 ww1 nt GHC.Prim.realWorld# of _ { (#,#) _ ipv1 -> ipv1; }; }; };, [(Blaze.ByteString.Builder.Internal.$wtoLazyByteStringWith, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (Blaze.ByteString.Builder.Internal.toLazyByteStringWith [InlPrag=INLINE[0]] :: GHC.Types.Int -> GHC.Types.Int -> GHC.Types.Int -> Blaze.ByteString.Builder.Internal.Types.Builder -> Data.ByteString.Lazy.Internal.ByteString -> Data.ByteString.Lazy.Internal.ByteString [GblId, Arity=5, Str=DmdType LU(L)U(L)C(S)L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w w1 w2 w3 w4] case w1 of _ { GHC.Types.I# ww -> case w2 of _ { GHC.Types.I# ww1 -> Blaze.ByteString.Builder.Internal.$wtoLazyByteStringWith w ww ww1 w3 w4; }; };, [(Blaze.ByteString.Builder.Internal.toLazyByteStringWith, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (Blaze.ByteString.Builder.Internal.toLazyByteString [InlPrag=INLINE (sat-args=1)] :: Blaze.ByteString.Builder.Internal.Types.Builder -> Data.ByteString.Lazy.Internal.ByteString [GblId, Arity=1, Str=DmdType C(S), Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta] Blaze.ByteString.Builder.Internal.$wtoLazyByteStringWith Blaze.ByteString.Builder.Internal.defaultBufferSize 4080 64 eta Data.ByteString.Lazy.Internal.Empty;, [(Blaze.ByteString.Builder.Internal.toLazyByteString, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (Blaze.ByteString.Builder.Internal.$wgo1 [Occ=LoopBreaker] :: GHC.Prim.Int# -> Data.ByteString.Lazy.Internal.ByteString -> GHC.Prim.Int# [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType LS, Unf=OtherCon []] = \r [ww w] case w of _ { Data.ByteString.Lazy.Internal.Empty -> ww; Data.ByteString.Lazy.Internal.Chunk rb rb1 rb2 rb3 cs1 -> case +# [ww rb3] of sat_s57h { __DEFAULT -> Blaze.ByteString.Builder.Internal.$wgo1 sat_s57h cs1; }; };, [(Blaze.ByteString.Builder.Internal.$wgo1, [])]), (Blaze.ByteString.Builder.Internal.toByteString :: Blaze.ByteString.Builder.Internal.Types.Builder -> Data.ByteString.Internal.ByteString [GblId, Arity=1, Str=DmdType L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [x] let { lbs [Dmd=Just L] :: Data.ByteString.Lazy.Internal.ByteString [LclId, Str=DmdType] = \u srt:(1,*bitmap*) [] Blaze.ByteString.Builder.Internal.$wtoLazyByteStringWith Blaze.ByteString.Builder.Internal.defaultBufferSize 4080 64 x Data.ByteString.Lazy.Internal.Empty; } in let { sat_s57m :: GHC.Types.IO Data.ByteString.Internal.ByteString [LclId] = \r srt:(0,*bitmap*) [s] case Blaze.ByteString.Builder.Internal.$wgo1 0 lbs of ww { __DEFAULT -> case <# [ww 0] of _ { GHC.Types.False -> case newPinnedByteArray# [ww s] of _ { (#,#) ipv ipv1 -> case byteArrayContents# [ipv1] of a3 [Dmd=Just L] { __DEFAULT -> case Blaze.ByteString.Builder.Internal.$wa lbs a3 ipv of _ { (#,#) ipv2 _ -> let { a4 :: GHC.ForeignPtr.ForeignPtrContents [LclId, Str=DmdType, Unf=OtherCon []] = NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in case touch# [a4 ipv2] of s' { __DEFAULT -> let { sat_s57l :: Data.ByteString.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Internal.PS! [a3 a4 0 ww]; } in (#,#) [s' sat_s57l]; }; }; }; }; GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2; }; }; } in GHC.IO.unsafeDupablePerformIO sat_s57m;, [(Blaze.ByteString.Builder.Internal.toByteString, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2, GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (Blaze.ByteString.Builder.Internal.writeToByteString [InlPrag=INLINE (sat-args=1)] :: Blaze.ByteString.Builder.Internal.Write.Write -> Data.ByteString.Internal.ByteString [GblId, Arity=1, Str=DmdType U(LL), Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta] case eta of _ { Blaze.ByteString.Builder.Internal.Write.Write ipv ipv1 -> let { sat_s57t :: GHC.Types.IO Data.ByteString.Internal.ByteString [LclId] = \r srt:(0,*bitmap*) [s] case <# [ipv 0] of _ { GHC.Types.False -> case newPinnedByteArray# [ipv s] of _ { (#,#) ipv2 ipv3 -> case byteArrayContents# [ipv3] of a3 [Dmd=Just L] { __DEFAULT -> let { sat_s57s :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = NO_CCS GHC.Ptr.Ptr! [a3]; } in case ipv1 sat_s57s ipv2 of _ { (#,#) ipv4 ipv5 -> case ipv5 of _ { GHC.Ptr.Ptr a4 -> let { a5 :: GHC.ForeignPtr.ForeignPtrContents [LclId, Str=DmdType, Unf=OtherCon []] = NO_CCS GHC.ForeignPtr.PlainPtr! [ipv3]; } in case touch# [a5 ipv4] of s' { __DEFAULT -> case minusAddr# [a4 a3] of sat_s53F { __DEFAULT -> let { sat_s57r :: Data.ByteString.Internal.ByteString [LclId] = NO_CCS Data.ByteString.Internal.PS! [a3 a5 0 sat_s53F]; } in (#,#) [s' sat_s57r]; }; }; }; }; }; }; GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2; }; } in GHC.IO.unsafeDupablePerformIO sat_s57t; };, [(Blaze.ByteString.Builder.Internal.writeToByteString, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]), (a2 :: 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, Str=DmdType LU(LA)L, Unf=OtherCon []] = sat-only \r srt:(0,*bitmap*) [k ds eta] case ds of _ { Blaze.ByteString.Builder.Internal.Types.BufRange rb rb1 -> let { sat_s57z :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = \u srt:(0,*bitmap*) [] case k of nt { __DEFAULT -> Blaze.ByteString.Builder.Internal.Types.InsertByteString [rb Data.ByteString.empty nt]; }; } in (#,#) [eta sat_s57z]; };, [(a2, [Data.ByteString.empty])]), (Blaze.ByteString.Builder.Internal.flush [InlPrag=INLINE (sat-args=0)] :: Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=3, Str=DmdType LU(LA)L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B3 eta_B2 eta_B1] a2 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Internal.flush, [Data.ByteString.empty])])]