[API][FLOW][Upload] just for CsvHal
[gargantext.git] / src / Gargantext / Database / Schema / User.hs
index 1938b0930c0dc92948d0731f24610d05ac44f041..fc8b5081bcbf879a64a53b3c157b3ea1c85b94f3 100644 (file)
@@ -43,7 +43,6 @@ import Opaleye
 ------------------------------------------------------------------------
 type UserId = Int
 
-
 data UserLight = UserLight { userLight_id   :: Int
                            , userLight_username :: Text
                            , userLight_email    :: Text
@@ -83,6 +82,16 @@ type UserRead  = UserPoly        (Column PGInt4)         (Column PGText)
                                  (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)