diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2020-01-19 21:36:40 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2020-01-19 21:36:40 +0100 |
| commit | a0c6c341ba1629a1c1070edf69855c745c6bd7eb (patch) | |
| tree | ba5000382f7f7a905c4011d991fb286ef7abfda5 /src/Storage.hs | |
| parent | 25324026a1033c43652a058f966dfb3d255102ae (diff) | |
Synchronization service
Diffstat (limited to 'src/Storage.hs')
| -rw-r--r-- | src/Storage.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Storage.hs b/src/Storage.hs index 2e78c2f..5af34b7 100644 --- a/src/Storage.hs +++ b/src/Storage.hs @@ -758,8 +758,8 @@ storedRef (Stored ref _) = ref storedStorage :: Stored a -> Storage storedStorage (Stored (Ref st _) _) = st -wrappedStore :: Storable a => Storage -> a -> IO (Stored a) -wrappedStore st x = do ref <- store st x +wrappedStore :: MonadIO m => Storable a => Storage -> a -> m (Stored a) +wrappedStore st x = do ref <- liftIO $ store st x return $ Stored ref x wrappedLoad :: Storable a => Ref -> Stored a |