diff options
Diffstat (limited to 'Biz/Ibb/Keep.hs')
| -rw-r--r-- | Biz/Ibb/Keep.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Biz/Ibb/Keep.hs b/Biz/Ibb/Keep.hs index 8ee1228..c7dabb0 100644 --- a/Biz/Ibb/Keep.hs +++ b/Biz/Ibb/Keep.hs @@ -11,6 +11,7 @@ -- like `$(keep ''MyType)`. module Biz.Ibb.Keep where +import Alpha import Biz.Ibb.Core (Book (..), Person (..)) import qualified Biz.Ibb.Influencers as Influencers import Control.Monad.Reader (ask) @@ -61,7 +62,7 @@ instance Indexable Person where -- | updates the `IbbKeep` with a new `Person` newPerson :: Text -> Text -> Update IbbKeep Person newPerson name blurb = do - k <- get + keep <- get put $ k { _people = IxSet.insert p (_people k) @@ -79,7 +80,7 @@ newPerson name blurb = do } getPeople :: Int -> Acid.Query IbbKeep [Person] -getPeople n = take n $ IxSet.toList $ _people keep </ ask +getPeople n = ask /> _people /> IxSet.toList /> take n -- * Index @Book@ |