From e9a53b69ad68e531a789eff3128f7304fd411808 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 15 Apr 2020 15:24:32 -0700
Subject: Lint fixes, also delete Biz.Language

---
 Biz/Ibb/Keep.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'Biz/Ibb/Keep.hs')

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@
 
-- 
cgit v1.2.3