- = satBinding binds `thenSUs` \ (binds2, c) ->
- satExpr body `thenSUs` \ (_, body2, c2) ->
- returnSUs (Nothing, StgLetNoEscape lvs_whole lvs_rhss binds2 body2, c + c2)
+ = satBinding binds `thenUs` \ (binds2, c) ->
+ satExpr body `thenUs` \ (_, body2, c2) ->
+ returnUs (Nothing, StgLetNoEscape lvs_whole lvs_rhss binds2 body2, c + c2)