[(Blaze.ByteString.Builder.Internal.Buffer.$WBuffer [InlPrag=INLINE]
:: GHC.ForeignPtr.ForeignPtr GHC.Word.Word8
-> GHC.Ptr.Ptr GHC.Word.Word8
-> GHC.Ptr.Ptr GHC.Word.Word8
-> GHC.Ptr.Ptr GHC.Word.Word8
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
[GblId[DataConWrapper],
Arity=4,
Caf=NoCafRefs,
Str=DmdType SSSSm,
Unf=OtherCon []] =
\r [tpl_s3pO tpl_s3pS tpl_s3pV tpl_s3pY]
case tpl_s3pO of _ {
GHC.ForeignPtr.ForeignPtr tpl_s3q1 [Occ=Once]
tpl_s3q2 [Occ=Once] ->
case tpl_s3pS of _ {
GHC.Ptr.Ptr tpl_s3q3 [Occ=Once] ->
case tpl_s3pV of _ {
GHC.Ptr.Ptr tpl_s3q4 [Occ=Once] ->
case tpl_s3pY of _ {
GHC.Ptr.Ptr tpl_s3q5 [Occ=Once] ->
Blaze.ByteString.Builder.Internal.Buffer.Buffer [tpl_s3q1
tpl_s3q2
tpl_s3q3
tpl_s3q4
tpl_s3q5];
};
};
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.$WBuffer, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.bufferSize
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer -> GHC.Types.Int
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType U(LAAAL)m,
Unf=OtherCon []] =
\r [ds]
case ds of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
case minusAddr# [rb4 rb] of sat_s3xi {
__DEFAULT -> GHC.Types.I# [sat_s3xi];
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.bufferSize, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.execBuildStep [InlPrag=INLINE (sat-args=2)]
:: forall a.
Blaze.ByteString.Builder.Internal.Types.BuildStep a
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> GHC.Types.IO
(Blaze.ByteString.Builder.Internal.Types.BuildSignal a)
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType C(S)U(AAALL),
Unf=OtherCon []] =
\r [eta eta1]
case eta1 of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
let {
sat_s3xu :: Blaze.ByteString.Builder.Internal.Types.BufRange
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [rb3 rb4];
} in eta sat_s3xu;
};,
[(Blaze.ByteString.Builder.Internal.Buffer.execBuildStep, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.freeSize
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer -> GHC.Types.Int
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType U(AAALL)m,
Unf=OtherCon []] =
\r [ds]
case ds of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
case minusAddr# [rb4 rb3] of sat_s3xD {
__DEFAULT -> GHC.Types.I# [sat_s3xD];
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.freeSize, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.reuseBuffer [InlPrag=INLINE (sat-args=1)]
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType U(LLAAL)m,
Unf=OtherCon []] =
\r [eta]
case eta of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
Blaze.ByteString.Builder.Internal.Buffer.Buffer [rb rb1 rb rb rb4];
};,
[(Blaze.ByteString.Builder.Internal.Buffer.reuseBuffer, [])]),
(lvl :: GHC.Types.Int
[GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] =
NO_CCS GHC.Types.I#! [1];,
[(lvl, [])]),
(a :: forall a.
a
-> Blaze.ByteString.Builder.Internal.Types.BufRange
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Blaze.ByteString.Builder.Internal.Types.BuildSignal a #)
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType LU(LA)L,
Unf=OtherCon []] =
\r [x ds eta]
case ds of _ {
Blaze.ByteString.Builder.Internal.Types.BufRange rb rb1 ->
let {
sat_s3xX :: Blaze.ByteString.Builder.Internal.Types.BuildSignal a
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Types.Done! [rb x];
} in (#,#) [eta sat_s3xX];
};,
[(a, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.runPut [InlPrag=INLINE (sat-args=4)]
:: forall a (m :: * -> *).
GHC.Base.Monad m =>
(GHC.Types.IO
(Blaze.ByteString.Builder.Internal.Types.BuildSignal a)
-> m (Blaze.ByteString.Builder.Internal.Types.BuildSignal a))
-> (GHC.Types.Int
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> m Blaze.ByteString.Builder.Internal.Buffer.Buffer)
-> (Data.ByteString.Internal.ByteString -> m ())
-> Blaze.ByteString.Builder.Internal.Types.Put a
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType LLLLL,
Unf=OtherCon []] =
\r [$dMonad eta eta1 eta2 eta3]
let {
w :: Blaze.ByteString.Builder.Internal.Types.BuildStep a
[LclId] =
\u [] eta3 a; } in
let {
lvl1
:: m Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> (Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer))
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\u [] GHC.Base.>>= $dMonad; } in
let {
lvl2
:: m ()
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\u [] GHC.Base.>> $dMonad; } in
let {
lvl3
:: (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\u [] GHC.Base.return $dMonad; } in
let {
lvl4
:: m (Blaze.ByteString.Builder.Internal.Types.BuildSignal a)
-> (Blaze.ByteString.Builder.Internal.Types.BuildSignal a
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer))
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\u [] GHC.Base.>>= $dMonad; } in
let {
$wrunStep [Occ=LoopBreaker]
:: Blaze.ByteString.Builder.Internal.Types.BuildStep a
-> GHC.Prim.Addr#
-> GHC.ForeignPtr.ForeignPtrContents
-> GHC.Prim.Addr#
-> GHC.Prim.Addr#
-> GHC.Prim.Addr#
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId, Arity=6, Str=DmdType LLLLLL, Unf=OtherCon []] =
sat-only \r [w1 ww ww1 ww2 ww3 ww4]
let {
sat_s3y1
:: Blaze.ByteString.Builder.Internal.Types.BuildSignal a
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\r [signal]
case signal of _ {
Blaze.ByteString.Builder.Internal.Types.Done rb x ->
let {
sat_s3rJ :: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [ww
ww1
ww2
rb
ww4]; } in
let {
sat_s3y0
:: (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
NO_CCS (,)! [x sat_s3rJ];
} in lvl3 sat_s3y0;
Blaze.ByteString.Builder.Internal.Types.BufferFull rb
rb1
nextStep ->
let {
sat_s3y4
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\r [buf']
case buf' of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer ww5
ww6
ww7
ww8
ww9 ->
$wrunStep nextStep ww5 ww6 ww7 ww8 ww9;
}; } in
let {
sat_s3y5 :: m Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
\u []
let {
sat_s3rT
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [ww
ww1
ww2
rb1
ww4]; } in
let {
sat_s3rU :: GHC.Types.Int
[LclId] =
NO_CCS GHC.Types.I#! [rb];
} in eta1 sat_s3rU sat_s3rT;
} in lvl1 sat_s3y5 sat_s3y4;
Blaze.ByteString.Builder.Internal.Types.InsertByteString rb
bs
nextStep ->
case bs of wild1 {
Data.ByteString.Internal.PS rb1 rb2 rb3 rb4 ->
case <=# [rb4 0] of _ {
GHC.Types.False ->
case eqAddr# [ww2 rb] of _ {
GHC.Types.False ->
let {
lvl5 [Dmd=Just L] :: m ()
[LclId, Str=DmdType] =
\u [] eta2 wild1; } in
let {
sat_s3y7
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> m (a,
Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\r [buf']
let {
sat_s3y6
:: m (a,
Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\u []
case buf' of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer ww5
ww6
ww7
ww8
ww9 ->
$wrunStep
nextStep
ww5
ww6
ww7
ww8
ww9;
};
} in lvl2 lvl5 sat_s3y6; } in
let {
sat_s3y8
:: m Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
\u []
let {
sat_s3su
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [ww
ww1
ww2
rb
ww4];
} in eta1 lvl sat_s3su;
} in lvl1 sat_s3y8 sat_s3y7;
GHC.Types.True ->
let {
sat_s3yc
:: m (a,
Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\u []
$wrunStep
nextStep
ww
ww1
ww2
ww3
ww4; } in
let {
sat_s3yd :: m ()
[LclId] =
\u [] eta2 wild1;
} in lvl2 sat_s3yd sat_s3yc;
};
GHC.Types.True ->
let {
sat_s3ya
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> m (a,
Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\r [w2]
case w2 of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer ww5
ww6
ww7
ww8
ww9 ->
$wrunStep
nextStep ww5 ww6 ww7 ww8 ww9;
}; } in
let {
sat_s3yb
:: m Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
\u []
let {
sat_s3sP
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [ww
ww1
ww2
rb
ww4];
} in eta1 lvl sat_s3sP;
} in lvl1 sat_s3yb sat_s3ya;
};
};
}; } in
let {
sat_s3y2
:: m (Blaze.ByteString.Builder.Internal.Types.BuildSignal a)
[LclId] =
\u []
let {
sat_s3rw
:: GHC.Types.IO
(Blaze.ByteString.Builder.Internal.Types.BuildSignal a)
[LclId] =
\u []
let {
sat_s3ru
:: Blaze.ByteString.Builder.Internal.Types.BufRange
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [ww3
ww4];
} in w1 sat_s3ru;
} in eta sat_s3rw;
} in lvl4 sat_s3y2 sat_s3y1; } in
let {
sat_s3y3
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> m (a, Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\r [w1]
case w1 of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer ww
ww1
ww2
ww3
ww4 ->
$wrunStep w ww ww1 ww2 ww3 ww4;
};
} in sat_s3y3;,
[(Blaze.ByteString.Builder.Internal.Buffer.runPut, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.sliceSize
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer -> GHC.Types.Int
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType U(AALLA)m,
Unf=OtherCon []] =
\r [ds]
case ds of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
case minusAddr# [rb3 rb2] of sat_s3yn {
__DEFAULT -> GHC.Types.I# [sat_s3yn];
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.sliceSize, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.unsafeFreezeBuffer [InlPrag=INLINE (sat-args=1)]
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> Data.ByteString.Internal.ByteString
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType U(LLLLA)m,
Unf=OtherCon []] =
\r [eta]
case eta of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
case minusAddr# [rb3 rb2] of sat_s3ys {
__DEFAULT ->
case minusAddr# [rb2 rb] of sat_s3yt {
__DEFAULT ->
Data.ByteString.Internal.PS [rb rb1 sat_s3yt sat_s3ys];
};
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.unsafeFreezeBuffer,
[])]),
(Blaze.ByteString.Builder.Internal.Buffer.updateEndOfSlice [InlPrag=INLINE (sat-args=2)]
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> GHC.Ptr.Ptr GHC.Word.Word8
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType U(LLLAL)U(L)m,
Unf=OtherCon []] =
\r [eta eta1]
case eta of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
case eta1 of _ {
GHC.Ptr.Ptr tpl1 ->
Blaze.ByteString.Builder.Internal.Buffer.Buffer [rb
rb1
rb2
tpl1
rb4];
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.updateEndOfSlice, [])]),
(a1
:: GHC.Types.Int
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Blaze.ByteString.Builder.Internal.Buffer.Buffer #)
[GblId, Arity=2, Str=DmdType U(L)L, Unf=OtherCon []] =
sat-only \r srt:(0,*bitmap*) [eta eta1]
case eta of _ {
GHC.Types.I# x ->
case <# [x 0] of _ {
GHC.Types.False ->
case newPinnedByteArray# [x eta1] of _ {
(#,#) ipv ipv1 ->
case byteArrayContents# [ipv1] of a2 [Dmd=Just L] {
__DEFAULT ->
case plusAddr# [a2 x] of sat_s3uh {
__DEFAULT ->
let {
sat_s3ui :: GHC.ForeignPtr.ForeignPtrContents
[LclId] =
NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in
let {
sat_s3yz
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [a2
sat_s3ui
a2
a2
sat_s3uh];
} in (#,#) [ipv sat_s3yz];
};
};
};
GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2;
};
};,
[(a1, [GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]),
(Blaze.ByteString.Builder.Internal.Buffer.allocBuffer [InlPrag=INLINE (sat-args=1)]
:: GHC.Types.Int
-> GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer
[GblId, Arity=2, Str=DmdType U(L)L, Unf=OtherCon []] =
\r srt:(0,*bitmap*) [eta_B2 eta_B1] a1 eta_B2 eta_B1;,
[(Blaze.ByteString.Builder.Internal.Buffer.allocBuffer,
[GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]),
(Blaze.ByteString.Builder.Internal.Buffer.$wa
:: GHC.Prim.Int#
-> GHC.Prim.Addr#
-> GHC.ForeignPtr.ForeignPtrContents
-> GHC.Prim.Addr#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer #)
[GblId, Arity=5, Str=DmdType LLLLL, Unf=OtherCon []] =
\r srt:(0,*bitmap*) [ww ww1 ww2 ww3 w]
case minusAddr# [ww3 ww1] of sat_s3yF {
__DEFAULT ->
case >=# [sat_s3yF ww] of _ {
GHC.Types.False ->
let {
sat_s3yE
:: GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
\r srt:(0,*bitmap*) [s]
case <# [ww 0] of _ {
GHC.Types.False ->
case newPinnedByteArray# [ww s] of _ {
(#,#) ipv ipv1 ->
case byteArrayContents# [ipv1] of a2 [Dmd=Just L] {
__DEFAULT ->
case plusAddr# [a2 ww] of sat_s3uI {
__DEFAULT ->
let {
sat_s3uJ
:: GHC.ForeignPtr.ForeignPtrContents
[LclId] =
NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in
let {
sat_s3yD
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [a2
sat_s3uJ
a2
a2
sat_s3uI];
} in (#,#) [ipv sat_s3yD];
};
};
};
GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2;
};
} in (#,#) [w sat_s3yE];
GHC.Types.True ->
let {
sat_s3yK
:: GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
\r [s]
let {
sat_s3yJ :: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [ww1
ww2
ww1
ww1
ww3];
} in (#,#) [s sat_s3yJ];
} in (#,#) [w sat_s3yK];
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.$wa,
[GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]),
(Blaze.ByteString.Builder.Internal.Buffer.reuseBufferStrategy1 [InlPrag=INLINE[0]]
:: GHC.Types.Int
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer #)
[GblId, Arity=3, Str=DmdType U(L)U(LLAAL)L, Unf=OtherCon []] =
\r srt:(0,*bitmap*) [w w1 w2]
case w of _ {
GHC.Types.I# ww ->
case w1 of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer ww1
ww2
ww3
ww4
ww5 ->
Blaze.ByteString.Builder.Internal.Buffer.$wa ww ww1 ww2 ww5 w2;
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.reuseBufferStrategy1,
[GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]),
(Blaze.ByteString.Builder.Internal.Buffer.reuseBufferStrategy
:: GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> Blaze.ByteString.Builder.Internal.Buffer.BufferAllocStrategy
[GblId, Arity=1, Str=DmdType Lm, Unf=OtherCon []] =
\r srt:(0,*bitmap*) [buf0]
(,) [buf0
Blaze.ByteString.Builder.Internal.Buffer.reuseBufferStrategy1];,
[(Blaze.ByteString.Builder.Internal.Buffer.reuseBufferStrategy,
[GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]),
(Blaze.ByteString.Builder.Internal.Buffer.$wallNewBuffersStrategy
:: GHC.Types.Int
-> (# GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer,
GHC.Types.Int
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> GHC.Types.IO
(GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer) #)
[GblId, Arity=1, Str=DmdType L, Unf=OtherCon []] =
\r srt:(0,*bitmap*) [w]
let {
sat_s3yT
:: GHC.Types.Int
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> GHC.Types.IO
(GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer)
[LclId] =
\r srt:(0,*bitmap*) [reqSize ds s]
let {
sat_s3yR
:: GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
\r srt:(0,*bitmap*) [s1]
case reqSize of _ {
GHC.Types.I# x1 ->
case w of _ {
GHC.Types.I# y1 ->
case <=# [x1 y1] of _ {
GHC.Types.False ->
case <# [x1 0] of _ {
GHC.Types.False ->
case newPinnedByteArray# [x1 s1] of _ {
(#,#) ipv ipv1 ->
case
byteArrayContents# [ipv1]
of
a2 [Dmd=Just L]
{ __DEFAULT ->
case
plusAddr# [a2 x1]
of
sat_s3vW
{ __DEFAULT ->
let {
sat_s3vX
:: GHC.ForeignPtr.ForeignPtrContents
[LclId] =
NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in
let {
sat_s3yQ
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [a2
sat_s3vX
a2
a2
sat_s3vW];
} in (#,#) [ipv sat_s3yQ];
};
};
};
GHC.Types.True ->
GHC.ForeignPtr.mallocPlainForeignPtrBytes2;
};
GHC.Types.True ->
case <# [y1 0] of _ {
GHC.Types.False ->
case newPinnedByteArray# [y1 s1] of _ {
(#,#) ipv ipv1 ->
case
byteArrayContents# [ipv1]
of
a2 [Dmd=Just L]
{ __DEFAULT ->
case
plusAddr# [a2 y1]
of
sat_s3wa
{ __DEFAULT ->
let {
sat_s3wb
:: GHC.ForeignPtr.ForeignPtrContents
[LclId] =
NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in
let {
sat_s3z0
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [a2
sat_s3wb
a2
a2
sat_s3wa];
} in (#,#) [ipv sat_s3z0];
};
};
};
GHC.Types.True ->
GHC.ForeignPtr.mallocPlainForeignPtrBytes2;
};
};
};
};
} in (#,#) [s sat_s3yR]; } in
let {
sat_s3yU
:: GHC.Types.IO Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
\r srt:(0,*bitmap*) [eta]
case w of _ {
GHC.Types.I# x ->
case <# [x 0] of _ {
GHC.Types.False ->
case newPinnedByteArray# [x eta] of _ {
(#,#) ipv ipv1 ->
case byteArrayContents# [ipv1] of a2 {
__DEFAULT ->
case plusAddr# [a2 x] of sat_s3vt {
__DEFAULT ->
let {
sat_s3vu :: GHC.ForeignPtr.ForeignPtrContents
[LclId] =
NO_CCS GHC.ForeignPtr.PlainPtr! [ipv1]; } in
let {
sat_s3yS
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [a2
sat_s3vu
a2
a2
sat_s3vt];
} in (#,#) [ipv sat_s3yS];
};
};
};
GHC.Types.True -> GHC.ForeignPtr.mallocPlainForeignPtrBytes2;
};
};
} in (#,#) [sat_s3yU sat_s3yT];,
[(Blaze.ByteString.Builder.Internal.Buffer.$wallNewBuffersStrategy,
[GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]),
(Blaze.ByteString.Builder.Internal.Buffer.allNewBuffersStrategy [InlPrag=INLINE[0]]
:: GHC.Types.Int
-> Blaze.ByteString.Builder.Internal.Buffer.BufferAllocStrategy
[GblId, Arity=1, Str=DmdType Lm, Unf=OtherCon []] =
\r srt:(0,*bitmap*) [w]
case
Blaze.ByteString.Builder.Internal.Buffer.$wallNewBuffersStrategy w
of
_
{ (#,#) ww1 ww2 -> (,) [ww1 ww2];
};,
[(Blaze.ByteString.Builder.Internal.Buffer.allNewBuffersStrategy,
[GHC.ForeignPtr.mallocPlainForeignPtrBytes2])]),
(Blaze.ByteString.Builder.Internal.Buffer.unsafeFreezeNonEmptyBuffer [InlPrag=INLINE (sat-args=1)]
:: Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> Data.Maybe.Maybe Data.ByteString.Internal.ByteString
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType U(LLLLA),
Unf=OtherCon []] =
\r [eta]
case eta of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
case minusAddr# [rb3 rb2] of sat_s3z8 {
__DEFAULT ->
case <=# [sat_s3z8 0] of _ {
GHC.Types.False ->
case minusAddr# [rb3 rb2] of sat_s3wD {
__DEFAULT ->
case minusAddr# [rb2 rb] of sat_s3wE {
__DEFAULT ->
let {
sat_s3z7 :: Data.ByteString.Internal.ByteString
[LclId] =
NO_CCS Data.ByteString.Internal.PS! [rb
rb1
sat_s3wE
sat_s3wD];
} in Data.Maybe.Just [sat_s3z7];
};
};
GHC.Types.True -> Data.Maybe.Nothing [];
};
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.unsafeFreezeNonEmptyBuffer,
[])]),
(Blaze.ByteString.Builder.Internal.Buffer.nextSlice [InlPrag=INLINE (sat-args=2)]
:: GHC.Types.Int
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
-> Data.Maybe.Maybe Blaze.ByteString.Builder.Internal.Buffer.Buffer
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType U(L)U(LLALL),
Unf=OtherCon []] =
\r [eta eta1]
case eta1 of _ {
Blaze.ByteString.Builder.Internal.Buffer.Buffer rb
rb1
rb2
rb3
rb4 ->
case eta of _ {
GHC.Types.I# y ->
case minusAddr# [rb4 rb3] of sat_s3zd {
__DEFAULT ->
case <=# [sat_s3zd y] of _ {
GHC.Types.False ->
let {
sat_s3zc :: Blaze.ByteString.Builder.Internal.Buffer.Buffer
[LclId] =
NO_CCS Blaze.ByteString.Builder.Internal.Buffer.Buffer! [rb
rb1
rb3
rb3
rb4];
} in Data.Maybe.Just [sat_s3zc];
GHC.Types.True -> Data.Maybe.Nothing [];
};
};
};
};,
[(Blaze.ByteString.Builder.Internal.Buffer.nextSlice, [])]),
(Blaze.ByteString.Builder.Internal.Buffer.Buffer
:: GHC.Prim.Addr#
-> GHC.ForeignPtr.ForeignPtrContents
-> GHC.Prim.Addr#
-> GHC.Prim.Addr#
-> GHC.Prim.Addr#
-> Blaze.ByteString.Builder.Internal.Buffer.Buffer
[GblId[DataCon],
Arity=5,
Caf=NoCafRefs,
Str=DmdType TTTTTm,
Unf=OtherCon []] =
\r [eta_B5 eta_B4 eta_B3 eta_B2 eta_B1]
Blaze.ByteString.Builder.Internal.Buffer.Buffer [eta_B5
eta_B4
eta_B3
eta_B2
eta_B1];,
[(Blaze.ByteString.Builder.Internal.Buffer.Buffer, [])])]