| name = "mTaskShareMap-" +++ toString identifier, read=rr, write=ww}
where
rr name iworld = case read deviceStore iworld of
(Error e, iworld) = (Error e, iworld)
(Ok devices, iworld) = case find ((==)dev) devices of
Nothing = (Error $ exception "Device doesn't exist anymore", iworld)
| name = "mTaskShareMap-" +++ toString identifier, read=rr, write=ww}
where
rr name iworld = case read deviceStore iworld of
(Error e, iworld) = (Error e, iworld)
(Ok devices, iworld) = case find ((==)dev) devices of
Nothing = (Error $ exception "Device doesn't exist anymore", iworld)