------------------------------------------------------------------------
type UserId = Int
-
data UserLight = UserLight { userLight_id :: Int
, userLight_username :: Text
, userLight_email :: Text
(Column PGBool) (Column PGBool)
(Column PGTimestamptz)
+type UserReadNull = UserPoly (Column (Nullable PGInt4)) (Column (Nullable PGText))
+ (Column (Nullable PGTimestamptz)) (Column (Nullable PGBool))
+ (Column (Nullable PGText)) (Column (Nullable PGText))
+ (Column (Nullable PGText)) (Column (Nullable PGText))
+ (Column (Nullable PGBool)) (Column (Nullable PGBool))
+ (Column (Nullable PGTimestamptz))
+
+
+
+
type User = UserPoly Int Text (Maybe UTCTime) Bool Text Text Text Text Bool Bool UTCTime
$(makeAdaptorAndInstance "pUser" ''UserPoly)