Modify types, create instances

src/API.hs

@@ -18,14 +18,9 @@ import Servant.HTML.Lucid (HTML)
 import Lucid (HtmlT, ToHtml(..))
 import qualified Lucid.Html5 as H
 import Types
-import Control.Monad.Logger
 
 import qualified API.Users as Users
 
--- XXX: Temporary
-import Database.Schema
-import Database
-
 data Index = Index
 
 bulma :: Monad m => HtmlT m ()
@@ -53,7 +48,4 @@ handler = indexHandler :<|> Users.handler
 
 indexHandler :: AppM Index
 indexHandler = do
-  u <- runDB $ do
-    query $ select $ gen users
-  $logInfo $ "users: " <> (pack . show $ u)
   return Index