expectedValuePerState ::
  (UV.Unbox a,
   Arith.Constant a,
   Sweep.SweepClass sweep UV.Vector a,
   Sweep.SweepClass sweep UV.Vector Bool) =>
  Map Idx.State (Map (list a) (Type.SweepPerReq node sweep UV.Vector a)) ->
  Map Idx.State (Map (list a) (Maybe a))
expectedValuePerState =
  Map.map (Map.map DoubleSweep.expectedValue)
expectedValuePerState ::
  (UV.Unbox a,
   Arith.Constant a,
   Sweep.SweepClass sweep UV.Vector a,
   Sweep.SweepClass sweep UV.Vector Bool) =>
  Map Idx.State (Map (list a) (Type.SweepPerReq node sweep UV.Vector a)) ->
  Map Idx.State (Map (list a) (Maybe a))
expectedValuePerState =
  Map.map (Map.map DoubleSweep.expectedValue)
expectedValuePerState =
  Map.map (Map.map DoubleSweep.expectedValue)