As soon as I sent this, I think I hit on the answer. There's no getting away from having to write a strategy like this:

evalActualsWith :: Strategy [ActualShift] -> Strategy User

evalActualsWith strat user = do

  actuals' <- strat $ actuals user

  return $ user { actuals = actuals' }