[
()Size: a a a
[
()K
forall a. a -> [Int] же[
K
[
[
K
oneShot и NO_INLINE не помогли сfoo = (oneShot \() -> bar ()) ()
bar () = resource
[
K
oneShot отключает некоторые оптимизацииKV
oneShot и NO_INLINE не помогли сfoo = (oneShot \() -> bar ()) ()
bar () = resource
KV
K
unsafePerformIO $ newTVarIO ... завернуть?KV
unsafePerformIO $ newTVarIO ... завернуть?K
{-# noinline bar #-} пробовали?KV
AA
oneShot отключает некоторые оптимизации