Selda schema for database

src/Database/Schema.hs

@@ -0,0 +1,15 @@
+{-# Language NoImplicitPrelude #-}
+{-# Language DeriveGeneric #-}
+{-# Language OverloadedStrings #-}
+module Database.Schema where
+
+import ClassyPrelude
+import Database.Selda.Generic
+
+data User = User { email :: Text
+                 , username :: Text
+                 , password :: ByteString }
+          deriving (Show, Generic)
+
+users :: GenTable User
+users = genTable "users" [ email :- primaryGen ]