diff options
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 |