[(Blaze.ByteString.Builder.Char8.writeChar [InlPrag=INLINE (sat-args=0)] :: GHC.Types.Char -> Blaze.ByteString.Builder.Internal.Write.Write [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType Lm, Unf=OtherCon []] = \r [x] let { x1 [Dmd=Just D(L)] :: GHC.Word.Word8 [LclId, Str=DmdType] = \u [] case x of _ { GHC.Types.C# c# -> case ord# [c#] of sat_sdYy { __DEFAULT -> case int2Word# [sat_sdYy] of sat_sdYA { __DEFAULT -> case narrow8Word# [sat_sdYA] of sat_se4a { __DEFAULT -> GHC.Word.W8# [sat_se4a]; }; }; }; }; } in let { sat_se4c :: Blaze.ByteString.Builder.Internal.Write.Poke [LclId] = \r [op s] case op of _ { GHC.Ptr.Ptr a2 -> case x1 of _ { GHC.Word.W8# x2 -> case writeWord8OffAddr# [a2 0 x2 s] of s2 { __DEFAULT -> case plusAddr# [a2 1] of sat_sdYQ { __DEFAULT -> let { sat_se4b :: GHC.Ptr.Ptr GHC.Word.Word8 [LclId] = NO_CCS GHC.Ptr.Ptr! [sat_sdYQ]; } in (#,#) [s2 sat_se4b]; }; }; }; }; } in Blaze.ByteString.Builder.Internal.Write.Write [1 sat_se4c];, [(Blaze.ByteString.Builder.Char8.writeChar, [])]), (Blaze.ByteString.Builder.Char8.$wa1 [Occ=LoopBreaker] :: forall r. [GHC.Types.Char] -> (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=5, Caf=NoCafRefs, Str=DmdType SLLLL, Unf=OtherCon []] = \r [w w1 ww ww1 w2] let-no-escape { $wa2 [Occ=LoopBreaker] :: [GHC.Types.Char] -> GHC.Prim.Addr# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Blaze.ByteString.Builder.Internal.Types.BuildSignal r #) [LclId, Arity=3, Str=DmdType SLL, Unf=OtherCon []] = sat-only \r [w3 ww2 w4] case w3 of wild1 { [] -> let { sat_se4I :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [ww2 ww1]; } in w1 sat_se4I w4; : x' xs' -> case plusAddr# [ww2 1] of sat_se4K { __DEFAULT -> case leAddr# [sat_se4K ww1] of _ { GHC.Types.False -> let { sat_sdZo :: Blaze.ByteString.Builder.Internal.Types.BuildStep r [LclId] = \r [w5 w6] case w5 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww3 ww4 -> Blaze.ByteString.Builder.Char8.$wa1 wild1 w1 ww3 ww4 w6; }; } in let { sat_se4J :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [1 ww2 sat_sdZo]; } in (#,#) [w4 sat_se4J]; GHC.Types.True -> case x' of _ { GHC.Types.C# c# -> case ord# [c#] of sat_sdZv { __DEFAULT -> case int2Word# [sat_sdZv] of sat_sdZx { __DEFAULT -> case narrow8Word# [sat_sdZx] of sat_se4M { __DEFAULT -> case writeWord8OffAddr# [ww2 0 sat_se4M w4] of s2 { __DEFAULT -> case plusAddr# [ww2 1] of sat_se4L { __DEFAULT -> $wa2 xs' sat_se4L s2; }; }; }; }; }; }; }; }; }; } in $wa2 w ww w2;, [(Blaze.ByteString.Builder.Char8.$wa1, [])]), (Blaze.ByteString.Builder.Char8.fromString1 [InlPrag=INLINE[0]] :: [GHC.Types.Char] -> 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 SLU(LL)L, Unf=OtherCon []] = \r [w w1 w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> Blaze.ByteString.Builder.Char8.$wa1 w w1 ww ww1 w3; };, [(Blaze.ByteString.Builder.Char8.fromString1, [])]), (Blaze.ByteString.Builder.Char8.fromString :: GHC.Base.String -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType SLU(LL)L, Unf=OtherCon []] = \r [eta_B4 eta_B3 eta_B2 eta_B1] Blaze.ByteString.Builder.Char8.fromString1 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Char8.fromString, [])]), (a :: Data.Text.Internal.Text -> 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=1, Caf=NoCafRefs, Str=DmdType L, Unf=OtherCon []] = sat-only \r [x] let { w :: [GHC.Types.Char] [LclId] = \u [] case x of _ { Data.Text.Internal.Text rb rb1 rb2 -> case +# [rb1 rb2] of a2 [Dmd=Just L] { __DEFAULT -> let { $wunfold [Occ=LoopBreaker] :: GHC.Prim.Int# -> [GHC.Types.Char] [LclId, Arity=1, Str=DmdType L, Unf=OtherCon []] = sat-only \r [ww] case >=# [ww a2] of _ { GHC.Types.False -> case indexWord16Array# [rb ww] of r# { __DEFAULT -> case geWord# [r# __word 55296] of _ { GHC.Types.False -> let { sat_se5y :: [GHC.Types.Char] [LclId] = \u [] case +# [ww 1] of sat_se0k { __DEFAULT -> $wunfold sat_se0k; }; } in case word2Int# [r#] of sat_se0e { __DEFAULT -> case chr# [sat_se0e] of sat_se0g { __DEFAULT -> let { sat_se5z :: GHC.Types.Char [LclId] = NO_CCS GHC.Types.C#! [sat_se0g]; } in : [sat_se5z sat_se5y]; }; }; GHC.Types.True -> case leWord# [r# __word 56319] of _ { GHC.Types.False -> let { sat_se5A :: [GHC.Types.Char] [LclId] = \u [] case +# [ww 1] of sat_se0t { __DEFAULT -> $wunfold sat_se0t; }; } in case word2Int# [r#] of sat_se0o { __DEFAULT -> case chr# [sat_se0o] of sat_se0q { __DEFAULT -> let { sat_se5B :: GHC.Types.Char [LclId] = NO_CCS GHC.Types.C#! [sat_se0q]; } in : [sat_se5B sat_se5A]; }; }; GHC.Types.True -> case +# [ww 1] of sat_se5E { __DEFAULT -> case indexWord16Array# [rb sat_se5E] of r#1 { __DEFAULT -> let { sat_se5C :: [GHC.Types.Char] [LclId] = \u [] case +# [ww 2] of sat_se0Q { __DEFAULT -> $wunfold sat_se0Q; }; } in case word2Int# [r#1] of sat_se0I { __DEFAULT -> case -# [sat_se0I 56320] of sat_se0D { __DEFAULT -> case word2Int# [r#] of sat_se0J { __DEFAULT -> case -# [sat_se0J 55296] of sat_se0K { __DEFAULT -> case uncheckedIShiftL# [sat_se0K 10] of sat_se0L { __DEFAULT -> case +# [sat_se0L sat_se0D] of sat_se0M { __DEFAULT -> case +# [sat_se0M 65536] of sat_se0G { __DEFAULT -> case chr# [sat_se0G] of sat_se0N { __DEFAULT -> let { sat_se5D :: GHC.Types.Char [LclId] = NO_CCS GHC.Types.C#! [sat_se0N]; } in : [sat_se5D sat_se5C]; }; }; }; }; }; }; }; }; }; }; }; }; }; GHC.Types.True -> [] []; }; } in $wunfold rb1; }; }; } in let { sat_se5F :: 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 #) [LclId] = \r [w1 w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> Blaze.ByteString.Builder.Char8.$wa1 w w1 ww ww1 w3; }; } in sat_se5F;, [(a, [])]), (Blaze.ByteString.Builder.Char8.fromText [InlPrag=INLINE (sat-args=0)] :: Data.Text.Internal.Text -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType L, Unf=OtherCon []] = \r [eta_B1] a eta_B1;, [(Blaze.ByteString.Builder.Char8.fromText, [])]), (Blaze.ByteString.Builder.Char8.fromShow1 :: forall a. GHC.Show.Show 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=2, Caf=NoCafRefs, Str=DmdType LL, Unf=OtherCon []] = \r [$dShow eta] let { w :: [GHC.Types.Char] [LclId] = \u [] GHC.Show.show $dShow eta; } in let { sat_se5L :: 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 #) [LclId] = \r [w1 w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> Blaze.ByteString.Builder.Char8.$wa1 w w1 ww ww1 w3; }; } in sat_se5L;, [(Blaze.ByteString.Builder.Char8.fromShow1, [])]), (Blaze.ByteString.Builder.Char8.fromShow :: forall a. GHC.Show.Show a => a -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType LL, Unf=OtherCon []] = \r [eta_B2 eta_B1] Blaze.ByteString.Builder.Char8.fromShow1 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Char8.fromShow, [])]), (lvl :: GHC.Types.Int [GblId, Caf=NoCafRefs, Unf=OtherCon []] = NO_CCS GHC.Types.I#! [0];, [(lvl, [])]), (next1 :: Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int -> Data.Text.Fusion.Internal.Step (Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int) GHC.Types.Char [GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []] = sat-only \r [ds] case ds of _ { Data.Text.Fusion.Internal.:*: ds1 ds2 -> case ds2 of _ { GHC.Types.I# x -> case ds1 of wild1 { Data.Text.Lazy.Internal.Empty -> Data.Text.Fusion.Internal.Done []; Data.Text.Lazy.Internal.Chunk rb rb1 rb2 ts -> case >=# [x rb2] of _ { GHC.Types.False -> case +# [rb1 x] of a2 { __DEFAULT -> case indexWord16Array# [rb a2] of r# { __DEFAULT -> case ltWord# [r# __word 55296] of _ { GHC.Types.False -> case gtWord# [r# __word 56319] of _ { GHC.Types.False -> case +# [a2 1] of sat_se5R { __DEFAULT -> case indexWord16Array# [rb sat_se5R] of r#1 { __DEFAULT -> case +# [x 2] of sat_se28 { __DEFAULT -> let { sat_se2a :: GHC.Types.Int [LclId] = NO_CCS GHC.Types.I#! [sat_se28]; } in let { sat_se5P :: Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int [LclId] = NO_CCS Data.Text.Fusion.Internal.:*:! [wild1 sat_se2a]; } in case word2Int# [r#1] of sat_se1Z { __DEFAULT -> case -# [sat_se1Z 56320] of sat_se1U { __DEFAULT -> case word2Int# [r#] of sat_se20 { __DEFAULT -> case -# [sat_se20 55296] of sat_se21 { __DEFAULT -> case uncheckedIShiftL# [sat_se21 10] of sat_se22 { __DEFAULT -> case +# [sat_se22 sat_se1U] of sat_se23 { __DEFAULT -> case +# [sat_se23 65536] of sat_se1X { __DEFAULT -> case chr# [sat_se1X] of sat_se24 { __DEFAULT -> let { sat_se5Q :: GHC.Types.Char [LclId] = NO_CCS GHC.Types.C#! [sat_se24]; } in Data.Text.Fusion.Internal.Yield [sat_se5Q sat_se5P]; }; }; }; }; }; }; }; }; }; }; }; GHC.Types.True -> case +# [x 1] of sat_se2i { __DEFAULT -> let { sat_se2k :: GHC.Types.Int [LclId] = NO_CCS GHC.Types.I#! [sat_se2i]; } in let { sat_se5V :: Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int [LclId] = NO_CCS Data.Text.Fusion.Internal.:*:! [wild1 sat_se2k]; } in case word2Int# [r#] of sat_se2d { __DEFAULT -> case chr# [sat_se2d] of sat_se2f { __DEFAULT -> let { sat_se5W :: GHC.Types.Char [LclId] = NO_CCS GHC.Types.C#! [sat_se2f]; } in Data.Text.Fusion.Internal.Yield [sat_se5W sat_se5V]; }; }; }; }; GHC.Types.True -> case +# [x 1] of sat_se2s { __DEFAULT -> let { sat_se2u :: GHC.Types.Int [LclId] = NO_CCS GHC.Types.I#! [sat_se2s]; } in let { sat_se5X :: Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int [LclId] = NO_CCS Data.Text.Fusion.Internal.:*:! [wild1 sat_se2u]; } in case word2Int# [r#] of sat_se2n { __DEFAULT -> case chr# [sat_se2n] of sat_se2p { __DEFAULT -> let { sat_se5Y :: GHC.Types.Char [LclId] = NO_CCS GHC.Types.C#! [sat_se2p]; } in Data.Text.Fusion.Internal.Yield [sat_se5Y sat_se5X]; }; }; }; }; }; }; GHC.Types.True -> let { sat_se5Z :: Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int [LclId] = \u [] case ts of tpl1 { __DEFAULT -> Data.Text.Fusion.Internal.:*: [tpl1 lvl]; }; } in next1 sat_se5Z; }; }; }; };, [(next1, [])]), (unfold :: Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int -> [GHC.Types.Char] [GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []] = sat-only \r [s] case s of s1 { Data.Text.Fusion.Internal.:*: ipv ipv1 -> case next1 s1 of _ { Data.Text.Fusion.Internal.Done -> [] []; Data.Text.Fusion.Internal.Skip s' -> unfold s'; Data.Text.Fusion.Internal.Yield x s' -> let { sat_se63 :: [GHC.Types.Char] [LclId] = \u [] unfold s'; } in : [x sat_se63]; }; };, [(unfold, [])]), (a1 :: Data.Text.Lazy.Internal.Text -> 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=1, Caf=NoCafRefs, Str=DmdType L, Unf=OtherCon []] = sat-only \r [x] let { w :: [GHC.Types.Char] [LclId] = \u [] case x of tpl { __DEFAULT -> let { sat_se64 :: Data.Text.Fusion.Internal.PairS Data.Text.Lazy.Internal.Text GHC.Types.Int [LclId] = NO_CCS Data.Text.Fusion.Internal.:*:! [tpl lvl]; } in unfold sat_se64; }; } in let { sat_se65 :: 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 #) [LclId] = \r [w1 w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> Blaze.ByteString.Builder.Char8.$wa1 w w1 ww ww1 w3; }; } in sat_se65;, [(a1, [])]), (Blaze.ByteString.Builder.Char8.fromLazyText [InlPrag=INLINE (sat-args=0)] :: Data.Text.Lazy.Internal.Text -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType L, Unf=OtherCon []] = \r [eta_B1] a1 eta_B1;, [(Blaze.ByteString.Builder.Char8.fromLazyText, [])]), (Blaze.ByteString.Builder.Char8.$wa :: GHC.Types.Char -> 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=5, Caf=NoCafRefs, Str=DmdType LLLLL, Unf=OtherCon []] = \r [w w1 ww ww1 w2] let { a2 [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 ww2 ww3 -> $wa2 w3 ww2 ww3 w5; }; $wa2 [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 ww2 ww3 w4] case plusAddr# [ww2 1] of sat_se68 { __DEFAULT -> case leAddr# [sat_se68 ww3] of _ { GHC.Types.False -> let { sat_se3C :: Blaze.ByteString.Builder.Internal.Types.BuildStep r1 [LclId] = \r [eta_B2 eta_B1] a2 w3 eta_B2 eta_B1; } in let { sat_se67 :: Blaze.ByteString.Builder.Internal.Types.BuildSignal r1 [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufferFull! [1 ww2 sat_se3C]; } in (#,#) [w4 sat_se67]; GHC.Types.True -> case w of _ { GHC.Types.C# c# -> case ord# [c#] of sat_se3J { __DEFAULT -> case int2Word# [sat_se3J] of sat_se3L { __DEFAULT -> case narrow8Word# [sat_se3L] of sat_se6a { __DEFAULT -> case writeWord8OffAddr# [ww2 0 sat_se6a w4] of s2 { __DEFAULT -> case plusAddr# [ww2 1] of sat_se3P { __DEFAULT -> let { sat_se69 :: Blaze.ByteString.Builder.Internal.Types.BufRange [LclId] = NO_CCS Blaze.ByteString.Builder.Internal.Types.BufRange! [sat_se3P ww3]; } in w3 sat_se69 s2; }; }; }; }; }; }; }; }; } in $wa2 w1 ww ww1 w2;, [(Blaze.ByteString.Builder.Char8.$wa, [])]), (Blaze.ByteString.Builder.Char8.fromChar1 [InlPrag=INLINE[0]] :: GHC.Types.Char -> 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 LLU(LL)L, Unf=OtherCon []] = \r [w w1 w2 w3] case w2 of _ { Blaze.ByteString.Builder.Internal.Types.BufRange ww ww1 -> Blaze.ByteString.Builder.Char8.$wa w w1 ww ww1 w3; };, [(Blaze.ByteString.Builder.Char8.fromChar1, [])]), (Blaze.ByteString.Builder.Char8.fromChar :: GHC.Types.Char -> Blaze.ByteString.Builder.Internal.Types.Builder [GblId, Arity=4, Caf=NoCafRefs, Str=DmdType LLU(LL)L, Unf=OtherCon []] = \r [eta_B4 eta_B3 eta_B2 eta_B1] Blaze.ByteString.Builder.Char8.fromChar1 eta_B4 eta_B3 eta_B2 eta_B1;, [(Blaze.ByteString.Builder.Char8.fromChar, [])])]