VD
Size: a a a
VD
KV
KV
KV
VD
KV
VD
data HugeRecord = HugeRecord { data :: ByteString }
f :: HugeRecord -> Bar
f r{data} = let data' = parseData data in ...
к
KV
AA
KV
KV
AA
AA
b = \ (x :: Foo) -> case x of { Foo _ [Occ=Dead] y _ [Occ=Dead] -> y }
AA
AA
LO