Skip to content

Instantly share code, notes, and snippets.

@puffnfresh

puffnfresh/cached.hi

Created June 3, 2015 05:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save puffnfresh/fe3c86baf416114ef644 to your computer and use it in GitHub Desktop.
Save puffnfresh/fe3c86baf416114ef644 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cached.hi
Magic: Wanted 33214052,
got 33214052
Version: Wanted [7, 1, 0, 1],
got [7, 1, 0, 1]
Way: Wanted [],
got []
interface Data.ByteString.Internal 7101
interface hash: 056ceb76b56a3b21f4ca7799fac1c619
ABI hash: e21b8847561cbe5e90ea8575c05cf39f
export-list hash: 74a633b08709f79653af949c3543830e
orphan hash: 2b6d1eaa74b458417116adbc05d8472a
flag hash: 5a3c509800f2b89dd8da2f004b3fee48
sig of: Nothing
used TH splices: False
where
exports:
accursedUnutterablePerformIO
c2w
c_count
c_free_finalizer
c_intersperse
c_maximum
c_minimum
c_reverse
c_strlen
checkedSum
create
createAndTrim
createAndTrim'
createUptoN
fromForeignPtr
inlinePerformIO
isSpaceChar8
isSpaceWord8
mallocByteString
memchr
memcmp
memcpy
memset
nullForeignPtr
packBytes
packChars
packUptoLenBytes
packUptoLenChars
toForeignPtr
unpackAppendBytesLazy
unpackAppendBytesStrict
unpackAppendCharsLazy
unpackAppendCharsStrict
unpackBytes
unpackChars
unsafeCreate
unsafeCreateUptoN
unsafePackAddress
unsafePackLenBytes
unsafePackLenChars
w2c
ByteString{PS}
module dependencies:
package dependencies: array-0.5.1.0 base-4.8.0.0 deepseq-1.4.1.1
ghc-prim-0.4.0.0 integer-gmp-1.0.0.0
orphans: GHC.Base GHC.Float
family instance modules: Control.Applicative Data.Either
Data.Functor.Identity Data.Monoid Data.Type.Equality Data.Void
GHC.Generics
import -/ Control.Exception 4b8ae776b8a5d0df6d3d5b4816f3c36b
import -/ Data.Char be7b582bbee0e2e8a92ebc1dc2c4ad6b
import -/ Data.Data 0a7a6dace4f2621976d81b585cbe04f0
import -/ Data.Foldable 76fe05bf578c452d0026c11e2150c50a
import -/ Data.List 1ce1df0135dc40608b7509b64b1b1155
import -/ Data.String 98a095880d7c2aa8d3242ea2adcdeaf5
import -/ Data.Typeable 050629664757d4d1f17ceed68545648b
import -/ Data.Typeable.Internal e488b48384b93b424eb4708b9a56b8cd
import -/ Data.Word 326930a4d7ef3baeedf20ef3a3becde6
import -/ Foreign.C.String e1bb0968b824e79992717b834b2d4a60
import -/ Foreign.C.Types dccdbd6b91c9ef8600827134eb24ccb5
import -/ Foreign.ForeignPtr a6c82ab279b1aea66f8353042c6734f8
import -/ Foreign.ForeignPtr.Imp becfaa1afda17ded206dfcef7d259158
import -/ Foreign.Ptr dc9d624808b15f29a36723beab302605
import -/ Foreign.Storable e84ec3705dd719fa9203cd769a269e83
import -/ GHC.Base 863c60f0ab7f851fd8d7f952f99143b1
import -/ GHC.ForeignPtr 343684387db6ba2e1c8b88988eca30ae
import -/ GHC.IO b3eea0920265f5475d3a274511f7c730
import -/ GHC.Num 3912aee06aa642e5ba69b9252c24062e
import -/ GHC.Ptr cccb06aae38a90a93ec944d4c9fb99ae
import -/ GHC.Read cb0f5227c01c66d7cfecbe39e76803bc
import -/ GHC.Real ff7c7991041a4d3d0fb4f36a75d044db
import -/ GHC.Show 0bdcf2b084dcf8c754739939bb684fd9
import -/ GHC.Word 6f7d1e49db7dbe48eec647a9b4ca66ed
import -/ Prelude 3bb8abb5a9ad10553c41284b8dee6bef
import -/ Control.DeepSeq 26fd2982af2f2d2524bbe65933bb216b
import -/ GHC.CString 2b4f0be3069c46629422451e1bbb1de6
import -/ GHC.Classes e1f4ff80f7b5262008a595d29986fb18
import -/ GHC.Prim 00000000000000000000000000000000
import -/ GHC.Types 6b27fb3fdbd0e3f0925a4496c66513bb
addDependentFile "libraries/bytestring/dist-install/build/autogen/cabal_macros.h"
addDependentFile "/nix/store/c2zjp7bqmp5wvpkrpl7p7sfhxbdyfryy-glibc-2.21/include/stdc-predef.h"
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString :: Data ByteString
DFunId[0]
{- Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fDataByteString20
$fDataByteString_$cgfoldl
$fDataByteString_$cgunfold
$fDataByteString_$ctoConstr
$fDataByteString_$cdataTypeOf
$fDataByteString_$s$dmdataCast1
$fDataByteString_$s$dmdataCast2
$fDataByteString_$cgmapT
$fDataByteString_$cgmapQl
$fDataByteString_$cgmapQr
$fDataByteString_$cgmapQ
$fDataByteString_$cgmapQi
$fDataByteString_$cgmapM
$fDataByteString_$cgmapMp
$fDataByteString_$cgmapMo -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString1 :: ([Word8] -> ByteString, Bool)
{- Unfolding: ((packBytes, False)) -}
0f4aa0753040fb6c8fb6dabb9a23ec8e
$fDataByteString10 :: TypeRep
{- Unfolding: (TypeRep
__word 4673197808472169995
__word 1591651367984728364
$fDataByteString11
([] @ KindRep)
([] @ TypeRep)) -}
1e31a69104e27dca0348eb397c70e80d
$fDataByteString11 :: TyCon
{- Unfolding: (TyCon
__word 4673197808472169995
__word 1591651367984728364
$fDataByteString14
$fDataByteString13
$fDataByteString12) -}
78671c1eb4926d089cfc7519d7579e19
$fDataByteString12 :: [Char]
{- Unfolding: (unpackCString# "Word8"#) -}
9aaafbf70349ac4082ca8d2264688420
$fDataByteString13 :: [Char]
{- Unfolding: (unpackCString# "GHC.Word"#) -}
6d32b1a3c344af94a2bd92886efa76d8
$fDataByteString14 :: [Char]
{- Unfolding: (unpackCString# "base"#) -}
a2d43f3d124c62ee3f094153871eea85
$fDataByteString15 :: Fingerprint
{- HasNoCafRefs,
Unfolding: (Fingerprint
__word 17730107610217102821
__word 9866972337190828755) -}
f268e58ef555908613318fea06253967
$fDataByteString16 :: DataType
{- Strictness: m, Unfolding: (DataType $fDataByteString17 NoRep) -}
dea99e63225f91dcafcd3589b7066dee
$fDataByteString17 :: [Char]
{- Unfolding: (unpackCString# "Data.ByteString.ByteString"#) -}
5a87f13637f5b6c03a08218bece91942
$fDataByteString18 :: Constr
{- Strictness: b -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString19 :: Constr -> c ByteString
{- Strictness: b -}
e1904048866e8b3a91dc53a4d664e5d7
$fDataByteString2 ::
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c [Word8])
{- Arity: 2, HasNoCafRefs, Strictness: <L,A><L,A>,
Unfolding: InlineRule (2, True, True)
(\ @ (c :: * -> *)
@ (t :: * -> * -> *)
$dTypeable1 :: Typeable t
ds :: forall d e. (Data d, Data e) => c (t d e) ->
Nothing @ (c [Word8])) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString20 :: Typeable ByteString
{- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (0, True, True)
$fDataByteString21
`cast`
(Sym (NTCo:Typeable[0] <*>_N <ByteString>_N)) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString21 :: Proxy# ByteString -> TypeRep
{- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (1, True, True)
(\ wild :: Proxy# ByteString -> $fDataByteString22) -}
765c0e2258f4bd2d39cd4682bdbbb8f0
$fDataByteString22 :: TypeRep
{- Strictness: m,
Unfolding: (TypeRep
__word 17550167813363126540
__word 3988316862246226873
$fDataByteString_wild1
([] @ KindRep)
([] @ TypeRep)) -}
aa00528be0f1b2418c0dc68145cd718d
$fDataByteString3 ::
Typeable t => (forall d. Data d => c (t d)) -> Maybe (c [Word8])
{- Arity: 2,
Strictness: <C(S(SLLLL)),1*C1(U(1*U,1*U,A,A,A))><L,1*C1(U)>,
Unfolding: InlineRule (2, True, False)
(\ @ (c :: * -> *)
@ (t :: * -> *)
$dTypeable1 :: Typeable t
f :: forall d. Data d => c (t d) ->
case $dTypeable1 `cast` (NTCo:Typeable[0] <* -> *>_N <t>_N)
(proxy# @ (* -> *) @ t) of wild { TypeRep dt dt1 ds2 ds3 ds4 ->
case dt of wild1 {
DEFAULT -> Nothing @ (c [Word8])
__word 17730107610217102821
-> case dt1 of wild2 {
DEFAULT -> Nothing @ (c [Word8])
__word 9866972337190828755
-> Just
@ (c [Word8])
(f @ Word8 $fDataWord8)
`cast`
(<c>_R (Trans
(UnivCo mkUnsafeCo nominal t Any)
(UnivCo mkUnsafeCo nominal Any []) <Word8>_N)) } } }) -}
454ce166510d348a1962b4602754895f
$fDataByteString4 :: [Word8] -> DataType
{- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (1, True, True)
(\ ds :: [Word8] -> listDataType) -}
20f400f155a7dfe4c2d0d17104e7aa06
$fDataByteString5 :: [Word8] -> Constr
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: InlineRule (1, True, False)
(\ ds :: [Word8] ->
case ds of wild { [] -> nilConstr : ds1 ds2 -> consConstr }) -}
9ae093de44fde0956a40b85726b15301
$fDataByteString6 :: Proxy# [Word8] -> TypeRep
{- Arity: 1, Strictness: <L,A>,
Unfolding: InlineRule (1, True, True)
(\ wild :: Proxy# [Word8] -> $fDataByteString7) -}
a9ac7857438661ce543b0edd38bb2439
$fDataByteString7 :: TypeRep
{- Unfolding: (case $fDataByteString_w1 of wild2 {
[]
-> TypeRep
__word 17730107610217102821
__word 9866972337190828755
$fDataByteString_wild
([] @ KindRep)
([] @ TypeRep)
: ipv ipv1
-> case fingerprintFingerprints
$fDataByteString8 of dt { Fingerprint dt1 dt2 ->
TypeRep dt1 dt2 $fDataByteString_wild ([] @ KindRep) wild2 } }) -}
bc699b1cde79dae98a92623d01d0116e
$fDataByteString8 :: [Fingerprint]
{- Unfolding: (: @ Fingerprint
$fDataByteString15
$fDataByteString_z) -}
59921c27747abd4acd9b63ffecc1cdf4
$fDataByteString9 :: [TypeRep]
{- Unfolding: (: @ TypeRep $fDataByteString10 ([] @ TypeRep)) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cdataTypeOf :: ByteString -> DataType
{- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (1, True, True)
(\ ds :: ByteString -> $fDataByteString16) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgfoldl ::
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> ByteString -> c ByteString
{- Arity: 3,
Strictness: <C(C(C(S))),1*C1(C1(C1(U)))><L,1*C1(U)><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (3, True, False)
(\ @ (c :: * -> *)
f :: forall d b. Data d => c (d -> b) -> d -> c b
z :: forall g. g -> c g
txt :: ByteString ->
f @ [Word8]
@ ByteString
$fDataByteString_$s$fData[]
(z @ ([Word8] -> ByteString) packBytes)
(unpackBytes txt)) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapM ::
Monad m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
{- Arity: 3,
Strictness: <S(LC(C(S))LLL),U(A,C(C1(U)),A,C(U),A)><L,C(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ @ (m :: * -> *)
$dMonad :: Monad m
f :: forall d. Data d => d -> m d
eta :: ByteString ->
let {
lvl15 :: m [Word8]
= f @ [Word8]
$fDataByteString_$s$fData[]
(case eta of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) })
} in
>>=
@ m
$dMonad
@ ([Word8] -> ByteString)
@ ByteString
(return @ m $dMonad @ ([Word8] -> ByteString) packBytes)
(\ c' :: [Word8] -> ByteString ->
>>=
@ m
$dMonad
@ [Word8]
@ ByteString
lvl15
(\ x' :: [Word8] -> return @ m $dMonad @ ByteString (c' x')))) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapMo ::
MonadPlus m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
{- Arity: 3,
Strictness: <S(LSLL),U(A,1*U,U,C(C1(U)))><L,C(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ @ (m :: * -> *)
$dMonadPlus :: MonadPlus m
eta :: forall d. Data d => d -> m d
eta1 :: ByteString ->
let {
$dMonad :: Monad m = $p2MonadPlus @ m $dMonadPlus
} in
let {
lvl15 :: m ByteString = mzero @ m $dMonadPlus @ ByteString
} in
>>=
@ m
$dMonad
@ (ByteString, Bool)
@ ByteString
(let {
y :: [Word8]
= case eta1 of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) }
} in
let {
lvl16 :: m [Word8] = eta @ [Word8] $fDataByteString_$s$fData[] y
} in
>>=
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
@ (ByteString, Bool)
(return
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
$fDataByteString1)
(\ ds1 :: ([Word8] -> ByteString, Bool) ->
case ds1 of wild { (,) h b1 ->
case b1 of wild1 {
False
-> mplus
@ m
$dMonadPlus
@ (ByteString, Bool)
(>>=
@ m
$dMonad
@ [Word8]
@ (ByteString, Bool)
lvl16
(\ y' :: [Word8] ->
return @ m $dMonad @ (ByteString, Bool) (h y', True)))
(return @ m $dMonad @ (ByteString, Bool) (h y, False))
True -> return @ m $dMonad @ (ByteString, Bool) (h y, True) } }))
(\ ds :: (ByteString, Bool) ->
case ds of wild { (,) x' b ->
case b of wild1 {
False -> lvl15 True -> return @ m $dMonad @ ByteString x' } })) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapMp ::
MonadPlus m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
{- Arity: 3,
Strictness: <S(LSLL),U(A,1*U,U,C(C1(U)))><L,C(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ @ (m :: * -> *)
$dMonadPlus :: MonadPlus m
eta :: forall d. Data d => d -> m d
eta1 :: ByteString ->
let {
$dMonad :: Monad m = $p2MonadPlus @ m $dMonadPlus
} in
let {
lvl15 :: m ByteString = mzero @ m $dMonadPlus @ ByteString
} in
>>=
@ m
$dMonad
@ (ByteString, Bool)
@ ByteString
(let {
y :: [Word8]
= case eta1 of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) }
} in
let {
lvl16 :: m [Word8] = eta @ [Word8] $fDataByteString_$s$fData[] y
} in
>>=
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
@ (ByteString, Bool)
(return
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
$fDataByteString1)
(\ ds1 :: ([Word8] -> ByteString, Bool) ->
case ds1 of wild { (,) h b1 ->
mplus
@ m
$dMonadPlus
@ (ByteString, Bool)
(>>=
@ m
$dMonad
@ [Word8]
@ (ByteString, Bool)
lvl16
(\ y' :: [Word8] ->
return @ m $dMonad @ (ByteString, Bool) (h y', True)))
(return @ m $dMonad @ (ByteString, Bool) (h y, b1)) }))
(\ ds :: (ByteString, Bool) ->
case ds of wild { (,) x' b ->
case b of wild1 {
False -> lvl15 True -> return @ m $dMonad @ ByteString x' } })) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQ ::
(forall d. Data d => d -> u) -> ByteString -> [u]
{- Arity: 2, Strictness: <L,1*C1(C1(U))><L,1*U(U,U,U,U)>m2,
Unfolding: InlineRule (2, True, False)
(\ @ u f :: forall d. Data d => d -> u x0 :: ByteString ->
: @ u
(f @ [Word8]
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x0 ([] @ Word8)))
([] @ u)) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQi ::
Int -> (forall d. Data d => d -> u) -> ByteString -> u
{- Arity: 3,
Strictness: <S(S),1*U(1*U)><C(C(S)),1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (3, True, False)
(\ @ u i :: Int f :: forall d. Data d => d -> u x :: ByteString ->
case i of wild1 { I# x1 ->
case x1 of wild {
DEFAULT -> fromJust1 @ u
0
-> f @ [Word8]
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x ([] @ Word8)) } }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQl ::
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> ByteString -> r
{- Arity: 4,
Strictness: <C(C(S)),1*C1(C1(U))><L,U><L,1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (4, True, False)
(\ @ r
@ r'
o :: r -> r' -> r
r1 :: r
f :: forall d. Data d => d -> r'
eta :: ByteString ->
o r1
(f @ [Word8] $fDataByteString_$s$fData[] (unpackBytes eta))) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQr ::
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> ByteString -> r
{- Arity: 4,
Strictness: <C(C(S)),1*C1(C1(U))><L,U><L,1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (4, True, False)
(\ @ r
@ r'
o :: r' -> r -> r
r0 :: r
f :: forall d. Data d => d -> r'
x0 :: ByteString ->
o (f @ [Word8]
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x0 ([] @ Word8)))
r0) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapT ::
(forall b. Data b => b -> b) -> ByteString -> ByteString
{- Arity: 2, Strictness: <L,1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ f :: forall b. Data b => b -> b x0 :: ByteString ->
let {
ws :: [Word8]
= f @ [Word8]
$fDataByteString_$s$fData[]
(case x0 of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) })
} in
unsafePackLenBytes
(case $wlenAcc @ Word8 ws 0 of ww2 { DEFAULT -> I# ww2 })
ws) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgunfold ::
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c ByteString
{- Arity: 2, Strictness: <B,A><B,A>b,
Unfolding: InlineRule (2, True, True)
(\ @ (c :: * -> *)
ds :: forall b r. Data b => c (b -> r) -> c r
ds1 :: forall r. r -> c r ->
$fDataByteString19 @ c) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$ctoConstr :: ByteString -> Constr
{- Arity: 1, Strictness: <B,A>b,
Unfolding: InlineRule (1, True, True)
(\ ds :: ByteString -> $fDataByteString18) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$s$dmdataCast1 ::
Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ByteString)
{- Arity: 2, HasNoCafRefs, Strictness: <L,A><L,A>,
Unfolding: InlineRule (-1, True, True)
(\ @ (c :: * -> *)
@ (t :: * -> *)
$dTypeable :: Typeable t
ds :: forall d. Data d => c (t d) ->
Nothing @ (c ByteString)) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$s$dmdataCast2 ::
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ByteString)
{- Arity: 2, HasNoCafRefs, Strictness: <L,A><L,A>,
Unfolding: InlineRule (-1, True, True)
(\ @ (c :: * -> *)
@ (t :: * -> * -> *)
$dTypeable :: Typeable t
ds :: forall d e. (Data d, Data e) => c (t d e) ->
Nothing @ (c ByteString)) -}
0456df0d8dad453e4f5c4fcafae7877c
$fDataByteString_$s$fData[] :: Data [Word8]
{- Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ [Word8]
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
($fData[]_$cgfoldl
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgunfold
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
$fDataByteString5
$fDataByteString4
$fDataByteString3
$fDataByteString2
($fData[]_$cgmapT
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQl
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQr
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQ
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQi
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapM
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapMp
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapMo
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8) -}
774f7419a038f41c12289dad43641f9d
$fDataByteString_w1 :: [TypeRep]
{- Unfolding: (++ @ TypeRep ([] @ TypeRep) $fDataByteString9) -}
550a7e90f88a76b8fb997924b706d53e
$fDataByteString_wild :: TyCon
{- Strictness: m,
Unfolding: (TyCon
__word 17730107610217102821
__word 9866972337190828755
$fDataByteString_ww2
$fDataByteString_ww3
$fDataByteString_ww4) -}
c4863c8b3afdcd9507c0125f588cd560
$fDataByteString_wild1 :: TyCon
{- Strictness: m,
Unfolding: (TyCon
__word 17550167813363126540
__word 3988316862246226873
$fDataByteString_ww6
$fDataByteString_ww5
$fDataByteString_ww1) -}
bc0c812d2993a2fc25c1335d224e1895
$fDataByteString_ww1 :: String
{- Unfolding: (unpackCString# "ByteString"#) -}
e0b50fc3a7b2c3718d564647b1b46a64
$fDataByteString_ww2 :: String
{- Unfolding: (unpackCString# "ghc-prim"#) -}
adf1c5493ab4d5fd3e0483a9f93928c6
$fDataByteString_ww3 :: String
{- Unfolding: (unpackCString# "GHC.Types"#) -}
3ed5df943b73b5644b07130da41cf840
$fDataByteString_ww4 :: String
{- Unfolding: (unpackCString# "[]"#) -}
9cbbdc2cb48a9e6d500b95976d2c2594
$fDataByteString_ww5 :: String
{- Unfolding: (unpackCString# "Data.ByteString.Internal"#) -}
56fac0b59f3447b1d8bf93a471b7b14f
$fDataByteString_ww6 :: String
{- Unfolding: (unpackCString# "bytes_6vj5EoliHgNHISHCVCb069"#) -}
a17cd50fb231fa948baf17168f513caa
$fDataByteString_z :: [Fingerprint]
{- Unfolding: (listTc_go $fDataByteString_w1) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fEqByteString :: Eq ByteString
DFunId[0]
{- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:. @ ByteString eq $fEqByteString_$c/= -}
684f63cce4f7bfa468fb4a3fe46996e6
$fEqByteString_$c/= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ x :: ByteString y :: ByteString -> not (eq x y)) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fIsStringByteString :: IsString ByteString
DFunId[0]
{- Arity: 1, Strictness: <L,U>, Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, True)
packChars `cast` (Sym (NTCo:IsString[0]) <ByteString>_N) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString :: Monoid ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fMonoidByteString_$cmempty
$fMonoidByteString_$cmappend
$fMonoidByteString_$cmconcat -}
ae605af85366e79d0675cc8c5ce3699b
$fMonoidByteString1 :: [Char]
{- Unfolding: (unpackCString# "concat"#) -}
45d993c4d3b61d51c3e0a695c8e12ddc
$fMonoidByteString2 :: String -> Int
{- Arity: 1, Strictness: <L,U>b -}
917f7dd81ab17f1771f9522c03ad9d4a
$fMonoidByteString3 :: ForeignPtrContents
{- Strictness: b -}
684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$cmappend ::
ByteString -> ByteString -> ByteString
{- Arity: 2, Strictness: <S(LLLS),1*U(U,U,U,U)><S,1*U(U,U,U,U)>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: ByteString ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
case w1 of ww5 { PS ww6 ww7 ww8 ww9 ->
$w$cmappend ww1 ww2 ww3 ww4 ww6 ww7 ww8 ww9 } }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$cmconcat :: [ByteString] -> ByteString
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: (\ ds :: [ByteString] ->
case ds of wild {
[] -> $fMonoidByteString_$cmempty
: bs ds1
-> case ds1 of wild1 {
[] -> bs
: ipv ipv1
-> unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
case $wcheckedSum
$fMonoidByteString1
($fMonoidByteString_$sgo bs wild1) of ww { DEFAULT ->
case tagToEnum# @ Bool (<# ww 0) of wild2 {
False
-> case newPinnedByteArray#
@ RealWorld
ww
eta of ds2 { (#,#) ipv2 ipv3 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv3
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $fMonoidByteString_$s$wa
bs
wild1
a16
ipv2 of ds3 { (#,#) ipv4 ipv5 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv3
} in
case touch# @ ForeignPtrContents a17 ipv4 of s' { DEFAULT ->
(# s', PS a16 a17 0 ww #) } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R)) } }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$cmempty :: ByteString
{- Strictness: m, Unfolding: (PS __NULL $fMonoidByteString3 0 0) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$s$wa ::
ByteString
-> [ByteString]
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, () #)
{- Arity: 4, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U> -}
684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$sgo :: ByteString -> [ByteString] -> [Int]
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U> -}
684f63cce4f7bfa468fb4a3fe46996e6
$fNFDataByteString :: NFData ByteString
DFunId[0]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*H>,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, True)
$fNFDataByteString_$crnf
`cast`
(Sym (NTCo:NFData[0] <ByteString>_N)) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fNFDataByteString_$crnf :: ByteString -> ()
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*H>,
Unfolding: InlineRule (1, True, False)
(\ ds :: ByteString ->
case ds of wild { PS dt dt1 dt2 dt3 -> () }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString :: Ord ByteString
DFunId[0]
{- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fEqByteString
compareBytes
$fOrdByteString_$s$dm<
$fOrdByteString_$s$dm<=
$fOrdByteString_$s$dm>
$fOrdByteString_$s$dm>=
$fOrdByteString_$cmax
$fOrdByteString_$cmin -}
684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$cmax :: ByteString -> ByteString -> ByteString
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),U(U,U,U,U)><S,U(U,U,U,U)>m,
Unfolding: InlineRule (2, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> y GT -> x }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$cmin :: ByteString -> ByteString -> ByteString
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),U(U,U,U,U)><S,U(U,U,U,U)>m,
Unfolding: InlineRule (2, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> x GT -> y }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm< :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> False LT -> True }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm<= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> True GT -> False }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm> :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> False GT -> True }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm>= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> True LT -> False }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString :: Read ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fReadByteString_$creadsPrec
$fReadByteString_$creadList
$fReadByteString_$creadPrec
$fReadByteString_$creadListPrec -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString1 :: Prec -> forall b. ([ByteString] -> P b) -> P b
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (2, True, False)
(\ eta :: Prec @ b eta1 :: [ByteString] -> P b ->
case $wa5
@ [ByteString]
$fReadByteString_$creadList
@ b
eta1 of ww { (##) ww1 ->
Look @ b ww1 }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString2 :: P [ByteString]
{- Unfolding: ($wa
@ ByteString
$fReadByteString3
`cast`
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <ByteString>_R))
(Sym (NTCo:ReadPrec[0] <ByteString>_R)))
@ [ByteString]
($fApplicativeP_$creturn @ [ByteString])) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString3 :: Prec -> forall b. (ByteString -> P b) -> P b
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (2, True, False)
(\ eta :: Prec @ b eta1 :: ByteString -> P b ->
case $wa5
@ ByteString
($fReadByteString_$creadsPrec eta)
@ b
eta1 of ww { (##) ww1 ->
Look @ b ww1 }) -}
4a4ab227534bb58dd8844e50a7368652
$fReadByteString4 :: P [Char]
{- Unfolding: ($wa19
@ [Char]
($fApplicativeP_$creturn @ [Char])) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadList :: ReadS [ByteString]
{- Arity: 1, Unfolding: (run @ [ByteString] $fReadByteString2) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadListPrec :: ReadPrec [ByteString]
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (0, True, True)
$fReadByteString1
`cast`
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <[ByteString]>_R))
(Sym (NTCo:ReadPrec[0] <[ByteString]>_R))) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadPrec :: ReadPrec ByteString
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (0, True, True)
$fReadByteString3
`cast`
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <ByteString>_R))
(Sym (NTCo:ReadPrec[0] <ByteString>_R))) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadsPrec :: Int -> ReadS ByteString
{- Arity: 2, Strictness: <L,A><L,U>, Inline: INLINE[0],
Unfolding: InlineRule (2, True, True)
(\ w :: Int w1 :: String -> $w$creadsPrec w1) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_go :: [([Char], String)] -> [(ByteString, String)]
{- Arity: 1, Strictness: <S,1*U> -}
684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString :: Show ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fShowByteString_$cshowsPrec
$fShowByteString_$cshow
$fShowByteString_$cshowList -}
684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString1 :: ByteString -> ShowS
{- Arity: 2, Strictness: <L,1*U(U,U,U,U)><L,U>m2,
Unfolding: InlineRule (2, True, False)
(\ ps :: ByteString r :: String ->
: @ Char
shows6
(showLitString (unpackChars ps) (: @ Char shows6 r))) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString_$cshow :: ByteString -> String
{- Arity: 1, Strictness: <L,1*U(U,U,U,U)>m2,
Unfolding: InlineRule (1, True, False)
(\ x :: ByteString ->
: @ Char
shows6
(showLitString (unpackChars x) (: @ Char shows6 ([] @ Char)))) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString_$cshowList :: [ByteString] -> ShowS
{- Arity: 2, Strictness: <S,1*U><L,U>,
Unfolding: (\ ls :: [ByteString] s :: String ->
showList__ @ ByteString $fShowByteString1 ls s) -}
684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString_$cshowsPrec :: Int -> ByteString -> ShowS
{- Arity: 3, Strictness: <L,A><L,1*U(U,U,U,U)><L,U>m2,
Unfolding: InlineRule (3, True, False)
(\ p :: Int ps :: ByteString r :: String ->
: @ Char
shows6
(showLitString (unpackChars ps) (: @ Char shows6 r))) -}
684f63cce4f7bfa468fb4a3fe46996e6
$w$cmappend ::
Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> ByteString
{- Arity: 8, Strictness: <L,U><L,U><L,U><S,U><L,U><L,U><L,U><L,U>,
Inline: [0],
Unfolding: (\ ww :: Addr#
ww1 :: ForeignPtrContents
ww2 :: Int#
ww3 :: Int#
ww4 :: Addr#
ww5 :: ForeignPtrContents
ww6 :: Int#
ww7 :: Int# ->
case ww3 of ds {
DEFAULT
-> case ww7 of ds1 {
DEFAULT
-> unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
let {
a16 :: Int# = +# ds ds1
} in
case tagToEnum# @ Bool (<# a16 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
a16
eta of ds2 { (#,#) ipv ipv1 ->
let {
a17 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}
a17
(plusAddr# ww ww2)
(int2Word# ds)
ipv of wild { (#,#) ds3 ds4 ->
case touch# @ ForeignPtrContents ww1 ds3 of s' { DEFAULT ->
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}
(plusAddr# a17 ds)
(plusAddr# ww4 ww6)
(int2Word# ds1)
s' of wild2 { (#,#) ds5 ds6 ->
case touch# @ ForeignPtrContents ww5 ds5 of s'1 { DEFAULT ->
let {
a18 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a18 s'1 of s'2 { DEFAULT ->
(# s'2, PS a17 a18 0 a16 #) } } } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R))
0 -> PS ww ww1 ww2 ds }
0 -> PS ww4 ww5 ww6 ww7 }) -}
684f63cce4f7bfa468fb4a3fe46996e6
$w$creadsPrec :: String -> [(ByteString, String)]
{- Arity: 1, Strictness: <L,U>, Inline: [0],
Unfolding: (\ w :: String ->
$fReadByteString_go (run @ [Char] $fReadByteString4 w)) -}
b30702501ffb401a57e2cb290002a68e
$wa ::
Addr# -> [Word8] -> State# RealWorld -> (# State# RealWorld, () #)
{- Arity: 3, HasNoCafRefs, Strictness: <L,U><S,1*U><L,U>,
Inline: [0] -}
e7fe201da3607232a4d5d0b0dc4ec56f
$wa1 ::
Addr# -> [Char] -> State# RealWorld -> (# State# RealWorld, () #)
{- Arity: 3, HasNoCafRefs, Strictness: <L,U><S,1*U><L,U>,
Inline: [0] -}
6814f72ae9189f2365efc07cef4f892e
$wa2 ::
Int#
-> (Ptr Word8 -> IO (Int, Int, a))
-> State# RealWorld
-> (# State# RealWorld, (ByteString, a) #)
{- Arity: 3,
Strictness: <L,U><L,1*C1(C1(U(U,1*U(1*U(U),1*U(U),U))))><L,U>,
Inline: [0],
Unfolding: (\ @ a16
ww :: Int#
w :: Ptr Word8 -> IO (Int, Int, a16)
w1 :: State# RealWorld[OneShot] ->
case tagToEnum# @ Bool (<# ww 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
ww
w1 of ds { (#,#) ipv ipv1 ->
let {
a17 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case (w (Ptr @ Word8 a17)) `cast` (NTCo:IO[0] <(Int, Int, a16)>_R)
ipv of ds1 { (#,#) ipv2 ipv3 ->
case ipv3 of wild { (,,) off l' res ->
case l' of wild2 { I# x ->
let {
a18 :: ForeignPtrContents = PlainPtr ipv1
} in
case tagToEnum# @ Bool (>=# x ww) of wild3 {
False
-> case tagToEnum# @ Bool (<# x 0) of wild4 {
False
-> case newPinnedByteArray#
@ RealWorld
x
ipv2 of ds2 { (#,#) ipv4 ipv5 ->
case off of wild5 { I# d ->
let {
a19 :: Addr#
= byteArrayContents#
ipv5
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld,
Addr# #)}
a19
(plusAddr# a17 d)
(int2Word# x)
ipv4 of wild6 { (#,#) ds3 ds4 ->
let {
a20 :: ForeignPtrContents = PlainPtr ipv5
} in
case touch# @ ForeignPtrContents a20 ds3 of s' { DEFAULT ->
case touch# @ ForeignPtrContents a18 s' of s'1 { DEFAULT ->
(# s'1, (PS a19 a20 0 x, res) #) } } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, a16) #)
of {} }
True
-> case touch# @ ForeignPtrContents a18 ipv2 of s' { DEFAULT ->
(# s', (PS a17 a18 0 ww, res) #) } } } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, a16) #)
of {} }) -}
72e4c9bac4e378db5e65e4f3d182770a
$wa3 ::
Addr#
-> Addr#
-> [Word8]
-> State# RealWorld
-> (# State# RealWorld, [Word8] #)
{- Arity: 4, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U>,
Inline: [0] -}
8d7295a4ce87107a2e55392a7032861f
$wa4 ::
Addr#
-> Addr#
-> [Char]
-> State# RealWorld
-> (# State# RealWorld, [Char] #)
{- Arity: 4, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U>,
Inline: [0] -}
d125a99bc507a73110b1371a4d06206b
$wcheckedSum :: String -> [Int] -> Int#
{- Arity: 2, Strictness: <L,1*U><S,1*U>, Inline: [0],
Unfolding: (\ w :: String w1 :: [Int] ->
letrec {
$wgo :: Int# -> [Int] -> Int#
{- Arity: 2, Strictness: <L,U><S,1*U>, Inline: [0] -}
= \ ww :: Int# w2 :: [Int] ->
case w2 of wild {
[] -> ww
: x xs
-> case x of wild1 { I# y ->
let {
x1 :: Int# = +# ww y
} in
case tagToEnum# @ Bool (>=# x1 0) of wild2 {
False -> case $fMonoidByteString2 w ret_ty Int# of {}
True -> $wgo x1 xs } } }
} in
$wgo 0 w1) -}
19c7c35ff5be871af07538c98382767f
$wcompareBytes ::
Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> Ordering
{- Arity: 8, HasNoCafRefs,
Strictness: <L,U><L,U><L,U><S,U><L,U><L,U><L,U><L,U>, Inline: [0],
Unfolding: (\ ww :: Addr#
ww1 :: ForeignPtrContents
ww2 :: Int#
ww3 :: Int#
ww4 :: Addr#
ww5 :: ForeignPtrContents
ww6 :: Int#
ww7 :: Int# ->
let {
fail :: Void# -> Ordering {- Arity: 1, Strictness: <L,A> -}
= \ ds :: Void#[OneShot] ->
let {
$j :: Int# -> Ordering {- Arity: 1, Strictness: <L,U> -}
= \ x# :: Int#[OneShot] ->
case {__pkg_ccall bytestring-0.10.6.0 memcmp Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld,
Int# #)}
(plusAddr# ww ww2)
(plusAddr# ww4 ww6)
(int2Word# x#)
realWorld# of wild { (#,#) ds1 ds2 ->
let {
a16 :: Int# = narrow32Int# ds2
} in
case case tagToEnum# @ Bool (<# a16 0) of wild2 {
False
-> case a16 of wild1 { DEFAULT -> GT 0 -> compareInt# ww3 ww7 }
True -> LT } of vx { DEFAULT ->
case touch# @ ForeignPtrContents ww5 ds1 of s' { DEFAULT ->
case touch# @ ForeignPtrContents ww1 s' of s'1 { DEFAULT ->
vx } } } }
} in
case tagToEnum# @ Bool (<=# ww3 ww7) of wild2 {
False -> $j ww7 True -> $j ww3 }
} in
case ww3 of ds {
DEFAULT -> fail void#
0 -> case ww7 of ds1 { DEFAULT -> fail void# 0 -> EQ } }) -}
862e911f1f61e057690c7d87e483cfd3
$wunpackAppendBytesLazy ::
Addr# -> ForeignPtrContents -> Int# -> Int# -> [Word8] -> [Word8]
{- Arity: 5, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U><L,U>,
Inline: [0] -}
b151dcb4e70f723b1a0c725e36461b14
$wunpackAppendCharsLazy ::
Addr# -> ForeignPtrContents -> Int# -> Int# -> [Char] -> [Char]
{- Arity: 5, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U><L,U>,
Inline: [0] -}
684f63cce4f7bfa468fb4a3fe46996e6
data ByteString
= PS {-# UNPACK #-}(ForeignPtr Word8)
{-# UNPACK #-}Int
{-# UNPACK #-}Int
0ee02063290fa19da3f0a4b5411a4c1d
accursedUnutterablePerformIO :: IO a -> a
{- Arity: 1, HasNoCafRefs, Strictness: <C(S(LS)),1*C1(U(A,1*U))>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ @ a16 ds :: IO a16 ->
case ds `cast` (NTCo:IO[0] <a16>_R)
realWorld# of ds1 { (#,#) ipv ipv1 ->
ipv1 }) -}
62e7d43691088970d10e817995993e12
c2w :: Char -> Word8
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U)>m,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, False)
(\ x :: Char ->
case ord x of wild { I# x# ->
W8# (narrow8Word# (int2Word# x#)) }) -}
7a7fb3914e34d843702d4c158d19e6d6
c_count :: Ptr Word8 -> CULong -> Word8 -> IO CULong
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (3, False, False)
(\ ds :: Ptr Word8
ds1 :: Word64
ds2 :: Word8
eta :: State# RealWorld[OneShot] ->
case ds of ds3 { Ptr ds4 ->
case ds1 of ds5 { W64# ds6 ->
case ds2 of ds7 { W8# ds8 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_count Addr#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds4
ds6
ds8
eta of wild { (#,#) ds9 ds10 ->
(# ds9, W64# ds10 #) } } } })
`cast`
(<Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R <Word8>_R
->_R Sym (NTCo:IO[0] (NTCo:CULong[0]))) -}
dd9a4c73a4e7634a63fec53090d3ce03
c_free_finalizer :: FunPtr (Ptr Word8 -> IO ())
{- Strictness: m,
Unfolding: (FunPtr
@ (Ptr Word8 -> IO ())
__label "free" (function)) -}
ffe406bdafb5ceeb88c35d45152dda30
c_intersperse :: Ptr Word8 -> Ptr Word8 -> CULong -> Word8 -> IO ()
{- Arity: 5, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (4, False, False)
(\ ds :: Ptr Word8
ds1 :: Ptr Word8
ds2 :: Word64
ds3 :: Word8
eta :: State# RealWorld[OneShot] ->
case ds of ds4 { Ptr ds5 ->
case ds1 of ds6 { Ptr ds7 ->
case ds2 of ds8 { W64# ds9 ->
case ds3 of ds10 { W8# ds11 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_intersperse Addr#
-> Addr#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}
ds5
ds7
ds9
ds11
eta of wild { (##) ds12 ->
(# ds12, () #) } } } } })
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R <Word8>_R
->_R Sym (NTCo:IO[0] <()>_R)) -}
82215cb9536a78ff4fda58814b10bf7f
c_maximum :: Ptr Word8 -> CULong -> IO Word8
{- Arity: 3, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (2, False, False)
(\ ds :: Ptr Word8
ds1 :: Word64
eta :: State# RealWorld[OneShot] ->
case ds of ds2 { Ptr ds3 ->
case ds1 of ds4 { W64# ds5 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_maximum Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds3
ds5
eta of wild { (#,#) ds6 ds7 ->
(# ds6, W8# (narrow8Word# ds7) #) } } })
`cast`
(<Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R Sym (NTCo:IO[0] <Word8>_R)) -}
81bccf6eb6f954816f95d1a093ed8e63
c_minimum :: Ptr Word8 -> CULong -> IO Word8
{- Arity: 3, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (2, False, False)
(\ ds :: Ptr Word8
ds1 :: Word64
eta :: State# RealWorld[OneShot] ->
case ds of ds2 { Ptr ds3 ->
case ds1 of ds4 { W64# ds5 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_minimum Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds3
ds5
eta of wild { (#,#) ds6 ds7 ->
(# ds6, W8# (narrow8Word# ds7) #) } } })
`cast`
(<Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R Sym (NTCo:IO[0] <Word8>_R)) -}
b857b7c759df17dfed725ac5977ad715
c_reverse :: Ptr Word8 -> Ptr Word8 -> CULong -> IO ()
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (3, False, False)
(\ ds :: Ptr Word8
ds1 :: Ptr Word8
ds2 :: Word64
eta :: State# RealWorld[OneShot] ->
case ds of ds3 { Ptr ds4 ->
case ds1 of ds5 { Ptr ds6 ->
case ds2 of ds7 { W64# ds8 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_reverse Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}
ds4
ds6
ds8
eta of wild { (##) ds9 ->
(# ds9, () #) } } } })
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R Sym (NTCo:IO[0] <()>_R)) -}
4fe78110bfec00a43d4770052e82f17b
c_strlen :: CString -> IO CSize
{- Arity: 2, HasNoCafRefs, Strictness: <S(S),1*U(U)><S,U>,
Unfolding: InlineRule (1, False, False)
(\ ds :: Ptr CChar eta :: State# RealWorld[OneShot] ->
case ds of ds1 { Ptr ds2 ->
case {__pkg_ccall bytestring-0.10.6.0 strlen Addr#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds2
eta of wild { (#,#) ds3 ds4 ->
(# ds3, W64# ds4 #) } })
`cast`
(<Ptr CChar>_R ->_R Sym (NTCo:IO[0] (NTCo:CSize[0]))) -}
6d191c50a0f8d179099c4978045d8f51
checkedSum :: String -> [Int] -> Int
{- Arity: 2, Strictness: <L,1*U><S,1*U>m, Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: String w1 :: [Int] ->
case $wcheckedSum w w1 of ww { DEFAULT -> I# ww }) -}
684f63cce4f7bfa468fb4a3fe46996e6
compareBytes :: ByteString -> ByteString -> Ordering
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: ByteString ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
case w1 of ww5 { PS ww6 ww7 ww8 ww9 ->
$wcompareBytes ww1 ww2 ww3 ww4 ww6 ww7 ww8 ww9 } }) -}
c07555c37b7959359732319398fec0f2
create :: Int -> (Ptr Word8 -> IO ()) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,A)))><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int
f :: Ptr Word8 -> IO ()
eta :: State# RealWorld[OneShot] ->
(bindIO
@ (ForeignPtr Word8)
@ ByteString
(mallocPlainForeignPtrBytes @ Word8 l)
(\ fp :: ForeignPtr Word8 ->
thenIO
@ ()
@ ByteString
($ @ (Ptr Word8 -> IO ())
@ (IO ())
(withForeignPtr @ Word8 @ () fp)
(\ p :: Ptr Word8 -> f p))
(case fp of dt { ForeignPtr dt1 dt2 ->
case l of dt3 { I# dt4 ->
$!
@ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(PS dt1 dt2 0 dt4) } })))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<Int>_R
->_R <Ptr Word8 -> IO ()>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
3139d1139e8821e76d7348e11b9ac028
createAndTrim :: Int -> (Ptr Word8 -> IO Int) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(U))))><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int
f :: Ptr Word8 -> IO Int
eta :: State# RealWorld[OneShot] ->
(bindIO
@ (ForeignPtr Word8)
@ ByteString
(mallocPlainForeignPtrBytes @ Word8 l)
(\ fp :: ForeignPtr Word8 ->
$ @ (Ptr Word8 -> IO ByteString)
@ (IO ByteString)
(withForeignPtr @ Word8 @ ByteString fp)
(\ p :: Ptr Word8 ->
bindIO
@ Int
@ ByteString
(f p)
(\ l' :: Int ->
case $ @ Bool
@ Bool
(assert @ Bool (leInt l' l))
(geInt l' l) of wild {
False
-> $ @ (Ptr Word8 -> IO ())
@ (IO ByteString)
(create l')
(\ p' :: Ptr Word8 eta1 :: State# RealWorld[OneShot] ->
(memcpy p' p l') `cast` (NTCo:IO[0] <()>_R) eta1)
`cast`
(<Ptr Word8>_R ->_R Sym (NTCo:IO[0] <()>_R))
True
-> case fp of dt { ForeignPtr dt1 dt2 ->
case l of dt3 { I# dt4 ->
$!
@ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(PS dt1 dt2 0 dt4) } } }))))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<Int>_R
->_R <Ptr Word8 -> IO Int>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
afa39f66d0942b05d3047dfa4d9c22ea
createAndTrim' ::
Int -> (Ptr Word8 -> IO (Int, Int, a)) -> IO (ByteString, a)
{- Arity: 3,
Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(1*U(U),1*U(U),U))))><L,U>,
Unfolding: InlineRule (0, True, True)
createAndTrim'1
`cast`
(forall a16.
<Int>_R
->_R <Ptr Word8 -> IO (Int, Int, a16)>_R
->_R Sym (NTCo:IO[0] <(ByteString, a16)>_R)) -}
ffd5d3de24a632a51a539caeed079d63
createAndTrim'1 ::
Int
-> (Ptr Word8 -> IO (Int, Int, a))
-> State# RealWorld
-> (# State# RealWorld, (ByteString, a) #)
{- Arity: 3,
Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(1*U(U),1*U(U),U))))><L,U>,
Inline: INLINE[0],
Unfolding: InlineRule (3, True, False)
(\ @ a16
w :: Int
w1 :: Ptr Word8 -> IO (Int, Int, a16)
w2 :: State# RealWorld[OneShot] ->
case w of ww { I# ww1 -> $wa2 @ a16 ww1 w1 w2 }) -}
dc7ccf3e809c06eb633f81e2e322c45f
createUptoN :: Int -> (Ptr Word8 -> IO Int) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(U))))><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int
f :: Ptr Word8 -> IO Int
eta :: State# RealWorld[OneShot] ->
(bindIO
@ (ForeignPtr Word8)
@ ByteString
(mallocPlainForeignPtrBytes @ Word8 l)
(\ fp :: ForeignPtr Word8 ->
bindIO
@ Int
@ ByteString
($ @ (Ptr Word8 -> IO Int)
@ (IO Int)
(withForeignPtr @ Word8 @ Int fp)
(\ p :: Ptr Word8 -> f p))
(\ l' :: Int ->
$ @ (IO ByteString)
@ (IO ByteString)
(assert @ (IO ByteString) (leInt l' l))
(case fp of dt { ForeignPtr dt1 dt2 ->
case l' of dt3 { I# dt4 ->
$!
@ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(PS dt1 dt2 0 dt4) } }))))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<Int>_R
->_R <Ptr Word8 -> IO Int>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
684f63cce4f7bfa468fb4a3fe46996e6
eq :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S,1*U(U,U,U,U)><S,1*U(U,U,U,U)>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ a16 :: ByteString b :: ByteString ->
case a16 of wild { PS dt dt1 dt2 dt3 ->
case b of wild1 { PS dt4 dt5 dt6 dt7 ->
case tagToEnum# @ Bool (/=# dt3 dt7) of wild2 {
False
-> case &&
($fEqForeignPtr_$c==
@ Word8
(ForeignPtr @ Word8 dt dt1)
(ForeignPtr @ Word8 dt4 dt5))
(tagToEnum# @ Bool (==# dt2 dt6)) of wild3 {
False -> $fEqOrdering_$c== (compareBytes wild wild1) EQ
True -> True }
True -> False } } }) -}
64a36faa60295a3b07e6803546dfca1c
fromForeignPtr :: ForeignPtr Word8 -> Int -> Int -> ByteString
{- Arity: 3, HasNoCafRefs, Strictness: <S,U><S,U><S,U>m,
Inline: INLINE (sat-args=3),
Unfolding: InlineRule (3, False, True) $WPS -}
fa2f738f552984b9f4b77365b981770d
inlinePerformIO :: IO a -> a
{- Arity: 1, HasNoCafRefs, Strictness: <C(S(LS)),1*C1(U(A,1*U))>,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, True)
accursedUnutterablePerformIO -}
b0ca1b6d0327637fe82dbbc413953cab
isSpaceChar8 :: Char -> Bool
{- Arity: 1, HasNoCafRefs, Strictness: <S(S),1*U(1*U)>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ c :: Char ->
||
($fEqChar_$c== c (C# ' '))
(||
($fEqChar_$c== c (C# '\t'))
(||
($fEqChar_$c== c (C# '\n'))
(||
($fEqChar_$c== c (C# '\r'))
(||
($fEqChar_$c== c (C# '\f'))
(||
($fEqChar_$c== c (C# '\v'))
($fEqChar_$c== c (C# '\160')))))))) -}
d14b98eeeb7ee230e1e62cf731b21d82
isSpaceWord8 :: Word8 -> Bool
{- Arity: 1, HasNoCafRefs, Strictness: <S(S),1*U(1*U)>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ w :: Word8 ->
||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 32))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 10))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 9))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 12))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 13))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 11))
($fEqWord8_$c==
w
($fBitsWord8_$cfromInteger __integer 160)))))))) -}
e82079c33a17fa0ccd6e9caf7dd7d406
mallocByteString :: Int -> IO (ForeignPtr a)
{- Arity: 2, Strictness: <S,1*U(U)><L,U>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, True)
mallocPlainForeignPtrBytes -}
05921f3a078827d7b75f91a991f5acf6
memchr :: Ptr Word8 -> Word8 -> CSize -> IO (Ptr Word8)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memchr1
`cast`
(<Ptr Word8>_R
->_R <Word8>_R
->_R <CSize>_R
->_R Sym (NTCo:IO[0] <Ptr Word8>_R)) -}
d5c1f756659be22843039fe28bcea662
memchr1 ::
Ptr Word8
-> Word8
-> CSize
-> State# RealWorld
-> (# State# RealWorld, Ptr Word8 #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
w :: Word8
s :: CSize
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case w of wild { W8# x# ->
case s `cast` (NTCo:CSize[0]) of ds2 { W64# ds3 ->
case {__pkg_ccall bytestring-0.10.6.0 memchr Addr#
-> Int#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}
ds1
(word2Int# x#)
ds3
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, Ptr @ Word8 ds5 #) } } } }) -}
d2b26253b0a6f045fbf97286e1513eec
memcmp :: Ptr Word8 -> Ptr Word8 -> Int -> IO CInt
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memcmp1
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R <Int>_R
->_R Sym (NTCo:IO[0] <CInt>_R)) -}
5937cd9e8509009bb4ca88dbf17c3a83
memcmp1 ::
Ptr Word8
-> Ptr Word8
-> Int
-> State# RealWorld
-> (# State# RealWorld, CInt #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
q :: Ptr Word8
s :: Int
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case q of ds2 { Ptr ds3 ->
case s of wild { I# x# ->
case {__pkg_ccall bytestring-0.10.6.0 memcmp Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Int# #)}
ds1
ds3
(int2Word# x#)
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, I32# (narrow32Int# ds5) #)
`cast`
((# <State# RealWorld>_R, Sym (NTCo:CInt[0]) #))_R } } } }) -}
4e7f30f3e07c6ca3ef46c832e66018ca
memcpy :: Ptr Word8 -> Ptr Word8 -> Int -> IO ()
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memcpy1
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R <Int>_R
->_R Sym (NTCo:IO[0] <()>_R)) -}
70969d8bb682db31a20ce9fd6d586f6c
memcpy1 ::
Ptr Word8
-> Ptr Word8
-> Int
-> State# RealWorld
-> (# State# RealWorld, () #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
q :: Ptr Word8
s :: Int
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case q of ds2 { Ptr ds3 ->
case s of wild { I# x# ->
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}
ds1
ds3
(int2Word# x#)
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, () #) } } } }) -}
308477ef68b68018b893d16abbda284b
memset :: Ptr Word8 -> Word8 -> CSize -> IO (Ptr Word8)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memset1
`cast`
(<Ptr Word8>_R
->_R <Word8>_R
->_R <CSize>_R
->_R Sym (NTCo:IO[0] <Ptr Word8>_R)) -}
ea94471eab401be7b00b851c983277c4
memset1 ::
Ptr Word8
-> Word8
-> CSize
-> State# RealWorld
-> (# State# RealWorld, Ptr Word8 #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
w :: Word8
s :: CSize
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case w of wild { W8# x# ->
case s `cast` (NTCo:CSize[0]) of ds2 { W64# ds3 ->
case {__pkg_ccall bytestring-0.10.6.0 memset Addr#
-> Int#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}
ds1
(word2Int# x#)
ds3
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, Ptr @ Word8 ds5 #) } } } }) -}
e60535fe969f671abd3c5c49b2138be7
nullForeignPtr :: ForeignPtr Word8
{- Strictness: m,
Unfolding: (ForeignPtr @ Word8 __NULL $fMonoidByteString3) -}
684f63cce4f7bfa468fb4a3fe46996e6
packBytes :: [Word8] -> ByteString
{- Arity: 1, Strictness: <L,U>,
Unfolding: InlineRule (1, True, False)
(\ ws :: [Word8] ->
unsafePackLenBytes
(case $wlenAcc @ Word8 ws 0 of ww2 { DEFAULT -> I# ww2 })
ws) -}
684f63cce4f7bfa468fb4a3fe46996e6
packChars :: [Char] -> ByteString
{- Arity: 1, Strictness: <L,U>, Inline: INLINE[0] (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ cs :: [Char] ->
unsafePackLenChars
(case $wlenAcc @ Char cs 0 of ww2 { DEFAULT -> I# ww2 })
cs) -}
95c74e65918ce27fd1d3da1b4eb35be6
packUptoLenBytes :: Int -> [Word8] -> (ByteString, [Word8])
{- Arity: 2, Strictness: <L,U(U)><L,1*U>,
Unfolding: (\ len :: Int xs0 :: [Word8] ->
letrec {
$wa9 :: Addr#
-> Int#
-> [Word8]
-> State# RealWorld
-> (# State# RealWorld, (Int, [Word8]) #)
{- Arity: 4, Strictness: <L,U><L,U><S,1*U><L,U>, Inline: [0] -}
= \ ww :: Addr#
ww1 :: Int#
w :: [Word8]
w1 :: State# RealWorld[OneShot] ->
case w of wild {
[]
-> (# w1,
(case len of wild1 { I# x -> I# (-# x ww1) }, [] @ Word8) #)
: ipv ipv1
-> case ww1 of ds {
DEFAULT
-> case ipv of wild2 { W8# x ->
case writeWord8OffAddr# @ RealWorld ww 0 x w1 of s2 { DEFAULT ->
$wa9 (plusAddr# ww 1) (-# ds 1) ipv1 s2 } }
0 -> (# w1, (len, wild) #) } }
} in
unsafeDupablePerformIO
@ (ByteString, [Word8])
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa9 a16 x xs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
case ipv3 of wild2 { (,) l' res ->
(# s',
(case l' of dt { I# dt1 -> PS a16 a17 0 dt1 }, res) #) } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, [Word8]) #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <(ByteString, [Word8])>_R))) -}
28b093b84405cf95e6eb1185ccd92b14
packUptoLenChars :: Int -> [Char] -> (ByteString, [Char])
{- Arity: 2, Strictness: <L,U(U)><L,1*U>,
Unfolding: (\ len :: Int cs0 :: [Char] ->
letrec {
$wa9 :: Addr#
-> Int#
-> [Char]
-> State# RealWorld
-> (# State# RealWorld, (Int, [Char]) #)
{- Arity: 4, Strictness: <L,U><L,U><S,1*U><L,U>, Inline: [0] -}
= \ ww :: Addr#
ww1 :: Int#
w :: [Char]
w1 :: State# RealWorld[OneShot] ->
case w of wild {
[]
-> (# w1,
(case len of wild1 { I# x -> I# (-# x ww1) }, [] @ Char) #)
: ipv ipv1
-> case ww1 of ds {
DEFAULT
-> case ipv of wild1 { C# c# ->
case writeWord8OffAddr#
@ RealWorld
ww
0
(narrow8Word# (int2Word# (ord# c#)))
w1 of s2 { DEFAULT ->
$wa9 (plusAddr# ww 1) (-# ds 1) ipv1 s2 } }
0 -> (# w1, (len, wild) #) } }
} in
unsafeDupablePerformIO
@ (ByteString, [Char])
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa9 a16 x cs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
case ipv3 of wild2 { (,) l' res ->
(# s',
(case l' of dt { I# dt1 -> PS a16 a17 0 dt1 }, res) #) } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, [Char]) #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <(ByteString, [Char])>_R))) -}
74cf268681a69730538b30a9b20833cc
toForeignPtr :: ByteString -> (ForeignPtr Word8, Int, Int)
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>m,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ ds :: ByteString ->
case ds of wild { PS dt dt1 dt2 dt3 ->
(ForeignPtr @ Word8 dt dt1, I# dt2, I# dt3) }) -}
684f63cce4f7bfa468fb4a3fe46996e6
unpackAppendBytesLazy :: ByteString -> [Word8] -> [Word8]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: [Word8] ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 w1 }) -}
adf1de739474ce7e9d1406b005fa57a2
unpackAppendBytesStrict :: ByteString -> [Word8] -> [Word8]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Unfolding: InlineRule (2, True, False)
(\ ds :: ByteString xs :: [Word8] ->
case ds of wild { PS dt dt1 dt2 dt3 ->
case unpackAppendBytesStrict1
(Ptr @ Word8 (plusAddr# dt (-# dt2 1)))
(Ptr @ Word8 (plusAddr# dt (+# (-# dt2 1) dt3)))
xs
realWorld# of ds1 { (#,#) ipv ipv1 ->
case touch# @ ForeignPtrContents dt1 ipv of s' { DEFAULT ->
ipv1 } } }) -}
7080e858ec0687f3190dd687bbaed9d7
unpackAppendBytesStrict1 ::
Ptr Word8
-> Ptr Word8
-> [Word8]
-> State# RealWorld
-> (# State# RealWorld, [Word8] #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S,1*U(U)><S,1*U(U)><L,U><L,U>, Inline: INLINE[0],
Unfolding: InlineRule (4, True, False)
(\ w :: Ptr Word8
w1 :: Ptr Word8
w2 :: [Word8]
w3 :: State# RealWorld[OneShot] ->
case w of ww { Ptr ww1 ->
case w1 of ww2 { Ptr ww3 -> $wa3 ww1 ww3 w2 w3 } }) -}
684f63cce4f7bfa468fb4a3fe46996e6
unpackAppendCharsLazy :: ByteString -> [Char] -> [Char]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: [Char] ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendCharsLazy ww1 ww2 ww3 ww4 w1 }) -}
91fd85b39e8025c19f1e1a9a1a35c1f8
unpackAppendCharsStrict :: ByteString -> [Char] -> [Char]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Unfolding: InlineRule (2, True, False)
(\ ds :: ByteString xs :: [Char] ->
case ds of wild { PS dt dt1 dt2 dt3 ->
case unpackAppendCharsStrict1
(Ptr @ Word8 (plusAddr# dt (-# dt2 1)))
(Ptr @ Word8 (plusAddr# dt (+# (-# dt2 1) dt3)))
xs
realWorld# of ds1 { (#,#) ipv ipv1 ->
case touch# @ ForeignPtrContents dt1 ipv of s' { DEFAULT ->
ipv1 } } }) -}
54c58bc487e9d74c938d83d79f0b08d2
unpackAppendCharsStrict1 ::
Ptr Word8
-> Ptr Word8
-> [Char]
-> State# RealWorld
-> (# State# RealWorld, [Char] #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S,1*U(U)><S,1*U(U)><L,U><L,U>, Inline: INLINE[0],
Unfolding: InlineRule (4, True, False)
(\ w :: Ptr Word8
w1 :: Ptr Word8
w2 :: [Char]
w3 :: State# RealWorld[OneShot] ->
case w of ww { Ptr ww1 ->
case w1 of ww2 { Ptr ww3 -> $wa4 ww1 ww3 w2 w3 } }) -}
684f63cce4f7bfa468fb4a3fe46996e6
unpackBytes :: ByteString -> [Word8]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>,
Unfolding: InlineRule (1, True, False)
(\ bs :: ByteString -> unpackAppendBytesLazy bs ([] @ Word8)) -}
684f63cce4f7bfa468fb4a3fe46996e6
unpackChars :: ByteString -> [Char]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>,
Unfolding: InlineRule (1, True, False)
(\ bs :: ByteString -> unpackAppendCharsLazy bs ([] @ Char)) -}
08e63616834f4a2bc3550cd8312961e9
unsafeCreate :: Int -> (Ptr Word8 -> IO ()) -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*C1(C1(U(U,A)))>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int f :: Ptr Word8 -> IO () ->
unsafeDupablePerformIO @ ByteString (create l f)) -}
99fdc58605270bea84e042c7cc4033ab
unsafeCreateUptoN :: Int -> (Ptr Word8 -> IO Int) -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*C1(C1(U(U,1*U(U))))>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int f :: Ptr Word8 -> IO Int ->
unsafeDupablePerformIO @ ByteString (createUptoN l f)) -}
684f63cce4f7bfa468fb4a3fe46996e6
unsafePackAddress :: Addr# -> IO ByteString
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ addr# :: Addr# ->
let {
cstr :: CString = Ptr @ CChar addr#
} in
bindIO
@ (ForeignPtr Word8)
@ ByteString
(newForeignPtr_ @ Word8 (castPtr @ CChar @ Word8 cstr))
(\ p :: ForeignPtr Word8 eta :: State# RealWorld[OneShot] ->
(bindIO
@ CSize
@ ByteString
(c_strlen cstr)
(\ l :: CSize ->
$ @ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(case p of dt { ForeignPtr dt1 dt2 ->
case l `cast` (NTCo:CSize[0]) of wild { W64# x# ->
PS dt1 dt2 0 (word2Int# x#) } })))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<ForeignPtr Word8>_R ->_R Sym (NTCo:IO[0] <ByteString>_R))) -}
684f63cce4f7bfa468fb4a3fe46996e6
unsafePackLenBytes :: Int -> [Word8] -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*U>,
Unfolding: (\ len :: Int xs0 :: [Word8] ->
unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa a16 xs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
(# s', PS a16 a17 0 x #) } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R))) -}
684f63cce4f7bfa468fb4a3fe46996e6
unsafePackLenChars :: Int -> [Char] -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*U>,
Unfolding: (\ len :: Int cs0 :: [Char] ->
unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa1 a16 cs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
(# s', PS a16 a17 0 x #) } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R))) -}
16bfb686d4435cfd58771814cecb6fa5
w2c :: Word8 -> Char
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U)>m,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, False)
(\ x :: Word8 ->
case x of wild { W8# x# -> unsafeChr (I# (word2Int# x#)) }) -}
instance Data [ByteString] = $fDataByteString
instance Eq [ByteString] = $fEqByteString
instance IsString [ByteString] = $fIsStringByteString
instance Monoid [ByteString] = $fMonoidByteString
instance NFData [ByteString] = $fNFDataByteString
instance Ord [ByteString] = $fOrdByteString
instance Read [ByteString] = $fReadByteString
instance Show [ByteString] = $fShowByteString
"ByteString packChars/packAddress" [ALWAYS] forall s :: Addr#
packChars (unpackCString# s)
= accursedUnutterablePerformIO @ ByteString (unsafePackAddress s)
"SPEC/Data.ByteString.Internal $dm< @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm< @ ByteString $dOrd = $fOrdByteString_$s$dm<
"SPEC/Data.ByteString.Internal $dm<= @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm<= @ ByteString $dOrd = $fOrdByteString_$s$dm<=
"SPEC/Data.ByteString.Internal $dm> @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm> @ ByteString $dOrd = $fOrdByteString_$s$dm>
"SPEC/Data.ByteString.Internal $dm>= @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm>= @ ByteString $dOrd = $fOrdByteString_$s$dm>=
"SPEC/Data.ByteString.Internal $dmdataCast1 @ ByteString" [ALWAYS] forall $dData :: Data
ByteString
$dmdataCast1 @ ByteString $dData = $fDataByteString_$s$dmdataCast1
"SPEC/Data.ByteString.Internal $dmdataCast2 @ ByteString" [ALWAYS] forall $dData :: Data
ByteString
$dmdataCast2 @ ByteString $dData = $fDataByteString_$s$dmdataCast2
"SPEC/Data.ByteString.Internal $fData[] @ Word8" [ALWAYS] forall $dTypeable :: Typeable
[Word8]
$dData :: Data Word8
$fData[] @ Word8 $dTypeable $dData = $fDataByteString_$s$fData[]
vectorised variables:
vectorised tycons:
vectorised reused tycons:
parallel variables:
parallel tycons:
Warnings inlinePerformIO Deprecated: "If you think you know what you are doing, use 'unsafePerformIO'. If you are sure you know what you are doing, use 'unsafeDupablePerformIO'. If you enjoy sharing an address space with a malevolent agent of chaos, try 'accursedUnutterablePerformIO'."
trusted: unsafe
require own pkg trusted: False
Raw
local-vs-cached.diff
--- local.hi 2015-06-02 23:11:39.485606856 -0600
+++ cached.hi 2015-06-02 23:11:54.668499816 -0600
@@ -5,10 +5,10 @@
Way: Wanted [],
got []
interface Data.ByteString.Internal 7101
- interface hash: 30448d69b549c119e92ceb543beb907e
- ABI hash: 8ca430975f4330e4e51cbf7176c441cc
- export-list hash: e21b1eb74182290a34c102f4c294f93c
- orphan hash: 97adbe5052209926c77f2c1c0c1e1751
+ interface hash: 056ceb76b56a3b21f4ca7799fac1c619
+ ABI hash: e21b8847561cbe5e90ea8575c05cf39f
+ export-list hash: 74a633b08709f79653af949c3543830e
+ orphan hash: 2b6d1eaa74b458417116adbc05d8472a
flag hash: 5a3c509800f2b89dd8da2f004b3fee48
sig of: Nothing
used TH splices: False
@@ -95,7 +95,7 @@
import -/ GHC.Types 6b27fb3fdbd0e3f0925a4496c66513bb
addDependentFile "libraries/bytestring/dist-install/build/autogen/cabal_macros.h"
addDependentFile "/nix/store/c2zjp7bqmp5wvpkrpl7p7sfhxbdyfryy-glibc-2.21/include/stdc-predef.h"
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString :: Data ByteString
DFunId[0]
{- Inline: [ALWAYS] CONLIKE,
@@ -116,27 +116,40 @@
$fDataByteString_$cgmapM
$fDataByteString_$cgmapMp
$fDataByteString_$cgmapMo -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString1 :: ([Word8] -> ByteString, Bool)
{- Unfolding: ((packBytes, False)) -}
-c3a4c6b4f32aadd1c12a57832255998b
- $fDataByteString10 :: [Char]
- {- Unfolding: (unpackCString# "Word8"#) -}
-085331db84005c3184635858b46230d8
- $fDataByteString11 :: [Char]
- {- Unfolding: (unpackCString# "GHC.Word"#) -}
-e7eeb9ed0d48a3a121b7650f915f6778
+0f4aa0753040fb6c8fb6dabb9a23ec8e
+ $fDataByteString10 :: TypeRep
+ {- Unfolding: (TypeRep
+ __word 4673197808472169995
+ __word 1591651367984728364
+ $fDataByteString11
+ ([] @ KindRep)
+ ([] @ TypeRep)) -}
+1e31a69104e27dca0348eb397c70e80d
+ $fDataByteString11 :: TyCon
+ {- Unfolding: (TyCon
+ __word 4673197808472169995
+ __word 1591651367984728364
+ $fDataByteString14
+ $fDataByteString13
+ $fDataByteString12) -}
+78671c1eb4926d089cfc7519d7579e19
$fDataByteString12 :: [Char]
- {- Unfolding: (unpackCString# "base"#) -}
-9fc7e8cf9967d46252f7ccf59aaca594
+ {- Unfolding: (unpackCString# "Word8"#) -}
+9aaafbf70349ac4082ca8d2264688420
$fDataByteString13 :: [Char]
- {- Unfolding: (unpackCString# "[]"#) -}
-fbd48122118d3c753530f781dc60fbff
+ {- Unfolding: (unpackCString# "GHC.Word"#) -}
+6d32b1a3c344af94a2bd92886efa76d8
$fDataByteString14 :: [Char]
- {- Unfolding: (unpackCString# "GHC.Types"#) -}
-584dac562a3f52e780f3e908db9216f6
- $fDataByteString15 :: [Char]
- {- Unfolding: (unpackCString# "ghc-prim"#) -}
+ {- Unfolding: (unpackCString# "base"#) -}
+a2d43f3d124c62ee3f094153871eea85
+ $fDataByteString15 :: Fingerprint
+ {- HasNoCafRefs,
+ Unfolding: (Fingerprint
+ __word 17730107610217102821
+ __word 9866972337190828755) -}
f268e58ef555908613318fea06253967
$fDataByteString16 :: DataType
{- Strictness: m, Unfolding: (DataType $fDataByteString17 NoRep) -}
@@ -146,7 +159,7 @@
5a87f13637f5b6c03a08218bece91942
$fDataByteString18 :: Constr
{- Strictness: b -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString19 :: Constr -> c ByteString
{- Strictness: b -}
e1904048866e8b3a91dc53a4d664e5d7
@@ -160,32 +173,27 @@
$dTypeable1 :: Typeable t
ds :: forall d e. (Data d, Data e) => c (t d e) ->
Nothing @ (c [Word8])) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString20 :: Typeable ByteString
- {- Arity: 1, Strictness: <L,A>,
+ {- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (0, True, True)
$fDataByteString21
`cast`
(Sym (NTCo:Typeable[0] <*>_N <ByteString>_N)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString21 :: Proxy# ByteString -> TypeRep
- {- Arity: 1, Strictness: <L,A>,
+ {- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (1, True, True)
(\ wild :: Proxy# ByteString -> $fDataByteString22) -}
-bd4e333aadc42fe4e4b1869fc699688e
+765c0e2258f4bd2d39cd4682bdbbb8f0
$fDataByteString22 :: TypeRep
- {- Unfolding: (case $wmkPolyTyConApp
- __word 17550167813363126540
- __word 3988316862246226873
- $fDataByteString_ww3
- $fDataByteString_ww4
- $fDataByteString23
- ([] @ TypeRep)
- ([] @ TypeRep) of ww6 { (#,,,,#) ww7 ww8 ww9 ww10 ww11 ->
- TypeRep ww7 ww8 ww9 ww10 ww11 }) -}
-0eaa4359cd5d3742c52fb6d20e3866ac
- $fDataByteString23 :: [Char]
- {- Unfolding: (unpackCString# "ByteString"#) -}
+ {- Strictness: m,
+ Unfolding: (TypeRep
+ __word 17550167813363126540
+ __word 3988316862246226873
+ $fDataByteString_wild1
+ ([] @ KindRep)
+ ([] @ TypeRep)) -}
aa00528be0f1b2418c0dc68145cd718d
$fDataByteString3 ::
Typeable t => (forall d. Data d => c (t d)) -> Maybe (c [Word8])
@@ -222,54 +230,39 @@
Unfolding: InlineRule (1, True, False)
(\ ds :: [Word8] ->
case ds of wild { [] -> nilConstr : ds1 ds2 -> consConstr }) -}
-776b000d76696a34327ddb1d9013eef9
+9ae093de44fde0956a40b85726b15301
$fDataByteString6 :: Proxy# [Word8] -> TypeRep
{- Arity: 1, Strictness: <L,A>,
Unfolding: InlineRule (1, True, True)
(\ wild :: Proxy# [Word8] -> $fDataByteString7) -}
-ef91d28d3d9a98811b152645ede9afc6
+a9ac7857438661ce543b0edd38bb2439
$fDataByteString7 :: TypeRep
- {- Unfolding: (case $wmkPolyTyConApp
+ {- Unfolding: (case $fDataByteString_w1 of wild2 {
+ []
+ -> TypeRep
__word 17730107610217102821
__word 9866972337190828755
- $fDataByteString15
- $fDataByteString14
- $fDataByteString13
- ([] @ TypeRep)
- ([] @ TypeRep) of ww6 { (#,,,,#) ww7 ww8 ww9 ww10 ww11 ->
- case ww9 of ww { TyCon ww1 ww2 ww3 ww4 ww5 ->
- case $wmkPolyTyConApp
- ww1
- ww2
- ww3
- ww4
- ww5
- ww10
- (++
- @ TypeRep
- ww11
- $fDataByteString8) of ww12 { (#,,,,#) ww13 ww14 ww15 ww16 ww17 ->
- TypeRep ww13 ww14 ww15 ww16 ww17 } } }) -}
-badfc135549bb809aba388a04c8d2f5e
- $fDataByteString8 :: [TypeRep]
- {- Unfolding: (: @ TypeRep $fDataByteString9 ([] @ TypeRep)) -}
-c81cd50e1880aaea2e1d59fa1c2ce02d
- $fDataByteString9 :: TypeRep
- {- Unfolding: (case $wmkPolyTyConApp
- __word 4673197808472169995
- __word 1591651367984728364
- $fDataByteString12
- $fDataByteString11
- $fDataByteString10
+ $fDataByteString_wild
+ ([] @ KindRep)
([] @ TypeRep)
- ([] @ TypeRep) of ww6 { (#,,,,#) ww7 ww8 ww9 ww10 ww11 ->
- TypeRep ww7 ww8 ww9 ww10 ww11 }) -}
-ebe36aa8c36b2823633574e782d485cd
+ : ipv ipv1
+ -> case fingerprintFingerprints
+ $fDataByteString8 of dt { Fingerprint dt1 dt2 ->
+ TypeRep dt1 dt2 $fDataByteString_wild ([] @ KindRep) wild2 } }) -}
+bc699b1cde79dae98a92623d01d0116e
+ $fDataByteString8 :: [Fingerprint]
+ {- Unfolding: (: @ Fingerprint
+ $fDataByteString15
+ $fDataByteString_z) -}
+59921c27747abd4acd9b63ffecc1cdf4
+ $fDataByteString9 :: [TypeRep]
+ {- Unfolding: (: @ TypeRep $fDataByteString10 ([] @ TypeRep)) -}
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cdataTypeOf :: ByteString -> DataType
{- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (1, True, True)
(\ ds :: ByteString -> $fDataByteString16) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgfoldl ::
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> ByteString -> c ByteString
@@ -285,7 +278,7 @@
$fDataByteString_$s$fData[]
(z @ ([Word8] -> ByteString) packBytes)
(unpackBytes txt)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapM ::
Monad m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
@@ -316,7 +309,7 @@
@ ByteString
lvl15
(\ x' :: [Word8] -> return @ m $dMonad @ ByteString (c' x')))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapMo ::
MonadPlus m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
@@ -377,7 +370,7 @@
case ds of wild { (,) x' b ->
case b of wild1 {
False -> lvl15 True -> return @ m $dMonad @ ByteString x' } })) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapMp ::
MonadPlus m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
@@ -435,7 +428,7 @@
case ds of wild { (,) x' b ->
case b of wild1 {
False -> lvl15 True -> return @ m $dMonad @ ByteString x' } })) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQ ::
(forall d. Data d => d -> u) -> ByteString -> [u]
{- Arity: 2, Strictness: <L,1*C1(C1(U))><L,1*U(U,U,U,U)>m2,
@@ -446,7 +439,7 @@
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x0 ([] @ Word8)))
([] @ u)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQi ::
Int -> (forall d. Data d => d -> u) -> ByteString -> u
{- Arity: 3,
@@ -460,7 +453,7 @@
-> f @ [Word8]
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x ([] @ Word8)) } }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQl ::
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> ByteString -> r
@@ -475,7 +468,7 @@
eta :: ByteString ->
o r1
(f @ [Word8] $fDataByteString_$s$fData[] (unpackBytes eta))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapQr ::
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> ByteString -> r
@@ -492,7 +485,7 @@
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x0 ([] @ Word8)))
r0) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgmapT ::
(forall b. Data b => b -> b) -> ByteString -> ByteString
{- Arity: 2, Strictness: <L,1*C1(C1(U))><L,1*U(U,U,U,U)>,
@@ -507,7 +500,7 @@
unsafePackLenBytes
(case $wlenAcc @ Word8 ws 0 of ww2 { DEFAULT -> I# ww2 })
ws) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$cgunfold ::
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c ByteString
@@ -517,12 +510,12 @@
ds :: forall b r. Data b => c (b -> r) -> c r
ds1 :: forall r. r -> c r ->
$fDataByteString19 @ c) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$ctoConstr :: ByteString -> Constr
{- Arity: 1, Strictness: <B,A>b,
Unfolding: InlineRule (1, True, True)
(\ ds :: ByteString -> $fDataByteString18) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$s$dmdataCast1 ::
Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ByteString)
{- Arity: 2, HasNoCafRefs, Strictness: <L,A><L,A>,
@@ -532,7 +525,7 @@
$dTypeable :: Typeable t
ds :: forall d. Data d => c (t d) ->
Nothing @ (c ByteString)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fDataByteString_$s$dmdataCast2 ::
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ByteString)
@@ -543,7 +536,7 @@
$dTypeable :: Typeable t
ds :: forall d e. (Data d, Data e) => c (t d e) ->
Nothing @ (c ByteString)) -}
-f33d34045a664763ef56b4132f434c80
+0456df0d8dad453e4f5c4fcafae7877c
$fDataByteString_$s$fData[] :: Data [Word8]
{- Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@@ -593,30 +586,66 @@
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8) -}
-01bb19f5847bae5b513780c863b8dcc1
+774f7419a038f41c12289dad43641f9d
+ $fDataByteString_w1 :: [TypeRep]
+ {- Unfolding: (++ @ TypeRep ([] @ TypeRep) $fDataByteString9) -}
+550a7e90f88a76b8fb997924b706d53e
+ $fDataByteString_wild :: TyCon
+ {- Strictness: m,
+ Unfolding: (TyCon
+ __word 17730107610217102821
+ __word 9866972337190828755
+ $fDataByteString_ww2
+ $fDataByteString_ww3
+ $fDataByteString_ww4) -}
+c4863c8b3afdcd9507c0125f588cd560
+ $fDataByteString_wild1 :: TyCon
+ {- Strictness: m,
+ Unfolding: (TyCon
+ __word 17550167813363126540
+ __word 3988316862246226873
+ $fDataByteString_ww6
+ $fDataByteString_ww5
+ $fDataByteString_ww1) -}
+bc0c812d2993a2fc25c1335d224e1895
+ $fDataByteString_ww1 :: String
+ {- Unfolding: (unpackCString# "ByteString"#) -}
+e0b50fc3a7b2c3718d564647b1b46a64
+ $fDataByteString_ww2 :: String
+ {- Unfolding: (unpackCString# "ghc-prim"#) -}
+adf1c5493ab4d5fd3e0483a9f93928c6
$fDataByteString_ww3 :: String
- {- Unfolding: (unpackCString# "bytes_6vj5EoliHgNHISHCVCb069"#) -}
-de19c88a36a3280161d6f6606396c745
+ {- Unfolding: (unpackCString# "GHC.Types"#) -}
+3ed5df943b73b5644b07130da41cf840
$fDataByteString_ww4 :: String
+ {- Unfolding: (unpackCString# "[]"#) -}
+9cbbdc2cb48a9e6d500b95976d2c2594
+ $fDataByteString_ww5 :: String
{- Unfolding: (unpackCString# "Data.ByteString.Internal"#) -}
-ebe36aa8c36b2823633574e782d485cd
+56fac0b59f3447b1d8bf93a471b7b14f
+ $fDataByteString_ww6 :: String
+ {- Unfolding: (unpackCString# "bytes_6vj5EoliHgNHISHCVCb069"#) -}
+a17cd50fb231fa948baf17168f513caa
+ $fDataByteString_z :: [Fingerprint]
+ {- Unfolding: (listTc_go $fDataByteString_w1) -}
+684f63cce4f7bfa468fb4a3fe46996e6
$fEqByteString :: Eq ByteString
DFunId[0]
{- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:. @ ByteString eq $fEqByteString_$c/= -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fEqByteString_$c/= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ x :: ByteString y :: ByteString -> not (eq x y)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fIsStringByteString :: IsString ByteString
DFunId[0]
{- Arity: 1, Strictness: <L,U>, Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, True)
packChars `cast` (Sym (NTCo:IsString[0]) <ByteString>_N) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString :: Monoid ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
@@ -634,7 +663,7 @@
917f7dd81ab17f1771f9522c03ad9d4a
$fMonoidByteString3 :: ForeignPtrContents
{- Strictness: b -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$cmappend ::
ByteString -> ByteString -> ByteString
{- Arity: 2, Strictness: <S(LLLS),1*U(U,U,U,U)><S,1*U(U,U,U,U)>,
@@ -644,7 +673,7 @@
case w of ww { PS ww1 ww2 ww3 ww4 ->
case w1 of ww5 { PS ww6 ww7 ww8 ww9 ->
$w$cmappend ww1 ww2 ww3 ww4 ww6 ww7 ww8 ww9 } }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$cmconcat :: [ByteString] -> ByteString
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: (\ ds :: [ByteString] ->
@@ -690,10 +719,10 @@
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R)) } }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$cmempty :: ByteString
{- Strictness: m, Unfolding: (PS __NULL $fMonoidByteString3 0 0) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$s$wa ::
ByteString
-> [ByteString]
@@ -701,10 +730,10 @@
-> State# RealWorld
-> (# State# RealWorld, () #)
{- Arity: 4, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U> -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fMonoidByteString_$sgo :: ByteString -> [ByteString] -> [Int]
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U> -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fNFDataByteString :: NFData ByteString
DFunId[0]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*H>,
@@ -713,13 +742,13 @@
$fNFDataByteString_$crnf
`cast`
(Sym (NTCo:NFData[0] <ByteString>_N)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fNFDataByteString_$crnf :: ByteString -> ()
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*H>,
Unfolding: InlineRule (1, True, False)
(\ ds :: ByteString ->
case ds of wild { PS dt dt1 dt2 dt3 -> () }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString :: Ord ByteString
DFunId[0]
{- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE,
@@ -733,49 +762,49 @@
$fOrdByteString_$s$dm>=
$fOrdByteString_$cmax
$fOrdByteString_$cmin -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$cmax :: ByteString -> ByteString -> ByteString
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),U(U,U,U,U)><S,U(U,U,U,U)>m,
Unfolding: InlineRule (2, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> y GT -> x }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$cmin :: ByteString -> ByteString -> ByteString
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),U(U,U,U,U)><S,U(U,U,U,U)>m,
Unfolding: InlineRule (2, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> x GT -> y }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm< :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> False LT -> True }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm<= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> True GT -> False }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm> :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> False GT -> True }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fOrdByteString_$s$dm>= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> True LT -> False }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString :: Read ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
@@ -785,7 +814,7 @@
$fReadByteString_$creadList
$fReadByteString_$creadPrec
$fReadByteString_$creadListPrec -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString1 :: Prec -> forall b. ([ByteString] -> P b) -> P b
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (2, True, False)
@@ -796,7 +825,7 @@
@ b
eta1 of ww { (##) ww1 ->
Look @ b ww1 }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString2 :: P [ByteString]
{- Unfolding: ($wa
@ ByteString
@@ -807,7 +836,7 @@
(Sym (NTCo:ReadPrec[0] <ByteString>_R)))
@ [ByteString]
($fApplicativeP_$creturn @ [ByteString])) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString3 :: Prec -> forall b. (ByteString -> P b) -> P b
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (2, True, False)
@@ -823,10 +852,10 @@
{- Unfolding: ($wa19
@ [Char]
($fApplicativeP_$creturn @ [Char])) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadList :: ReadS [ByteString]
{- Arity: 1, Unfolding: (run @ [ByteString] $fReadByteString2) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadListPrec :: ReadPrec [ByteString]
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (0, True, True)
@@ -835,7 +864,7 @@
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <[ByteString]>_R))
(Sym (NTCo:ReadPrec[0] <[ByteString]>_R))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadPrec :: ReadPrec ByteString
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (0, True, True)
@@ -844,15 +873,15 @@
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <ByteString>_R))
(Sym (NTCo:ReadPrec[0] <ByteString>_R))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_$creadsPrec :: Int -> ReadS ByteString
{- Arity: 2, Strictness: <L,A><L,U>, Inline: INLINE[0],
Unfolding: InlineRule (2, True, True)
(\ w :: Int w1 :: String -> $w$creadsPrec w1) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fReadByteString_go :: [([Char], String)] -> [(ByteString, String)]
{- Arity: 1, Strictness: <S,1*U> -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString :: Show ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
@@ -861,7 +890,7 @@
$fShowByteString_$cshowsPrec
$fShowByteString_$cshow
$fShowByteString_$cshowList -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString1 :: ByteString -> ShowS
{- Arity: 2, Strictness: <L,1*U(U,U,U,U)><L,U>m2,
Unfolding: InlineRule (2, True, False)
@@ -869,7 +898,7 @@
: @ Char
shows6
(showLitString (unpackChars ps) (: @ Char shows6 r))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString_$cshow :: ByteString -> String
{- Arity: 1, Strictness: <L,1*U(U,U,U,U)>m2,
Unfolding: InlineRule (1, True, False)
@@ -877,12 +906,12 @@
: @ Char
shows6
(showLitString (unpackChars x) (: @ Char shows6 ([] @ Char)))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString_$cshowList :: [ByteString] -> ShowS
{- Arity: 2, Strictness: <S,1*U><L,U>,
Unfolding: (\ ls :: [ByteString] s :: String ->
showList__ @ ByteString $fShowByteString1 ls s) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$fShowByteString_$cshowsPrec :: Int -> ByteString -> ShowS
{- Arity: 3, Strictness: <L,A><L,1*U(U,U,U,U)><L,U>m2,
Unfolding: InlineRule (3, True, False)
@@ -890,7 +919,7 @@
: @ Char
shows6
(showLitString (unpackChars ps) (: @ Char shows6 r))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$w$cmappend ::
Addr#
-> ForeignPtrContents
@@ -972,7 +1001,7 @@
(Sym (NTCo:IO[0] <ByteString>_R))
0 -> PS ww ww1 ww2 ds }
0 -> PS ww4 ww5 ww6 ww7 }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
$w$creadsPrec :: String -> [(ByteString, String)]
{- Arity: 1, Strictness: <L,U>, Inline: [0],
Unfolding: (\ w :: String ->
@@ -987,7 +1016,7 @@
Addr# -> [Char] -> State# RealWorld -> (# State# RealWorld, () #)
{- Arity: 3, HasNoCafRefs, Strictness: <L,U><S,1*U><L,U>,
Inline: [0] -}
-b5f6b082d6473453e96be2cc296bae5b
+6814f72ae9189f2365efc07cef4f892e
$wa2 ::
Int#
-> (Ptr Word8 -> IO (Int, Int, a))
@@ -1167,7 +1196,7 @@
Addr# -> ForeignPtrContents -> Int# -> Int# -> [Char] -> [Char]
{- Arity: 5, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U><L,U>,
Inline: [0] -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
data ByteString
= PS {-# UNPACK #-}(ForeignPtr Word8)
{-# UNPACK #-}Int
@@ -1345,7 +1374,7 @@
Unfolding: InlineRule (2, True, False)
(\ w :: String w1 :: [Int] ->
case $wcheckedSum w w1 of ww { DEFAULT -> I# ww }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
compareBytes :: ByteString -> ByteString -> Ordering
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
@@ -1355,7 +1384,7 @@
case w of ww { PS ww1 ww2 ww3 ww4 ->
case w1 of ww5 { PS ww6 ww7 ww8 ww9 ->
$wcompareBytes ww1 ww2 ww3 ww4 ww6 ww7 ww8 ww9 } }) -}
-464462288fecdcd3e8e835a3710309d9
+c07555c37b7959359732319398fec0f2
create :: Int -> (Ptr Word8 -> IO ()) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,A)))><L,U>,
Inline: INLINE (sat-args=2),
@@ -1389,7 +1418,7 @@
(<Int>_R
->_R <Ptr Word8 -> IO ()>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
-ae475db1e90f5f1f2745c31d46c4da0e
+3139d1139e8821e76d7348e11b9ac028
createAndTrim :: Int -> (Ptr Word8 -> IO Int) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(U))))><L,U>,
Inline: INLINE (sat-args=2),
@@ -1438,7 +1467,7 @@
(<Int>_R
->_R <Ptr Word8 -> IO Int>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
-5db3aa6f0692a13b01dfd67d19b7411e
+afa39f66d0942b05d3047dfa4d9c22ea
createAndTrim' ::
Int -> (Ptr Word8 -> IO (Int, Int, a)) -> IO (ByteString, a)
{- Arity: 3,
@@ -1450,7 +1479,7 @@
<Int>_R
->_R <Ptr Word8 -> IO (Int, Int, a16)>_R
->_R Sym (NTCo:IO[0] <(ByteString, a16)>_R)) -}
-82eb366c5fd3c4f4736d07f91b4aa991
+ffd5d3de24a632a51a539caeed079d63
createAndTrim'1 ::
Int
-> (Ptr Word8 -> IO (Int, Int, a))
@@ -1465,7 +1494,7 @@
w1 :: Ptr Word8 -> IO (Int, Int, a16)
w2 :: State# RealWorld[OneShot] ->
case w of ww { I# ww1 -> $wa2 @ a16 ww1 w1 w2 }) -}
-0d8b5cfe69f4f246c1dca28122d2672d
+dc7ccf3e809c06eb633f81e2e322c45f
createUptoN :: Int -> (Ptr Word8 -> IO Int) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(U))))><L,U>,
Inline: INLINE (sat-args=2),
@@ -1503,7 +1532,7 @@
(<Int>_R
->_R <Ptr Word8 -> IO Int>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
eq :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S,1*U(U,U,U,U)><S,1*U(U,U,U,U)>,
@@ -1523,7 +1552,7 @@
False -> $fEqOrdering_$c== (compareBytes wild wild1) EQ
True -> True }
True -> False } } }) -}
-ba99786a5285c068c4156cc0a6d46f9b
+64a36faa60295a3b07e6803546dfca1c
fromForeignPtr :: ForeignPtr Word8 -> Int -> Int -> ByteString
{- Arity: 3, HasNoCafRefs, Strictness: <S,U><S,U><S,U>m,
Inline: INLINE (sat-args=3),
@@ -1738,7 +1767,7 @@
nullForeignPtr :: ForeignPtr Word8
{- Strictness: m,
Unfolding: (ForeignPtr @ Word8 __NULL $fMonoidByteString3) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
packBytes :: [Word8] -> ByteString
{- Arity: 1, Strictness: <L,U>,
Unfolding: InlineRule (1, True, False)
@@ -1746,7 +1775,7 @@
unsafePackLenBytes
(case $wlenAcc @ Word8 ws 0 of ww2 { DEFAULT -> I# ww2 })
ws) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
packChars :: [Char] -> ByteString
{- Arity: 1, Strictness: <L,U>, Inline: INLINE[0] (sat-args=1),
Unfolding: InlineRule (1, False, False)
@@ -1754,7 +1783,7 @@
unsafePackLenChars
(case $wlenAcc @ Char cs 0 of ww2 { DEFAULT -> I# ww2 })
cs) -}
-ce8f2aa237c326ca242b09c7857a7b75
+95c74e65918ce27fd1d3da1b4eb35be6
packUptoLenBytes :: Int -> [Word8] -> (ByteString, [Word8])
{- Arity: 2, Strictness: <L,U(U)><L,1*U>,
Unfolding: (\ len :: Int xs0 :: [Word8] ->
@@ -1813,7 +1842,7 @@
of {} } })
`cast`
(Sym (NTCo:IO[0] <(ByteString, [Word8])>_R))) -}
-6bb1fe667e547bee3cc7b42e67a802cd
+28b093b84405cf95e6eb1185ccd92b14
packUptoLenChars :: Int -> [Char] -> (ByteString, [Char])
{- Arity: 2, Strictness: <L,U(U)><L,1*U>,
Unfolding: (\ len :: Int cs0 :: [Char] ->
@@ -1877,7 +1906,7 @@
of {} } })
`cast`
(Sym (NTCo:IO[0] <(ByteString, [Char])>_R))) -}
-db313e23e57caac74656ef8da72343cf
+74cf268681a69730538b30a9b20833cc
toForeignPtr :: ByteString -> (ForeignPtr Word8, Int, Int)
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>m,
Inline: INLINE (sat-args=1),
@@ -1885,7 +1914,7 @@
(\ ds :: ByteString ->
case ds of wild { PS dt dt1 dt2 dt3 ->
(ForeignPtr @ Word8 dt dt1, I# dt2, I# dt3) }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
unpackAppendBytesLazy :: ByteString -> [Word8] -> [Word8]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Inline: INLINE[0],
@@ -1893,7 +1922,7 @@
(\ w :: ByteString w1 :: [Word8] ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 w1 }) -}
-0067652fd5e778df805cad6186b090b8
+adf1de739474ce7e9d1406b005fa57a2
unpackAppendBytesStrict :: ByteString -> [Word8] -> [Word8]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Unfolding: InlineRule (2, True, False)
@@ -1922,7 +1951,7 @@
w3 :: State# RealWorld[OneShot] ->
case w of ww { Ptr ww1 ->
case w1 of ww2 { Ptr ww3 -> $wa3 ww1 ww3 w2 w3 } }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
unpackAppendCharsLazy :: ByteString -> [Char] -> [Char]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Inline: INLINE[0],
@@ -1930,7 +1959,7 @@
(\ w :: ByteString w1 :: [Char] ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendCharsLazy ww1 ww2 ww3 ww4 w1 }) -}
-3798756daeef6feb7283b961b7a3fec6
+91fd85b39e8025c19f1e1a9a1a35c1f8
unpackAppendCharsStrict :: ByteString -> [Char] -> [Char]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Unfolding: InlineRule (2, True, False)
@@ -1959,31 +1988,31 @@
w3 :: State# RealWorld[OneShot] ->
case w of ww { Ptr ww1 ->
case w1 of ww2 { Ptr ww3 -> $wa4 ww1 ww3 w2 w3 } }) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
unpackBytes :: ByteString -> [Word8]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>,
Unfolding: InlineRule (1, True, False)
(\ bs :: ByteString -> unpackAppendBytesLazy bs ([] @ Word8)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
unpackChars :: ByteString -> [Char]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>,
Unfolding: InlineRule (1, True, False)
(\ bs :: ByteString -> unpackAppendCharsLazy bs ([] @ Char)) -}
-4dc73ab1c129baacca60ea22e1167a38
+08e63616834f4a2bc3550cd8312961e9
unsafeCreate :: Int -> (Ptr Word8 -> IO ()) -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*C1(C1(U(U,A)))>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int f :: Ptr Word8 -> IO () ->
unsafeDupablePerformIO @ ByteString (create l f)) -}
-71d2655e5214f9441c9e54472b4eb167
+99fdc58605270bea84e042c7cc4033ab
unsafeCreateUptoN :: Int -> (Ptr Word8 -> IO Int) -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*C1(C1(U(U,1*U(U))))>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int f :: Ptr Word8 -> IO Int ->
unsafeDupablePerformIO @ ByteString (createUptoN l f)) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
unsafePackAddress :: Addr# -> IO ByteString
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U>,
Inline: INLINE (sat-args=1),
@@ -2013,7 +2042,7 @@
eta)
`cast`
(<ForeignPtr Word8>_R ->_R Sym (NTCo:IO[0] <ByteString>_R))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
unsafePackLenBytes :: Int -> [Word8] -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*U>,
Unfolding: (\ len :: Int xs0 :: [Word8] ->
@@ -2047,7 +2076,7 @@
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R))) -}
-ebe36aa8c36b2823633574e782d485cd
+684f63cce4f7bfa468fb4a3fe46996e6
unsafePackLenChars :: Int -> [Char] -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*U>,
Unfolding: (\ len :: Int cs0 :: [Char] ->
Raw
local.hi
Magic: Wanted 33214052,
got 33214052
Version: Wanted [7, 1, 0, 1],
got [7, 1, 0, 1]
Way: Wanted [],
got []
interface Data.ByteString.Internal 7101
interface hash: 30448d69b549c119e92ceb543beb907e
ABI hash: 8ca430975f4330e4e51cbf7176c441cc
export-list hash: e21b1eb74182290a34c102f4c294f93c
orphan hash: 97adbe5052209926c77f2c1c0c1e1751
flag hash: 5a3c509800f2b89dd8da2f004b3fee48
sig of: Nothing
used TH splices: False
where
exports:
accursedUnutterablePerformIO
c2w
c_count
c_free_finalizer
c_intersperse
c_maximum
c_minimum
c_reverse
c_strlen
checkedSum
create
createAndTrim
createAndTrim'
createUptoN
fromForeignPtr
inlinePerformIO
isSpaceChar8
isSpaceWord8
mallocByteString
memchr
memcmp
memcpy
memset
nullForeignPtr
packBytes
packChars
packUptoLenBytes
packUptoLenChars
toForeignPtr
unpackAppendBytesLazy
unpackAppendBytesStrict
unpackAppendCharsLazy
unpackAppendCharsStrict
unpackBytes
unpackChars
unsafeCreate
unsafeCreateUptoN
unsafePackAddress
unsafePackLenBytes
unsafePackLenChars
w2c
ByteString{PS}
module dependencies:
package dependencies: array-0.5.1.0 base-4.8.0.0 deepseq-1.4.1.1
ghc-prim-0.4.0.0 integer-gmp-1.0.0.0
orphans: GHC.Base GHC.Float
family instance modules: Control.Applicative Data.Either
Data.Functor.Identity Data.Monoid Data.Type.Equality Data.Void
GHC.Generics
import -/ Control.Exception 4b8ae776b8a5d0df6d3d5b4816f3c36b
import -/ Data.Char be7b582bbee0e2e8a92ebc1dc2c4ad6b
import -/ Data.Data 0a7a6dace4f2621976d81b585cbe04f0
import -/ Data.Foldable 76fe05bf578c452d0026c11e2150c50a
import -/ Data.List 1ce1df0135dc40608b7509b64b1b1155
import -/ Data.String 98a095880d7c2aa8d3242ea2adcdeaf5
import -/ Data.Typeable 050629664757d4d1f17ceed68545648b
import -/ Data.Typeable.Internal e488b48384b93b424eb4708b9a56b8cd
import -/ Data.Word 326930a4d7ef3baeedf20ef3a3becde6
import -/ Foreign.C.String e1bb0968b824e79992717b834b2d4a60
import -/ Foreign.C.Types dccdbd6b91c9ef8600827134eb24ccb5
import -/ Foreign.ForeignPtr a6c82ab279b1aea66f8353042c6734f8
import -/ Foreign.ForeignPtr.Imp becfaa1afda17ded206dfcef7d259158
import -/ Foreign.Ptr dc9d624808b15f29a36723beab302605
import -/ Foreign.Storable e84ec3705dd719fa9203cd769a269e83
import -/ GHC.Base 863c60f0ab7f851fd8d7f952f99143b1
import -/ GHC.ForeignPtr 343684387db6ba2e1c8b88988eca30ae
import -/ GHC.IO b3eea0920265f5475d3a274511f7c730
import -/ GHC.Num 3912aee06aa642e5ba69b9252c24062e
import -/ GHC.Ptr cccb06aae38a90a93ec944d4c9fb99ae
import -/ GHC.Read cb0f5227c01c66d7cfecbe39e76803bc
import -/ GHC.Real ff7c7991041a4d3d0fb4f36a75d044db
import -/ GHC.Show 0bdcf2b084dcf8c754739939bb684fd9
import -/ GHC.Word 6f7d1e49db7dbe48eec647a9b4ca66ed
import -/ Prelude 3bb8abb5a9ad10553c41284b8dee6bef
import -/ Control.DeepSeq 26fd2982af2f2d2524bbe65933bb216b
import -/ GHC.CString 2b4f0be3069c46629422451e1bbb1de6
import -/ GHC.Classes e1f4ff80f7b5262008a595d29986fb18
import -/ GHC.Prim 00000000000000000000000000000000
import -/ GHC.Types 6b27fb3fdbd0e3f0925a4496c66513bb
addDependentFile "libraries/bytestring/dist-install/build/autogen/cabal_macros.h"
addDependentFile "/nix/store/c2zjp7bqmp5wvpkrpl7p7sfhxbdyfryy-glibc-2.21/include/stdc-predef.h"
ebe36aa8c36b2823633574e782d485cd
$fDataByteString :: Data ByteString
DFunId[0]
{- Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fDataByteString20
$fDataByteString_$cgfoldl
$fDataByteString_$cgunfold
$fDataByteString_$ctoConstr
$fDataByteString_$cdataTypeOf
$fDataByteString_$s$dmdataCast1
$fDataByteString_$s$dmdataCast2
$fDataByteString_$cgmapT
$fDataByteString_$cgmapQl
$fDataByteString_$cgmapQr
$fDataByteString_$cgmapQ
$fDataByteString_$cgmapQi
$fDataByteString_$cgmapM
$fDataByteString_$cgmapMp
$fDataByteString_$cgmapMo -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString1 :: ([Word8] -> ByteString, Bool)
{- Unfolding: ((packBytes, False)) -}
c3a4c6b4f32aadd1c12a57832255998b
$fDataByteString10 :: [Char]
{- Unfolding: (unpackCString# "Word8"#) -}
085331db84005c3184635858b46230d8
$fDataByteString11 :: [Char]
{- Unfolding: (unpackCString# "GHC.Word"#) -}
e7eeb9ed0d48a3a121b7650f915f6778
$fDataByteString12 :: [Char]
{- Unfolding: (unpackCString# "base"#) -}
9fc7e8cf9967d46252f7ccf59aaca594
$fDataByteString13 :: [Char]
{- Unfolding: (unpackCString# "[]"#) -}
fbd48122118d3c753530f781dc60fbff
$fDataByteString14 :: [Char]
{- Unfolding: (unpackCString# "GHC.Types"#) -}
584dac562a3f52e780f3e908db9216f6
$fDataByteString15 :: [Char]
{- Unfolding: (unpackCString# "ghc-prim"#) -}
f268e58ef555908613318fea06253967
$fDataByteString16 :: DataType
{- Strictness: m, Unfolding: (DataType $fDataByteString17 NoRep) -}
dea99e63225f91dcafcd3589b7066dee
$fDataByteString17 :: [Char]
{- Unfolding: (unpackCString# "Data.ByteString.ByteString"#) -}
5a87f13637f5b6c03a08218bece91942
$fDataByteString18 :: Constr
{- Strictness: b -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString19 :: Constr -> c ByteString
{- Strictness: b -}
e1904048866e8b3a91dc53a4d664e5d7
$fDataByteString2 ::
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c [Word8])
{- Arity: 2, HasNoCafRefs, Strictness: <L,A><L,A>,
Unfolding: InlineRule (2, True, True)
(\ @ (c :: * -> *)
@ (t :: * -> * -> *)
$dTypeable1 :: Typeable t
ds :: forall d e. (Data d, Data e) => c (t d e) ->
Nothing @ (c [Word8])) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString20 :: Typeable ByteString
{- Arity: 1, Strictness: <L,A>,
Unfolding: InlineRule (0, True, True)
$fDataByteString21
`cast`
(Sym (NTCo:Typeable[0] <*>_N <ByteString>_N)) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString21 :: Proxy# ByteString -> TypeRep
{- Arity: 1, Strictness: <L,A>,
Unfolding: InlineRule (1, True, True)
(\ wild :: Proxy# ByteString -> $fDataByteString22) -}
bd4e333aadc42fe4e4b1869fc699688e
$fDataByteString22 :: TypeRep
{- Unfolding: (case $wmkPolyTyConApp
__word 17550167813363126540
__word 3988316862246226873
$fDataByteString_ww3
$fDataByteString_ww4
$fDataByteString23
([] @ TypeRep)
([] @ TypeRep) of ww6 { (#,,,,#) ww7 ww8 ww9 ww10 ww11 ->
TypeRep ww7 ww8 ww9 ww10 ww11 }) -}
0eaa4359cd5d3742c52fb6d20e3866ac
$fDataByteString23 :: [Char]
{- Unfolding: (unpackCString# "ByteString"#) -}
aa00528be0f1b2418c0dc68145cd718d
$fDataByteString3 ::
Typeable t => (forall d. Data d => c (t d)) -> Maybe (c [Word8])
{- Arity: 2,
Strictness: <C(S(SLLLL)),1*C1(U(1*U,1*U,A,A,A))><L,1*C1(U)>,
Unfolding: InlineRule (2, True, False)
(\ @ (c :: * -> *)
@ (t :: * -> *)
$dTypeable1 :: Typeable t
f :: forall d. Data d => c (t d) ->
case $dTypeable1 `cast` (NTCo:Typeable[0] <* -> *>_N <t>_N)
(proxy# @ (* -> *) @ t) of wild { TypeRep dt dt1 ds2 ds3 ds4 ->
case dt of wild1 {
DEFAULT -> Nothing @ (c [Word8])
__word 17730107610217102821
-> case dt1 of wild2 {
DEFAULT -> Nothing @ (c [Word8])
__word 9866972337190828755
-> Just
@ (c [Word8])
(f @ Word8 $fDataWord8)
`cast`
(<c>_R (Trans
(UnivCo mkUnsafeCo nominal t Any)
(UnivCo mkUnsafeCo nominal Any []) <Word8>_N)) } } }) -}
454ce166510d348a1962b4602754895f
$fDataByteString4 :: [Word8] -> DataType
{- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (1, True, True)
(\ ds :: [Word8] -> listDataType) -}
20f400f155a7dfe4c2d0d17104e7aa06
$fDataByteString5 :: [Word8] -> Constr
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: InlineRule (1, True, False)
(\ ds :: [Word8] ->
case ds of wild { [] -> nilConstr : ds1 ds2 -> consConstr }) -}
776b000d76696a34327ddb1d9013eef9
$fDataByteString6 :: Proxy# [Word8] -> TypeRep
{- Arity: 1, Strictness: <L,A>,
Unfolding: InlineRule (1, True, True)
(\ wild :: Proxy# [Word8] -> $fDataByteString7) -}
ef91d28d3d9a98811b152645ede9afc6
$fDataByteString7 :: TypeRep
{- Unfolding: (case $wmkPolyTyConApp
__word 17730107610217102821
__word 9866972337190828755
$fDataByteString15
$fDataByteString14
$fDataByteString13
([] @ TypeRep)
([] @ TypeRep) of ww6 { (#,,,,#) ww7 ww8 ww9 ww10 ww11 ->
case ww9 of ww { TyCon ww1 ww2 ww3 ww4 ww5 ->
case $wmkPolyTyConApp
ww1
ww2
ww3
ww4
ww5
ww10
(++
@ TypeRep
ww11
$fDataByteString8) of ww12 { (#,,,,#) ww13 ww14 ww15 ww16 ww17 ->
TypeRep ww13 ww14 ww15 ww16 ww17 } } }) -}
badfc135549bb809aba388a04c8d2f5e
$fDataByteString8 :: [TypeRep]
{- Unfolding: (: @ TypeRep $fDataByteString9 ([] @ TypeRep)) -}
c81cd50e1880aaea2e1d59fa1c2ce02d
$fDataByteString9 :: TypeRep
{- Unfolding: (case $wmkPolyTyConApp
__word 4673197808472169995
__word 1591651367984728364
$fDataByteString12
$fDataByteString11
$fDataByteString10
([] @ TypeRep)
([] @ TypeRep) of ww6 { (#,,,,#) ww7 ww8 ww9 ww10 ww11 ->
TypeRep ww7 ww8 ww9 ww10 ww11 }) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cdataTypeOf :: ByteString -> DataType
{- Arity: 1, Strictness: <L,A>m,
Unfolding: InlineRule (1, True, True)
(\ ds :: ByteString -> $fDataByteString16) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgfoldl ::
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> ByteString -> c ByteString
{- Arity: 3,
Strictness: <C(C(C(S))),1*C1(C1(C1(U)))><L,1*C1(U)><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (3, True, False)
(\ @ (c :: * -> *)
f :: forall d b. Data d => c (d -> b) -> d -> c b
z :: forall g. g -> c g
txt :: ByteString ->
f @ [Word8]
@ ByteString
$fDataByteString_$s$fData[]
(z @ ([Word8] -> ByteString) packBytes)
(unpackBytes txt)) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapM ::
Monad m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
{- Arity: 3,
Strictness: <S(LC(C(S))LLL),U(A,C(C1(U)),A,C(U),A)><L,C(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ @ (m :: * -> *)
$dMonad :: Monad m
f :: forall d. Data d => d -> m d
eta :: ByteString ->
let {
lvl15 :: m [Word8]
= f @ [Word8]
$fDataByteString_$s$fData[]
(case eta of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) })
} in
>>=
@ m
$dMonad
@ ([Word8] -> ByteString)
@ ByteString
(return @ m $dMonad @ ([Word8] -> ByteString) packBytes)
(\ c' :: [Word8] -> ByteString ->
>>=
@ m
$dMonad
@ [Word8]
@ ByteString
lvl15
(\ x' :: [Word8] -> return @ m $dMonad @ ByteString (c' x')))) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapMo ::
MonadPlus m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
{- Arity: 3,
Strictness: <S(LSLL),U(A,1*U,U,C(C1(U)))><L,C(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ @ (m :: * -> *)
$dMonadPlus :: MonadPlus m
eta :: forall d. Data d => d -> m d
eta1 :: ByteString ->
let {
$dMonad :: Monad m = $p2MonadPlus @ m $dMonadPlus
} in
let {
lvl15 :: m ByteString = mzero @ m $dMonadPlus @ ByteString
} in
>>=
@ m
$dMonad
@ (ByteString, Bool)
@ ByteString
(let {
y :: [Word8]
= case eta1 of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) }
} in
let {
lvl16 :: m [Word8] = eta @ [Word8] $fDataByteString_$s$fData[] y
} in
>>=
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
@ (ByteString, Bool)
(return
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
$fDataByteString1)
(\ ds1 :: ([Word8] -> ByteString, Bool) ->
case ds1 of wild { (,) h b1 ->
case b1 of wild1 {
False
-> mplus
@ m
$dMonadPlus
@ (ByteString, Bool)
(>>=
@ m
$dMonad
@ [Word8]
@ (ByteString, Bool)
lvl16
(\ y' :: [Word8] ->
return @ m $dMonad @ (ByteString, Bool) (h y', True)))
(return @ m $dMonad @ (ByteString, Bool) (h y, False))
True -> return @ m $dMonad @ (ByteString, Bool) (h y, True) } }))
(\ ds :: (ByteString, Bool) ->
case ds of wild { (,) x' b ->
case b of wild1 {
False -> lvl15 True -> return @ m $dMonad @ ByteString x' } })) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapMp ::
MonadPlus m =>
(forall d. Data d => d -> m d) -> ByteString -> m ByteString
{- Arity: 3,
Strictness: <S(LSLL),U(A,1*U,U,C(C1(U)))><L,C(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ @ (m :: * -> *)
$dMonadPlus :: MonadPlus m
eta :: forall d. Data d => d -> m d
eta1 :: ByteString ->
let {
$dMonad :: Monad m = $p2MonadPlus @ m $dMonadPlus
} in
let {
lvl15 :: m ByteString = mzero @ m $dMonadPlus @ ByteString
} in
>>=
@ m
$dMonad
@ (ByteString, Bool)
@ ByteString
(let {
y :: [Word8]
= case eta1 of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) }
} in
let {
lvl16 :: m [Word8] = eta @ [Word8] $fDataByteString_$s$fData[] y
} in
>>=
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
@ (ByteString, Bool)
(return
@ m
$dMonad
@ ([Word8] -> ByteString, Bool)
$fDataByteString1)
(\ ds1 :: ([Word8] -> ByteString, Bool) ->
case ds1 of wild { (,) h b1 ->
mplus
@ m
$dMonadPlus
@ (ByteString, Bool)
(>>=
@ m
$dMonad
@ [Word8]
@ (ByteString, Bool)
lvl16
(\ y' :: [Word8] ->
return @ m $dMonad @ (ByteString, Bool) (h y', True)))
(return @ m $dMonad @ (ByteString, Bool) (h y, b1)) }))
(\ ds :: (ByteString, Bool) ->
case ds of wild { (,) x' b ->
case b of wild1 {
False -> lvl15 True -> return @ m $dMonad @ ByteString x' } })) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapQ ::
(forall d. Data d => d -> u) -> ByteString -> [u]
{- Arity: 2, Strictness: <L,1*C1(C1(U))><L,1*U(U,U,U,U)>m2,
Unfolding: InlineRule (2, True, False)
(\ @ u f :: forall d. Data d => d -> u x0 :: ByteString ->
: @ u
(f @ [Word8]
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x0 ([] @ Word8)))
([] @ u)) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapQi ::
Int -> (forall d. Data d => d -> u) -> ByteString -> u
{- Arity: 3,
Strictness: <S(S),1*U(1*U)><C(C(S)),1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (3, True, False)
(\ @ u i :: Int f :: forall d. Data d => d -> u x :: ByteString ->
case i of wild1 { I# x1 ->
case x1 of wild {
DEFAULT -> fromJust1 @ u
0
-> f @ [Word8]
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x ([] @ Word8)) } }) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapQl ::
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> ByteString -> r
{- Arity: 4,
Strictness: <C(C(S)),1*C1(C1(U))><L,U><L,1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (4, True, False)
(\ @ r
@ r'
o :: r -> r' -> r
r1 :: r
f :: forall d. Data d => d -> r'
eta :: ByteString ->
o r1
(f @ [Word8] $fDataByteString_$s$fData[] (unpackBytes eta))) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapQr ::
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> ByteString -> r
{- Arity: 4,
Strictness: <C(C(S)),1*C1(C1(U))><L,U><L,1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: InlineRule (4, True, False)
(\ @ r
@ r'
o :: r' -> r -> r
r0 :: r
f :: forall d. Data d => d -> r'
x0 :: ByteString ->
o (f @ [Word8]
$fDataByteString_$s$fData[]
(unpackAppendBytesLazy x0 ([] @ Word8)))
r0) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgmapT ::
(forall b. Data b => b -> b) -> ByteString -> ByteString
{- Arity: 2, Strictness: <L,1*C1(C1(U))><L,1*U(U,U,U,U)>,
Unfolding: (\ f :: forall b. Data b => b -> b x0 :: ByteString ->
let {
ws :: [Word8]
= f @ [Word8]
$fDataByteString_$s$fData[]
(case x0 of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 ([] @ Word8) })
} in
unsafePackLenBytes
(case $wlenAcc @ Word8 ws 0 of ww2 { DEFAULT -> I# ww2 })
ws) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$cgunfold ::
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c ByteString
{- Arity: 2, Strictness: <B,A><B,A>b,
Unfolding: InlineRule (2, True, True)
(\ @ (c :: * -> *)
ds :: forall b r. Data b => c (b -> r) -> c r
ds1 :: forall r. r -> c r ->
$fDataByteString19 @ c) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$ctoConstr :: ByteString -> Constr
{- Arity: 1, Strictness: <B,A>b,
Unfolding: InlineRule (1, True, True)
(\ ds :: ByteString -> $fDataByteString18) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$s$dmdataCast1 ::
Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ByteString)
{- Arity: 2, HasNoCafRefs, Strictness: <L,A><L,A>,
Unfolding: InlineRule (-1, True, True)
(\ @ (c :: * -> *)
@ (t :: * -> *)
$dTypeable :: Typeable t
ds :: forall d. Data d => c (t d) ->
Nothing @ (c ByteString)) -}
ebe36aa8c36b2823633574e782d485cd
$fDataByteString_$s$dmdataCast2 ::
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ByteString)
{- Arity: 2, HasNoCafRefs, Strictness: <L,A><L,A>,
Unfolding: InlineRule (-1, True, True)
(\ @ (c :: * -> *)
@ (t :: * -> * -> *)
$dTypeable :: Typeable t
ds :: forall d e. (Data d, Data e) => c (t d e) ->
Nothing @ (c ByteString)) -}
f33d34045a664763ef56b4132f434c80
$fDataByteString_$s$fData[] :: Data [Word8]
{- Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ [Word8]
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
($fData[]_$cgfoldl
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgunfold
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
$fDataByteString5
$fDataByteString4
$fDataByteString3
$fDataByteString2
($fData[]_$cgmapT
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQl
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQr
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQ
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapQi
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapM
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapMp
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8)
($fData[]_$cgmapMo
@ Word8
$fDataByteString6 `cast` (Sym (NTCo:Typeable[0] <*>_N <[Word8]>_N))
$fDataWord8) -}
01bb19f5847bae5b513780c863b8dcc1
$fDataByteString_ww3 :: String
{- Unfolding: (unpackCString# "bytes_6vj5EoliHgNHISHCVCb069"#) -}
de19c88a36a3280161d6f6606396c745
$fDataByteString_ww4 :: String
{- Unfolding: (unpackCString# "Data.ByteString.Internal"#) -}
ebe36aa8c36b2823633574e782d485cd
$fEqByteString :: Eq ByteString
DFunId[0]
{- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:. @ ByteString eq $fEqByteString_$c/= -}
ebe36aa8c36b2823633574e782d485cd
$fEqByteString_$c/= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ x :: ByteString y :: ByteString -> not (eq x y)) -}
ebe36aa8c36b2823633574e782d485cd
$fIsStringByteString :: IsString ByteString
DFunId[0]
{- Arity: 1, Strictness: <L,U>, Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, True)
packChars `cast` (Sym (NTCo:IsString[0]) <ByteString>_N) -}
ebe36aa8c36b2823633574e782d485cd
$fMonoidByteString :: Monoid ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fMonoidByteString_$cmempty
$fMonoidByteString_$cmappend
$fMonoidByteString_$cmconcat -}
ae605af85366e79d0675cc8c5ce3699b
$fMonoidByteString1 :: [Char]
{- Unfolding: (unpackCString# "concat"#) -}
45d993c4d3b61d51c3e0a695c8e12ddc
$fMonoidByteString2 :: String -> Int
{- Arity: 1, Strictness: <L,U>b -}
917f7dd81ab17f1771f9522c03ad9d4a
$fMonoidByteString3 :: ForeignPtrContents
{- Strictness: b -}
ebe36aa8c36b2823633574e782d485cd
$fMonoidByteString_$cmappend ::
ByteString -> ByteString -> ByteString
{- Arity: 2, Strictness: <S(LLLS),1*U(U,U,U,U)><S,1*U(U,U,U,U)>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: ByteString ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
case w1 of ww5 { PS ww6 ww7 ww8 ww9 ->
$w$cmappend ww1 ww2 ww3 ww4 ww6 ww7 ww8 ww9 } }) -}
ebe36aa8c36b2823633574e782d485cd
$fMonoidByteString_$cmconcat :: [ByteString] -> ByteString
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: (\ ds :: [ByteString] ->
case ds of wild {
[] -> $fMonoidByteString_$cmempty
: bs ds1
-> case ds1 of wild1 {
[] -> bs
: ipv ipv1
-> unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
case $wcheckedSum
$fMonoidByteString1
($fMonoidByteString_$sgo bs wild1) of ww { DEFAULT ->
case tagToEnum# @ Bool (<# ww 0) of wild2 {
False
-> case newPinnedByteArray#
@ RealWorld
ww
eta of ds2 { (#,#) ipv2 ipv3 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv3
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $fMonoidByteString_$s$wa
bs
wild1
a16
ipv2 of ds3 { (#,#) ipv4 ipv5 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv3
} in
case touch# @ ForeignPtrContents a17 ipv4 of s' { DEFAULT ->
(# s', PS a16 a17 0 ww #) } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R)) } }) -}
ebe36aa8c36b2823633574e782d485cd
$fMonoidByteString_$cmempty :: ByteString
{- Strictness: m, Unfolding: (PS __NULL $fMonoidByteString3 0 0) -}
ebe36aa8c36b2823633574e782d485cd
$fMonoidByteString_$s$wa ::
ByteString
-> [ByteString]
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, () #)
{- Arity: 4, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U> -}
ebe36aa8c36b2823633574e782d485cd
$fMonoidByteString_$sgo :: ByteString -> [ByteString] -> [Int]
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U> -}
ebe36aa8c36b2823633574e782d485cd
$fNFDataByteString :: NFData ByteString
DFunId[0]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*H>,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, True)
$fNFDataByteString_$crnf
`cast`
(Sym (NTCo:NFData[0] <ByteString>_N)) -}
ebe36aa8c36b2823633574e782d485cd
$fNFDataByteString_$crnf :: ByteString -> ()
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*H>,
Unfolding: InlineRule (1, True, False)
(\ ds :: ByteString ->
case ds of wild { PS dt dt1 dt2 dt3 -> () }) -}
ebe36aa8c36b2823633574e782d485cd
$fOrdByteString :: Ord ByteString
DFunId[0]
{- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fEqByteString
compareBytes
$fOrdByteString_$s$dm<
$fOrdByteString_$s$dm<=
$fOrdByteString_$s$dm>
$fOrdByteString_$s$dm>=
$fOrdByteString_$cmax
$fOrdByteString_$cmin -}
ebe36aa8c36b2823633574e782d485cd
$fOrdByteString_$cmax :: ByteString -> ByteString -> ByteString
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),U(U,U,U,U)><S,U(U,U,U,U)>m,
Unfolding: InlineRule (2, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> y GT -> x }) -}
ebe36aa8c36b2823633574e782d485cd
$fOrdByteString_$cmin :: ByteString -> ByteString -> ByteString
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),U(U,U,U,U)><S,U(U,U,U,U)>m,
Unfolding: InlineRule (2, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> x GT -> y }) -}
ebe36aa8c36b2823633574e782d485cd
$fOrdByteString_$s$dm< :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> False LT -> True }) -}
ebe36aa8c36b2823633574e782d485cd
$fOrdByteString_$s$dm<= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> True GT -> False }) -}
ebe36aa8c36b2823633574e782d485cd
$fOrdByteString_$s$dm> :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> False GT -> True }) -}
ebe36aa8c36b2823633574e782d485cd
$fOrdByteString_$s$dm>= :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Unfolding: InlineRule (-1, True, False)
(\ x :: ByteString y :: ByteString ->
case compareBytes x y of wild { DEFAULT -> True LT -> False }) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString :: Read ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fReadByteString_$creadsPrec
$fReadByteString_$creadList
$fReadByteString_$creadPrec
$fReadByteString_$creadListPrec -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString1 :: Prec -> forall b. ([ByteString] -> P b) -> P b
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (2, True, False)
(\ eta :: Prec @ b eta1 :: [ByteString] -> P b ->
case $wa5
@ [ByteString]
$fReadByteString_$creadList
@ b
eta1 of ww { (##) ww1 ->
Look @ b ww1 }) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString2 :: P [ByteString]
{- Unfolding: ($wa
@ ByteString
$fReadByteString3
`cast`
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <ByteString>_R))
(Sym (NTCo:ReadPrec[0] <ByteString>_R)))
@ [ByteString]
($fApplicativeP_$creturn @ [ByteString])) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString3 :: Prec -> forall b. (ByteString -> P b) -> P b
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (2, True, False)
(\ eta :: Prec @ b eta1 :: ByteString -> P b ->
case $wa5
@ ByteString
($fReadByteString_$creadsPrec eta)
@ b
eta1 of ww { (##) ww1 ->
Look @ b ww1 }) -}
4a4ab227534bb58dd8844e50a7368652
$fReadByteString4 :: P [Char]
{- Unfolding: ($wa19
@ [Char]
($fApplicativeP_$creturn @ [Char])) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString_$creadList :: ReadS [ByteString]
{- Arity: 1, Unfolding: (run @ [ByteString] $fReadByteString2) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString_$creadListPrec :: ReadPrec [ByteString]
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (0, True, True)
$fReadByteString1
`cast`
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <[ByteString]>_R))
(Sym (NTCo:ReadPrec[0] <[ByteString]>_R))) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString_$creadPrec :: ReadPrec ByteString
{- Arity: 2, Strictness: <L,A><L,C(U)>m2,
Unfolding: InlineRule (0, True, True)
$fReadByteString3
`cast`
(Trans
(<Prec>_R ->_R Sym (NTCo:ReadP[0] <ByteString>_R))
(Sym (NTCo:ReadPrec[0] <ByteString>_R))) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString_$creadsPrec :: Int -> ReadS ByteString
{- Arity: 2, Strictness: <L,A><L,U>, Inline: INLINE[0],
Unfolding: InlineRule (2, True, True)
(\ w :: Int w1 :: String -> $w$creadsPrec w1) -}
ebe36aa8c36b2823633574e782d485cd
$fReadByteString_go :: [([Char], String)] -> [(ByteString, String)]
{- Arity: 1, Strictness: <S,1*U> -}
ebe36aa8c36b2823633574e782d485cd
$fShowByteString :: Show ByteString
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ ByteString
$fShowByteString_$cshowsPrec
$fShowByteString_$cshow
$fShowByteString_$cshowList -}
ebe36aa8c36b2823633574e782d485cd
$fShowByteString1 :: ByteString -> ShowS
{- Arity: 2, Strictness: <L,1*U(U,U,U,U)><L,U>m2,
Unfolding: InlineRule (2, True, False)
(\ ps :: ByteString r :: String ->
: @ Char
shows6
(showLitString (unpackChars ps) (: @ Char shows6 r))) -}
ebe36aa8c36b2823633574e782d485cd
$fShowByteString_$cshow :: ByteString -> String
{- Arity: 1, Strictness: <L,1*U(U,U,U,U)>m2,
Unfolding: InlineRule (1, True, False)
(\ x :: ByteString ->
: @ Char
shows6
(showLitString (unpackChars x) (: @ Char shows6 ([] @ Char)))) -}
ebe36aa8c36b2823633574e782d485cd
$fShowByteString_$cshowList :: [ByteString] -> ShowS
{- Arity: 2, Strictness: <S,1*U><L,U>,
Unfolding: (\ ls :: [ByteString] s :: String ->
showList__ @ ByteString $fShowByteString1 ls s) -}
ebe36aa8c36b2823633574e782d485cd
$fShowByteString_$cshowsPrec :: Int -> ByteString -> ShowS
{- Arity: 3, Strictness: <L,A><L,1*U(U,U,U,U)><L,U>m2,
Unfolding: InlineRule (3, True, False)
(\ p :: Int ps :: ByteString r :: String ->
: @ Char
shows6
(showLitString (unpackChars ps) (: @ Char shows6 r))) -}
ebe36aa8c36b2823633574e782d485cd
$w$cmappend ::
Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> ByteString
{- Arity: 8, Strictness: <L,U><L,U><L,U><S,U><L,U><L,U><L,U><L,U>,
Inline: [0],
Unfolding: (\ ww :: Addr#
ww1 :: ForeignPtrContents
ww2 :: Int#
ww3 :: Int#
ww4 :: Addr#
ww5 :: ForeignPtrContents
ww6 :: Int#
ww7 :: Int# ->
case ww3 of ds {
DEFAULT
-> case ww7 of ds1 {
DEFAULT
-> unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
let {
a16 :: Int# = +# ds ds1
} in
case tagToEnum# @ Bool (<# a16 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
a16
eta of ds2 { (#,#) ipv ipv1 ->
let {
a17 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}
a17
(plusAddr# ww ww2)
(int2Word# ds)
ipv of wild { (#,#) ds3 ds4 ->
case touch# @ ForeignPtrContents ww1 ds3 of s' { DEFAULT ->
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}
(plusAddr# a17 ds)
(plusAddr# ww4 ww6)
(int2Word# ds1)
s' of wild2 { (#,#) ds5 ds6 ->
case touch# @ ForeignPtrContents ww5 ds5 of s'1 { DEFAULT ->
let {
a18 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a18 s'1 of s'2 { DEFAULT ->
(# s'2, PS a17 a18 0 a16 #) } } } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R))
0 -> PS ww ww1 ww2 ds }
0 -> PS ww4 ww5 ww6 ww7 }) -}
ebe36aa8c36b2823633574e782d485cd
$w$creadsPrec :: String -> [(ByteString, String)]
{- Arity: 1, Strictness: <L,U>, Inline: [0],
Unfolding: (\ w :: String ->
$fReadByteString_go (run @ [Char] $fReadByteString4 w)) -}
b30702501ffb401a57e2cb290002a68e
$wa ::
Addr# -> [Word8] -> State# RealWorld -> (# State# RealWorld, () #)
{- Arity: 3, HasNoCafRefs, Strictness: <L,U><S,1*U><L,U>,
Inline: [0] -}
e7fe201da3607232a4d5d0b0dc4ec56f
$wa1 ::
Addr# -> [Char] -> State# RealWorld -> (# State# RealWorld, () #)
{- Arity: 3, HasNoCafRefs, Strictness: <L,U><S,1*U><L,U>,
Inline: [0] -}
b5f6b082d6473453e96be2cc296bae5b
$wa2 ::
Int#
-> (Ptr Word8 -> IO (Int, Int, a))
-> State# RealWorld
-> (# State# RealWorld, (ByteString, a) #)
{- Arity: 3,
Strictness: <L,U><L,1*C1(C1(U(U,1*U(1*U(U),1*U(U),U))))><L,U>,
Inline: [0],
Unfolding: (\ @ a16
ww :: Int#
w :: Ptr Word8 -> IO (Int, Int, a16)
w1 :: State# RealWorld[OneShot] ->
case tagToEnum# @ Bool (<# ww 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
ww
w1 of ds { (#,#) ipv ipv1 ->
let {
a17 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case (w (Ptr @ Word8 a17)) `cast` (NTCo:IO[0] <(Int, Int, a16)>_R)
ipv of ds1 { (#,#) ipv2 ipv3 ->
case ipv3 of wild { (,,) off l' res ->
case l' of wild2 { I# x ->
let {
a18 :: ForeignPtrContents = PlainPtr ipv1
} in
case tagToEnum# @ Bool (>=# x ww) of wild3 {
False
-> case tagToEnum# @ Bool (<# x 0) of wild4 {
False
-> case newPinnedByteArray#
@ RealWorld
x
ipv2 of ds2 { (#,#) ipv4 ipv5 ->
case off of wild5 { I# d ->
let {
a19 :: Addr#
= byteArrayContents#
ipv5
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld,
Addr# #)}
a19
(plusAddr# a17 d)
(int2Word# x)
ipv4 of wild6 { (#,#) ds3 ds4 ->
let {
a20 :: ForeignPtrContents = PlainPtr ipv5
} in
case touch# @ ForeignPtrContents a20 ds3 of s' { DEFAULT ->
case touch# @ ForeignPtrContents a18 s' of s'1 { DEFAULT ->
(# s'1, (PS a19 a20 0 x, res) #) } } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, a16) #)
of {} }
True
-> case touch# @ ForeignPtrContents a18 ipv2 of s' { DEFAULT ->
(# s', (PS a17 a18 0 ww, res) #) } } } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, a16) #)
of {} }) -}
72e4c9bac4e378db5e65e4f3d182770a
$wa3 ::
Addr#
-> Addr#
-> [Word8]
-> State# RealWorld
-> (# State# RealWorld, [Word8] #)
{- Arity: 4, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U>,
Inline: [0] -}
8d7295a4ce87107a2e55392a7032861f
$wa4 ::
Addr#
-> Addr#
-> [Char]
-> State# RealWorld
-> (# State# RealWorld, [Char] #)
{- Arity: 4, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U>,
Inline: [0] -}
d125a99bc507a73110b1371a4d06206b
$wcheckedSum :: String -> [Int] -> Int#
{- Arity: 2, Strictness: <L,1*U><S,1*U>, Inline: [0],
Unfolding: (\ w :: String w1 :: [Int] ->
letrec {
$wgo :: Int# -> [Int] -> Int#
{- Arity: 2, Strictness: <L,U><S,1*U>, Inline: [0] -}
= \ ww :: Int# w2 :: [Int] ->
case w2 of wild {
[] -> ww
: x xs
-> case x of wild1 { I# y ->
let {
x1 :: Int# = +# ww y
} in
case tagToEnum# @ Bool (>=# x1 0) of wild2 {
False -> case $fMonoidByteString2 w ret_ty Int# of {}
True -> $wgo x1 xs } } }
} in
$wgo 0 w1) -}
19c7c35ff5be871af07538c98382767f
$wcompareBytes ::
Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> Addr#
-> ForeignPtrContents
-> Int#
-> Int#
-> Ordering
{- Arity: 8, HasNoCafRefs,
Strictness: <L,U><L,U><L,U><S,U><L,U><L,U><L,U><L,U>, Inline: [0],
Unfolding: (\ ww :: Addr#
ww1 :: ForeignPtrContents
ww2 :: Int#
ww3 :: Int#
ww4 :: Addr#
ww5 :: ForeignPtrContents
ww6 :: Int#
ww7 :: Int# ->
let {
fail :: Void# -> Ordering {- Arity: 1, Strictness: <L,A> -}
= \ ds :: Void#[OneShot] ->
let {
$j :: Int# -> Ordering {- Arity: 1, Strictness: <L,U> -}
= \ x# :: Int#[OneShot] ->
case {__pkg_ccall bytestring-0.10.6.0 memcmp Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld,
Int# #)}
(plusAddr# ww ww2)
(plusAddr# ww4 ww6)
(int2Word# x#)
realWorld# of wild { (#,#) ds1 ds2 ->
let {
a16 :: Int# = narrow32Int# ds2
} in
case case tagToEnum# @ Bool (<# a16 0) of wild2 {
False
-> case a16 of wild1 { DEFAULT -> GT 0 -> compareInt# ww3 ww7 }
True -> LT } of vx { DEFAULT ->
case touch# @ ForeignPtrContents ww5 ds1 of s' { DEFAULT ->
case touch# @ ForeignPtrContents ww1 s' of s'1 { DEFAULT ->
vx } } } }
} in
case tagToEnum# @ Bool (<=# ww3 ww7) of wild2 {
False -> $j ww7 True -> $j ww3 }
} in
case ww3 of ds {
DEFAULT -> fail void#
0 -> case ww7 of ds1 { DEFAULT -> fail void# 0 -> EQ } }) -}
862e911f1f61e057690c7d87e483cfd3
$wunpackAppendBytesLazy ::
Addr# -> ForeignPtrContents -> Int# -> Int# -> [Word8] -> [Word8]
{- Arity: 5, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U><L,U>,
Inline: [0] -}
b151dcb4e70f723b1a0c725e36461b14
$wunpackAppendCharsLazy ::
Addr# -> ForeignPtrContents -> Int# -> Int# -> [Char] -> [Char]
{- Arity: 5, HasNoCafRefs, Strictness: <L,U><L,U><L,U><L,U><L,U>,
Inline: [0] -}
ebe36aa8c36b2823633574e782d485cd
data ByteString
= PS {-# UNPACK #-}(ForeignPtr Word8)
{-# UNPACK #-}Int
{-# UNPACK #-}Int
0ee02063290fa19da3f0a4b5411a4c1d
accursedUnutterablePerformIO :: IO a -> a
{- Arity: 1, HasNoCafRefs, Strictness: <C(S(LS)),1*C1(U(A,1*U))>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ @ a16 ds :: IO a16 ->
case ds `cast` (NTCo:IO[0] <a16>_R)
realWorld# of ds1 { (#,#) ipv ipv1 ->
ipv1 }) -}
62e7d43691088970d10e817995993e12
c2w :: Char -> Word8
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U)>m,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, False)
(\ x :: Char ->
case ord x of wild { I# x# ->
W8# (narrow8Word# (int2Word# x#)) }) -}
7a7fb3914e34d843702d4c158d19e6d6
c_count :: Ptr Word8 -> CULong -> Word8 -> IO CULong
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (3, False, False)
(\ ds :: Ptr Word8
ds1 :: Word64
ds2 :: Word8
eta :: State# RealWorld[OneShot] ->
case ds of ds3 { Ptr ds4 ->
case ds1 of ds5 { W64# ds6 ->
case ds2 of ds7 { W8# ds8 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_count Addr#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds4
ds6
ds8
eta of wild { (#,#) ds9 ds10 ->
(# ds9, W64# ds10 #) } } } })
`cast`
(<Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R <Word8>_R
->_R Sym (NTCo:IO[0] (NTCo:CULong[0]))) -}
dd9a4c73a4e7634a63fec53090d3ce03
c_free_finalizer :: FunPtr (Ptr Word8 -> IO ())
{- Strictness: m,
Unfolding: (FunPtr
@ (Ptr Word8 -> IO ())
__label "free" (function)) -}
ffe406bdafb5ceeb88c35d45152dda30
c_intersperse :: Ptr Word8 -> Ptr Word8 -> CULong -> Word8 -> IO ()
{- Arity: 5, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (4, False, False)
(\ ds :: Ptr Word8
ds1 :: Ptr Word8
ds2 :: Word64
ds3 :: Word8
eta :: State# RealWorld[OneShot] ->
case ds of ds4 { Ptr ds5 ->
case ds1 of ds6 { Ptr ds7 ->
case ds2 of ds8 { W64# ds9 ->
case ds3 of ds10 { W8# ds11 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_intersperse Addr#
-> Addr#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}
ds5
ds7
ds9
ds11
eta of wild { (##) ds12 ->
(# ds12, () #) } } } } })
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R <Word8>_R
->_R Sym (NTCo:IO[0] <()>_R)) -}
82215cb9536a78ff4fda58814b10bf7f
c_maximum :: Ptr Word8 -> CULong -> IO Word8
{- Arity: 3, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (2, False, False)
(\ ds :: Ptr Word8
ds1 :: Word64
eta :: State# RealWorld[OneShot] ->
case ds of ds2 { Ptr ds3 ->
case ds1 of ds4 { W64# ds5 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_maximum Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds3
ds5
eta of wild { (#,#) ds6 ds7 ->
(# ds6, W8# (narrow8Word# ds7) #) } } })
`cast`
(<Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R Sym (NTCo:IO[0] <Word8>_R)) -}
81bccf6eb6f954816f95d1a093ed8e63
c_minimum :: Ptr Word8 -> CULong -> IO Word8
{- Arity: 3, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (2, False, False)
(\ ds :: Ptr Word8
ds1 :: Word64
eta :: State# RealWorld[OneShot] ->
case ds of ds2 { Ptr ds3 ->
case ds1 of ds4 { W64# ds5 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_minimum Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds3
ds5
eta of wild { (#,#) ds6 ds7 ->
(# ds6, W8# (narrow8Word# ds7) #) } } })
`cast`
(<Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R Sym (NTCo:IO[0] <Word8>_R)) -}
b857b7c759df17dfed725ac5977ad715
c_reverse :: Ptr Word8 -> Ptr Word8 -> CULong -> IO ()
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (3, False, False)
(\ ds :: Ptr Word8
ds1 :: Ptr Word8
ds2 :: Word64
eta :: State# RealWorld[OneShot] ->
case ds of ds3 { Ptr ds4 ->
case ds1 of ds5 { Ptr ds6 ->
case ds2 of ds7 { W64# ds8 ->
case {__pkg_ccall bytestring-0.10.6.0 fps_reverse Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}
ds4
ds6
ds8
eta of wild { (##) ds9 ->
(# ds9, () #) } } } })
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R Sym (NTCo:CULong[0])
->_R Sym (NTCo:IO[0] <()>_R)) -}
4fe78110bfec00a43d4770052e82f17b
c_strlen :: CString -> IO CSize
{- Arity: 2, HasNoCafRefs, Strictness: <S(S),1*U(U)><S,U>,
Unfolding: InlineRule (1, False, False)
(\ ds :: Ptr CChar eta :: State# RealWorld[OneShot] ->
case ds of ds1 { Ptr ds2 ->
case {__pkg_ccall bytestring-0.10.6.0 strlen Addr#
-> State# RealWorld
-> (# State# RealWorld, Word# #)}
ds2
eta of wild { (#,#) ds3 ds4 ->
(# ds3, W64# ds4 #) } })
`cast`
(<Ptr CChar>_R ->_R Sym (NTCo:IO[0] (NTCo:CSize[0]))) -}
6d191c50a0f8d179099c4978045d8f51
checkedSum :: String -> [Int] -> Int
{- Arity: 2, Strictness: <L,1*U><S,1*U>m, Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: String w1 :: [Int] ->
case $wcheckedSum w w1 of ww { DEFAULT -> I# ww }) -}
ebe36aa8c36b2823633574e782d485cd
compareBytes :: ByteString -> ByteString -> Ordering
{- Arity: 2, HasNoCafRefs,
Strictness: <S(LLLS),1*U(U,U,U,U)><S,U(U,U,U,U)>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: ByteString ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
case w1 of ww5 { PS ww6 ww7 ww8 ww9 ->
$wcompareBytes ww1 ww2 ww3 ww4 ww6 ww7 ww8 ww9 } }) -}
464462288fecdcd3e8e835a3710309d9
create :: Int -> (Ptr Word8 -> IO ()) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,A)))><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int
f :: Ptr Word8 -> IO ()
eta :: State# RealWorld[OneShot] ->
(bindIO
@ (ForeignPtr Word8)
@ ByteString
(mallocPlainForeignPtrBytes @ Word8 l)
(\ fp :: ForeignPtr Word8 ->
thenIO
@ ()
@ ByteString
($ @ (Ptr Word8 -> IO ())
@ (IO ())
(withForeignPtr @ Word8 @ () fp)
(\ p :: Ptr Word8 -> f p))
(case fp of dt { ForeignPtr dt1 dt2 ->
case l of dt3 { I# dt4 ->
$!
@ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(PS dt1 dt2 0 dt4) } })))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<Int>_R
->_R <Ptr Word8 -> IO ()>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
ae475db1e90f5f1f2745c31d46c4da0e
createAndTrim :: Int -> (Ptr Word8 -> IO Int) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(U))))><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int
f :: Ptr Word8 -> IO Int
eta :: State# RealWorld[OneShot] ->
(bindIO
@ (ForeignPtr Word8)
@ ByteString
(mallocPlainForeignPtrBytes @ Word8 l)
(\ fp :: ForeignPtr Word8 ->
$ @ (Ptr Word8 -> IO ByteString)
@ (IO ByteString)
(withForeignPtr @ Word8 @ ByteString fp)
(\ p :: Ptr Word8 ->
bindIO
@ Int
@ ByteString
(f p)
(\ l' :: Int ->
case $ @ Bool
@ Bool
(assert @ Bool (leInt l' l))
(geInt l' l) of wild {
False
-> $ @ (Ptr Word8 -> IO ())
@ (IO ByteString)
(create l')
(\ p' :: Ptr Word8 eta1 :: State# RealWorld[OneShot] ->
(memcpy p' p l') `cast` (NTCo:IO[0] <()>_R) eta1)
`cast`
(<Ptr Word8>_R ->_R Sym (NTCo:IO[0] <()>_R))
True
-> case fp of dt { ForeignPtr dt1 dt2 ->
case l of dt3 { I# dt4 ->
$!
@ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(PS dt1 dt2 0 dt4) } } }))))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<Int>_R
->_R <Ptr Word8 -> IO Int>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
5db3aa6f0692a13b01dfd67d19b7411e
createAndTrim' ::
Int -> (Ptr Word8 -> IO (Int, Int, a)) -> IO (ByteString, a)
{- Arity: 3,
Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(1*U(U),1*U(U),U))))><L,U>,
Unfolding: InlineRule (0, True, True)
createAndTrim'1
`cast`
(forall a16.
<Int>_R
->_R <Ptr Word8 -> IO (Int, Int, a16)>_R
->_R Sym (NTCo:IO[0] <(ByteString, a16)>_R)) -}
82eb366c5fd3c4f4736d07f91b4aa991
createAndTrim'1 ::
Int
-> (Ptr Word8 -> IO (Int, Int, a))
-> State# RealWorld
-> (# State# RealWorld, (ByteString, a) #)
{- Arity: 3,
Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(1*U(U),1*U(U),U))))><L,U>,
Inline: INLINE[0],
Unfolding: InlineRule (3, True, False)
(\ @ a16
w :: Int
w1 :: Ptr Word8 -> IO (Int, Int, a16)
w2 :: State# RealWorld[OneShot] ->
case w of ww { I# ww1 -> $wa2 @ a16 ww1 w1 w2 }) -}
0d8b5cfe69f4f246c1dca28122d2672d
createUptoN :: Int -> (Ptr Word8 -> IO Int) -> IO ByteString
{- Arity: 3, Strictness: <S,1*U(U)><L,1*C1(C1(U(U,1*U(U))))><L,U>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int
f :: Ptr Word8 -> IO Int
eta :: State# RealWorld[OneShot] ->
(bindIO
@ (ForeignPtr Word8)
@ ByteString
(mallocPlainForeignPtrBytes @ Word8 l)
(\ fp :: ForeignPtr Word8 ->
bindIO
@ Int
@ ByteString
($ @ (Ptr Word8 -> IO Int)
@ (IO Int)
(withForeignPtr @ Word8 @ Int fp)
(\ p :: Ptr Word8 -> f p))
(\ l' :: Int ->
$ @ (IO ByteString)
@ (IO ByteString)
(assert @ (IO ByteString) (leInt l' l))
(case fp of dt { ForeignPtr dt1 dt2 ->
case l' of dt3 { I# dt4 ->
$!
@ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(PS dt1 dt2 0 dt4) } }))))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<Int>_R
->_R <Ptr Word8 -> IO Int>_R
->_R Sym (NTCo:IO[0] <ByteString>_R)) -}
ebe36aa8c36b2823633574e782d485cd
eq :: ByteString -> ByteString -> Bool
{- Arity: 2, HasNoCafRefs,
Strictness: <S,1*U(U,U,U,U)><S,1*U(U,U,U,U)>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ a16 :: ByteString b :: ByteString ->
case a16 of wild { PS dt dt1 dt2 dt3 ->
case b of wild1 { PS dt4 dt5 dt6 dt7 ->
case tagToEnum# @ Bool (/=# dt3 dt7) of wild2 {
False
-> case &&
($fEqForeignPtr_$c==
@ Word8
(ForeignPtr @ Word8 dt dt1)
(ForeignPtr @ Word8 dt4 dt5))
(tagToEnum# @ Bool (==# dt2 dt6)) of wild3 {
False -> $fEqOrdering_$c== (compareBytes wild wild1) EQ
True -> True }
True -> False } } }) -}
ba99786a5285c068c4156cc0a6d46f9b
fromForeignPtr :: ForeignPtr Word8 -> Int -> Int -> ByteString
{- Arity: 3, HasNoCafRefs, Strictness: <S,U><S,U><S,U>m,
Inline: INLINE (sat-args=3),
Unfolding: InlineRule (3, False, True) $WPS -}
fa2f738f552984b9f4b77365b981770d
inlinePerformIO :: IO a -> a
{- Arity: 1, HasNoCafRefs, Strictness: <C(S(LS)),1*C1(U(A,1*U))>,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, True)
accursedUnutterablePerformIO -}
b0ca1b6d0327637fe82dbbc413953cab
isSpaceChar8 :: Char -> Bool
{- Arity: 1, HasNoCafRefs, Strictness: <S(S),1*U(1*U)>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ c :: Char ->
||
($fEqChar_$c== c (C# ' '))
(||
($fEqChar_$c== c (C# '\t'))
(||
($fEqChar_$c== c (C# '\n'))
(||
($fEqChar_$c== c (C# '\r'))
(||
($fEqChar_$c== c (C# '\f'))
(||
($fEqChar_$c== c (C# '\v'))
($fEqChar_$c== c (C# '\160')))))))) -}
d14b98eeeb7ee230e1e62cf731b21d82
isSpaceWord8 :: Word8 -> Bool
{- Arity: 1, HasNoCafRefs, Strictness: <S(S),1*U(1*U)>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ w :: Word8 ->
||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 32))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 10))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 9))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 12))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 13))
(||
($fEqWord8_$c== w ($fBitsWord8_$cfromInteger __integer 11))
($fEqWord8_$c==
w
($fBitsWord8_$cfromInteger __integer 160)))))))) -}
e82079c33a17fa0ccd6e9caf7dd7d406
mallocByteString :: Int -> IO (ForeignPtr a)
{- Arity: 2, Strictness: <S,1*U(U)><L,U>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, True)
mallocPlainForeignPtrBytes -}
05921f3a078827d7b75f91a991f5acf6
memchr :: Ptr Word8 -> Word8 -> CSize -> IO (Ptr Word8)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memchr1
`cast`
(<Ptr Word8>_R
->_R <Word8>_R
->_R <CSize>_R
->_R Sym (NTCo:IO[0] <Ptr Word8>_R)) -}
d5c1f756659be22843039fe28bcea662
memchr1 ::
Ptr Word8
-> Word8
-> CSize
-> State# RealWorld
-> (# State# RealWorld, Ptr Word8 #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
w :: Word8
s :: CSize
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case w of wild { W8# x# ->
case s `cast` (NTCo:CSize[0]) of ds2 { W64# ds3 ->
case {__pkg_ccall bytestring-0.10.6.0 memchr Addr#
-> Int#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}
ds1
(word2Int# x#)
ds3
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, Ptr @ Word8 ds5 #) } } } }) -}
d2b26253b0a6f045fbf97286e1513eec
memcmp :: Ptr Word8 -> Ptr Word8 -> Int -> IO CInt
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memcmp1
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R <Int>_R
->_R Sym (NTCo:IO[0] <CInt>_R)) -}
5937cd9e8509009bb4ca88dbf17c3a83
memcmp1 ::
Ptr Word8
-> Ptr Word8
-> Int
-> State# RealWorld
-> (# State# RealWorld, CInt #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
q :: Ptr Word8
s :: Int
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case q of ds2 { Ptr ds3 ->
case s of wild { I# x# ->
case {__pkg_ccall bytestring-0.10.6.0 memcmp Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Int# #)}
ds1
ds3
(int2Word# x#)
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, I32# (narrow32Int# ds5) #)
`cast`
((# <State# RealWorld>_R, Sym (NTCo:CInt[0]) #))_R } } } }) -}
4e7f30f3e07c6ca3ef46c832e66018ca
memcpy :: Ptr Word8 -> Ptr Word8 -> Int -> IO ()
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memcpy1
`cast`
(<Ptr Word8>_R
->_R <Ptr Word8>_R
->_R <Int>_R
->_R Sym (NTCo:IO[0] <()>_R)) -}
70969d8bb682db31a20ce9fd6d586f6c
memcpy1 ::
Ptr Word8
-> Ptr Word8
-> Int
-> State# RealWorld
-> (# State# RealWorld, () #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S(S),1*U(U)><S,1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
q :: Ptr Word8
s :: Int
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case q of ds2 { Ptr ds3 ->
case s of wild { I# x# ->
case {__pkg_ccall bytestring-0.10.6.0 memcpy Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}
ds1
ds3
(int2Word# x#)
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, () #) } } } }) -}
308477ef68b68018b893d16abbda284b
memset :: Ptr Word8 -> Word8 -> CSize -> IO (Ptr Word8)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (0, True, True)
memset1
`cast`
(<Ptr Word8>_R
->_R <Word8>_R
->_R <CSize>_R
->_R Sym (NTCo:IO[0] <Ptr Word8>_R)) -}
ea94471eab401be7b00b851c983277c4
memset1 ::
Ptr Word8
-> Word8
-> CSize
-> State# RealWorld
-> (# State# RealWorld, Ptr Word8 #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S(S),1*U(U)><S,1*U(U)><S(S),1*U(U)><S,U>,
Unfolding: InlineRule (4, True, False)
(\ p :: Ptr Word8
w :: Word8
s :: CSize
eta :: State# RealWorld[OneShot] ->
case p of ds { Ptr ds1 ->
case w of wild { W8# x# ->
case s `cast` (NTCo:CSize[0]) of ds2 { W64# ds3 ->
case {__pkg_ccall bytestring-0.10.6.0 memset Addr#
-> Int#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}
ds1
(word2Int# x#)
ds3
eta of wild1 { (#,#) ds4 ds5 ->
(# ds4, Ptr @ Word8 ds5 #) } } } }) -}
e60535fe969f671abd3c5c49b2138be7
nullForeignPtr :: ForeignPtr Word8
{- Strictness: m,
Unfolding: (ForeignPtr @ Word8 __NULL $fMonoidByteString3) -}
ebe36aa8c36b2823633574e782d485cd
packBytes :: [Word8] -> ByteString
{- Arity: 1, Strictness: <L,U>,
Unfolding: InlineRule (1, True, False)
(\ ws :: [Word8] ->
unsafePackLenBytes
(case $wlenAcc @ Word8 ws 0 of ww2 { DEFAULT -> I# ww2 })
ws) -}
ebe36aa8c36b2823633574e782d485cd
packChars :: [Char] -> ByteString
{- Arity: 1, Strictness: <L,U>, Inline: INLINE[0] (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ cs :: [Char] ->
unsafePackLenChars
(case $wlenAcc @ Char cs 0 of ww2 { DEFAULT -> I# ww2 })
cs) -}
ce8f2aa237c326ca242b09c7857a7b75
packUptoLenBytes :: Int -> [Word8] -> (ByteString, [Word8])
{- Arity: 2, Strictness: <L,U(U)><L,1*U>,
Unfolding: (\ len :: Int xs0 :: [Word8] ->
letrec {
$wa9 :: Addr#
-> Int#
-> [Word8]
-> State# RealWorld
-> (# State# RealWorld, (Int, [Word8]) #)
{- Arity: 4, Strictness: <L,U><L,U><S,1*U><L,U>, Inline: [0] -}
= \ ww :: Addr#
ww1 :: Int#
w :: [Word8]
w1 :: State# RealWorld[OneShot] ->
case w of wild {
[]
-> (# w1,
(case len of wild1 { I# x -> I# (-# x ww1) }, [] @ Word8) #)
: ipv ipv1
-> case ww1 of ds {
DEFAULT
-> case ipv of wild2 { W8# x ->
case writeWord8OffAddr# @ RealWorld ww 0 x w1 of s2 { DEFAULT ->
$wa9 (plusAddr# ww 1) (-# ds 1) ipv1 s2 } }
0 -> (# w1, (len, wild) #) } }
} in
unsafeDupablePerformIO
@ (ByteString, [Word8])
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa9 a16 x xs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
case ipv3 of wild2 { (,) l' res ->
(# s',
(case l' of dt { I# dt1 -> PS a16 a17 0 dt1 }, res) #) } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, [Word8]) #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <(ByteString, [Word8])>_R))) -}
6bb1fe667e547bee3cc7b42e67a802cd
packUptoLenChars :: Int -> [Char] -> (ByteString, [Char])
{- Arity: 2, Strictness: <L,U(U)><L,1*U>,
Unfolding: (\ len :: Int cs0 :: [Char] ->
letrec {
$wa9 :: Addr#
-> Int#
-> [Char]
-> State# RealWorld
-> (# State# RealWorld, (Int, [Char]) #)
{- Arity: 4, Strictness: <L,U><L,U><S,1*U><L,U>, Inline: [0] -}
= \ ww :: Addr#
ww1 :: Int#
w :: [Char]
w1 :: State# RealWorld[OneShot] ->
case w of wild {
[]
-> (# w1,
(case len of wild1 { I# x -> I# (-# x ww1) }, [] @ Char) #)
: ipv ipv1
-> case ww1 of ds {
DEFAULT
-> case ipv of wild1 { C# c# ->
case writeWord8OffAddr#
@ RealWorld
ww
0
(narrow8Word# (int2Word# (ord# c#)))
w1 of s2 { DEFAULT ->
$wa9 (plusAddr# ww 1) (-# ds 1) ipv1 s2 } }
0 -> (# w1, (len, wild) #) } }
} in
unsafeDupablePerformIO
@ (ByteString, [Char])
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa9 a16 x cs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
case ipv3 of wild2 { (,) l' res ->
(# s',
(case l' of dt { I# dt1 -> PS a16 a17 0 dt1 }, res) #) } } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, (ByteString, [Char]) #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <(ByteString, [Char])>_R))) -}
db313e23e57caac74656ef8da72343cf
toForeignPtr :: ByteString -> (ForeignPtr Word8, Int, Int)
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>m,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ ds :: ByteString ->
case ds of wild { PS dt dt1 dt2 dt3 ->
(ForeignPtr @ Word8 dt dt1, I# dt2, I# dt3) }) -}
ebe36aa8c36b2823633574e782d485cd
unpackAppendBytesLazy :: ByteString -> [Word8] -> [Word8]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: [Word8] ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendBytesLazy ww1 ww2 ww3 ww4 w1 }) -}
0067652fd5e778df805cad6186b090b8
unpackAppendBytesStrict :: ByteString -> [Word8] -> [Word8]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Unfolding: InlineRule (2, True, False)
(\ ds :: ByteString xs :: [Word8] ->
case ds of wild { PS dt dt1 dt2 dt3 ->
case unpackAppendBytesStrict1
(Ptr @ Word8 (plusAddr# dt (-# dt2 1)))
(Ptr @ Word8 (plusAddr# dt (+# (-# dt2 1) dt3)))
xs
realWorld# of ds1 { (#,#) ipv ipv1 ->
case touch# @ ForeignPtrContents dt1 ipv of s' { DEFAULT ->
ipv1 } } }) -}
7080e858ec0687f3190dd687bbaed9d7
unpackAppendBytesStrict1 ::
Ptr Word8
-> Ptr Word8
-> [Word8]
-> State# RealWorld
-> (# State# RealWorld, [Word8] #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S,1*U(U)><S,1*U(U)><L,U><L,U>, Inline: INLINE[0],
Unfolding: InlineRule (4, True, False)
(\ w :: Ptr Word8
w1 :: Ptr Word8
w2 :: [Word8]
w3 :: State# RealWorld[OneShot] ->
case w of ww { Ptr ww1 ->
case w1 of ww2 { Ptr ww3 -> $wa3 ww1 ww3 w2 w3 } }) -}
ebe36aa8c36b2823633574e782d485cd
unpackAppendCharsLazy :: ByteString -> [Char] -> [Char]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: ByteString w1 :: [Char] ->
case w of ww { PS ww1 ww2 ww3 ww4 ->
$wunpackAppendCharsLazy ww1 ww2 ww3 ww4 w1 }) -}
3798756daeef6feb7283b961b7a3fec6
unpackAppendCharsStrict :: ByteString -> [Char] -> [Char]
{- Arity: 2, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)><L,U>,
Unfolding: InlineRule (2, True, False)
(\ ds :: ByteString xs :: [Char] ->
case ds of wild { PS dt dt1 dt2 dt3 ->
case unpackAppendCharsStrict1
(Ptr @ Word8 (plusAddr# dt (-# dt2 1)))
(Ptr @ Word8 (plusAddr# dt (+# (-# dt2 1) dt3)))
xs
realWorld# of ds1 { (#,#) ipv ipv1 ->
case touch# @ ForeignPtrContents dt1 ipv of s' { DEFAULT ->
ipv1 } } }) -}
54c58bc487e9d74c938d83d79f0b08d2
unpackAppendCharsStrict1 ::
Ptr Word8
-> Ptr Word8
-> [Char]
-> State# RealWorld
-> (# State# RealWorld, [Char] #)
{- Arity: 4, HasNoCafRefs,
Strictness: <S,1*U(U)><S,1*U(U)><L,U><L,U>, Inline: INLINE[0],
Unfolding: InlineRule (4, True, False)
(\ w :: Ptr Word8
w1 :: Ptr Word8
w2 :: [Char]
w3 :: State# RealWorld[OneShot] ->
case w of ww { Ptr ww1 ->
case w1 of ww2 { Ptr ww3 -> $wa4 ww1 ww3 w2 w3 } }) -}
ebe36aa8c36b2823633574e782d485cd
unpackBytes :: ByteString -> [Word8]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>,
Unfolding: InlineRule (1, True, False)
(\ bs :: ByteString -> unpackAppendBytesLazy bs ([] @ Word8)) -}
ebe36aa8c36b2823633574e782d485cd
unpackChars :: ByteString -> [Char]
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U,U,U,U)>,
Unfolding: InlineRule (1, True, False)
(\ bs :: ByteString -> unpackAppendCharsLazy bs ([] @ Char)) -}
4dc73ab1c129baacca60ea22e1167a38
unsafeCreate :: Int -> (Ptr Word8 -> IO ()) -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*C1(C1(U(U,A)))>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int f :: Ptr Word8 -> IO () ->
unsafeDupablePerformIO @ ByteString (create l f)) -}
71d2655e5214f9441c9e54472b4eb167
unsafeCreateUptoN :: Int -> (Ptr Word8 -> IO Int) -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*C1(C1(U(U,1*U(U))))>,
Inline: INLINE (sat-args=2),
Unfolding: InlineRule (2, False, False)
(\ l :: Int f :: Ptr Word8 -> IO Int ->
unsafeDupablePerformIO @ ByteString (createUptoN l f)) -}
ebe36aa8c36b2823633574e782d485cd
unsafePackAddress :: Addr# -> IO ByteString
{- Arity: 2, HasNoCafRefs, Strictness: <L,U><L,U>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ addr# :: Addr# ->
let {
cstr :: CString = Ptr @ CChar addr#
} in
bindIO
@ (ForeignPtr Word8)
@ ByteString
(newForeignPtr_ @ Word8 (castPtr @ CChar @ Word8 cstr))
(\ p :: ForeignPtr Word8 eta :: State# RealWorld[OneShot] ->
(bindIO
@ CSize
@ ByteString
(c_strlen cstr)
(\ l :: CSize ->
$ @ ByteString
@ (IO ByteString)
(returnIO @ ByteString)
(case p of dt { ForeignPtr dt1 dt2 ->
case l `cast` (NTCo:CSize[0]) of wild { W64# x# ->
PS dt1 dt2 0 (word2Int# x#) } })))
`cast`
(NTCo:IO[0] <ByteString>_R)
eta)
`cast`
(<ForeignPtr Word8>_R ->_R Sym (NTCo:IO[0] <ByteString>_R))) -}
ebe36aa8c36b2823633574e782d485cd
unsafePackLenBytes :: Int -> [Word8] -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*U>,
Unfolding: (\ len :: Int xs0 :: [Word8] ->
unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa a16 xs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
(# s', PS a16 a17 0 x #) } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R))) -}
ebe36aa8c36b2823633574e782d485cd
unsafePackLenChars :: Int -> [Char] -> ByteString
{- Arity: 2, Strictness: <L,1*U(U)><L,1*U>,
Unfolding: (\ len :: Int cs0 :: [Char] ->
unsafeDupablePerformIO
@ ByteString
(\ eta :: State# RealWorld[OneShot] ->
case len of wild { I# x ->
case tagToEnum# @ Bool (<# x 0) of wild1 {
False
-> case newPinnedByteArray#
@ RealWorld
x
eta of ds { (#,#) ipv ipv1 ->
let {
a16 :: Addr#
= byteArrayContents#
ipv1
`cast`
(UnivCo mkUnsafeCo representational (MutableByteArray#
RealWorld) ByteArray#)
} in
case $wa1 a16 cs0 ipv of ds1 { (#,#) ipv2 ipv3 ->
let {
a17 :: ForeignPtrContents = PlainPtr ipv1
} in
case touch# @ ForeignPtrContents a17 ipv2 of s' { DEFAULT ->
(# s', PS a16 a17 0 x #) } } }
True
-> case mallocPlainForeignPtrBytes2
ret_ty (# State# RealWorld, ByteString #)
of {} } })
`cast`
(Sym (NTCo:IO[0] <ByteString>_R))) -}
16bfb686d4435cfd58771814cecb6fa5
w2c :: Word8 -> Char
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U(U)>m,
Inline: INLINE (sat-args=0),
Unfolding: InlineRule (0, False, False)
(\ x :: Word8 ->
case x of wild { W8# x# -> unsafeChr (I# (word2Int# x#)) }) -}
instance Data [ByteString] = $fDataByteString
instance Eq [ByteString] = $fEqByteString
instance IsString [ByteString] = $fIsStringByteString
instance Monoid [ByteString] = $fMonoidByteString
instance NFData [ByteString] = $fNFDataByteString
instance Ord [ByteString] = $fOrdByteString
instance Read [ByteString] = $fReadByteString
instance Show [ByteString] = $fShowByteString
"ByteString packChars/packAddress" [ALWAYS] forall s :: Addr#
packChars (unpackCString# s)
= accursedUnutterablePerformIO @ ByteString (unsafePackAddress s)
"SPEC/Data.ByteString.Internal $dm< @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm< @ ByteString $dOrd = $fOrdByteString_$s$dm<
"SPEC/Data.ByteString.Internal $dm<= @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm<= @ ByteString $dOrd = $fOrdByteString_$s$dm<=
"SPEC/Data.ByteString.Internal $dm> @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm> @ ByteString $dOrd = $fOrdByteString_$s$dm>
"SPEC/Data.ByteString.Internal $dm>= @ ByteString" [ALWAYS] forall $dOrd :: Ord
ByteString
$dm>= @ ByteString $dOrd = $fOrdByteString_$s$dm>=
"SPEC/Data.ByteString.Internal $dmdataCast1 @ ByteString" [ALWAYS] forall $dData :: Data
ByteString
$dmdataCast1 @ ByteString $dData = $fDataByteString_$s$dmdataCast1
"SPEC/Data.ByteString.Internal $dmdataCast2 @ ByteString" [ALWAYS] forall $dData :: Data
ByteString
$dmdataCast2 @ ByteString $dData = $fDataByteString_$s$dmdataCast2
"SPEC/Data.ByteString.Internal $fData[] @ Word8" [ALWAYS] forall $dTypeable :: Typeable
[Word8]
$dData :: Data Word8
$fData[] @ Word8 $dTypeable $dData = $fDataByteString_$s$fData[]
vectorised variables:
vectorised tycons:
vectorised reused tycons:
parallel variables:
parallel tycons:
Warnings inlinePerformIO Deprecated: "If you think you know what you are doing, use 'unsafePerformIO'. If you are sure you know what you are doing, use 'unsafeDupablePerformIO'. If you enjoy sharing an address space with a malevolent agent of chaos, try 'accursedUnutterablePerformIO'."
trusted: unsafe
require own pkg trusted: False
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment