diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-12-18 20:55:02 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-01-03 21:41:58 +0100 |
| commit | 35c48f033106c9f2d8a6a0e5ada7f5dcc5cc732e (patch) | |
| tree | 66a5397fd96fe96fc44a56383ab19b38f8a54c5b /src/Erebos/Storage | |
| parent | d07d2efebb8ef8700e6b393f594b8dfc5e4823d3 (diff) | |
Storage: export store and load helpers
Diffstat (limited to 'src/Erebos/Storage')
| -rw-r--r-- | src/Erebos/Storage/List.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Erebos/Storage/List.hs b/src/Erebos/Storage/List.hs index ef56c60..f0f8786 100644 --- a/src/Erebos/Storage/List.hs +++ b/src/Erebos/Storage/List.hs @@ -10,8 +10,6 @@ module Erebos.Storage.List ( -- TODO withStoredListItem, withStoredListItemS, ) where -import Control.Monad.Reader - import Data.List import Data.Maybe import qualified Data.Set as S @@ -35,7 +33,7 @@ instance Storable a => Storable (List a) where mapM_ (storeRef "item") $ listItem x mapM_ (storeRef "remove") $ listRemove x - load' = asks snd >>= \case + load' = loadCurrentObject >>= \case ZeroObject -> return ListNil _ -> loadRec $ ListItem <$> loadRefs "PREV" <*> loadMbRef "item" |