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