is_safe_occ other = True
safe_occ = case occ of
- OneOcc _ once min_args -> OneOcc insideLam once min_args
- other -> occ
+ OneOcc _ once int_cxt -> OneOcc insideLam once int_cxt
+ other -> occ
is_safe_dmd Nothing = True
is_safe_dmd (Just dmd) = not (isStrictDmd dmd)