diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-15 15:24:32 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-15 17:19:43 -0700 |
| commit | e9a53b69ad68e531a789eff3128f7304fd411808 (patch) | |
| tree | 7c0382cb3c49458e8c989eaaa042bc37b37a9699 /Biz/Ibb/Keep.hs | |
| parent | cb77d0eb623c7a398ca86a632d0ea37ac385cc3d (diff) | |
Lint fixes, also delete Biz.Language
Diffstat (limited to 'Biz/Ibb/Keep.hs')
| -rw-r--r-- | Biz/Ibb/Keep.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Biz/Ibb/Keep.hs b/Biz/Ibb/Keep.hs index d546aae..8ee1228 100644 --- a/Biz/Ibb/Keep.hs +++ b/Biz/Ibb/Keep.hs @@ -27,7 +27,7 @@ import qualified Data.Text as Text -- * Keep -- | Main database. Need to think of a better name for this. -data IbbKeep +newtype IbbKeep = IbbKeep { _people :: IxSet Person } @@ -79,9 +79,7 @@ newPerson name blurb = do } getPeople :: Int -> Acid.Query IbbKeep [Person] -getPeople n = do - keep <- ask - return $ take n $ IxSet.toList $ _people keep +getPeople n = take n $ IxSet.toList $ _people keep </ ask -- * Index @Book@ |