import CoreSyn
import CoreUnfold ( certainlyWillInline )
-import CoreUtils ( exprType, exprIsHNF, exprArity )
+import CoreUtils ( exprType, exprIsHNF )
+import CoreArity ( exprArity )
import Var
import Id ( Id, idType, isOneShotLambda,
setIdNewStrictness, mkWorkerId,
-- which is very annoying.
get_one_shots :: Expr Var -> [Bool]
get_one_shots (Lam b e)
- | isIdVar b = isOneShotLambda b : get_one_shots e
+ | isId b = isOneShotLambda b : get_one_shots e
| otherwise = get_one_shots e
get_one_shots (Note _ e) = get_one_shots e
get_one_shots _ = noOneShotInfo