Selda schema for database

src/API.hs

@@ -18,6 +18,11 @@ import Servant.HTML.Lucid (HTML)
 import Lucid (HtmlT, ToHtml(..))
 import qualified Lucid.Html5 as H
 import Types
+import Control.Monad.Logger
+
+-- XXX: Temporary
+import Database.Schema
+import Database
 
 data Index = Index
 
@@ -41,4 +46,8 @@ instance ToHtml Index where
 type API = Get '[HTML] Index
 
 handler :: ServerT API AppM
-handler = return Index
+handler = do
+  u <- runDB $
+    query $ select $ gen users
+  $logInfo $ "users: " <> (pack . show $ u)
+  return Index