primop-strictness.hs-incl

primOpStrictness CatchOp =  \ _arity -> mkClosedStrictSig [ lazyApply1Dmd
                                                 , lazyApply2Dmd
                                                 , topDmd] topDiv 
primOpStrictness RaiseOp =  \ _arity -> mkClosedStrictSig [topDmd] botDiv 
primOpStrictness RaiseIOOp =  \ _arity -> mkClosedStrictSig [topDmd, topDmd] exnDiv 
primOpStrictness MaskAsyncExceptionsOp =  \ _arity -> mkClosedStrictSig [strictOnceApply1Dmd,topDmd] topDiv 
primOpStrictness MaskUninterruptibleOp =  \ _arity -> mkClosedStrictSig [strictOnceApply1Dmd,topDmd] topDiv 
primOpStrictness UnmaskAsyncExceptionsOp =  \ _arity -> mkClosedStrictSig [strictOnceApply1Dmd,topDmd] topDiv 
primOpStrictness AtomicallyOp =  \ _arity -> mkClosedStrictSig [strictManyApply1Dmd,topDmd] topDiv 
primOpStrictness RetryOp =  \ _arity -> mkClosedStrictSig [topDmd] botDiv 
primOpStrictness CatchRetryOp =  \ _arity -> mkClosedStrictSig [ lazyApply1Dmd
                                                 , lazyApply1Dmd
                                                 , topDmd ] topDiv 
primOpStrictness CatchSTMOp =  \ _arity -> mkClosedStrictSig [ lazyApply1Dmd
                                                 , lazyApply2Dmd
                                                 , topDmd ] topDiv 
primOpStrictness KeepAliveOp =  \ _arity -> mkClosedStrictSig [topDmd, topDmd, strictOnceApply1Dmd] topDiv 
primOpStrictness DataToTagOp =  \ _arity -> mkClosedStrictSig [evalDmd] topDiv 
primOpStrictness _ =  \ arity -> mkClosedStrictSig (replicate arity topDmd) topDiv