summaryrefslogtreecommitdiff
path: root/src/Erebos/Storage/List.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2023-12-18 20:55:02 +0100
committerRoman Smrž <roman.smrz@seznam.cz>2024-01-03 21:41:58 +0100
commit35c48f033106c9f2d8a6a0e5ada7f5dcc5cc732e (patch)
tree66a5397fd96fe96fc44a56383ab19b38f8a54c5b /src/Erebos/Storage/List.hs
parentd07d2efebb8ef8700e6b393f594b8dfc5e4823d3 (diff)
Storage: export store and load helpers
Diffstat (limited to 'src/Erebos/Storage/List.hs')
-rw-r--r--src/Erebos/Storage/List.hs4
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"