[auth] types for forgot password

src/Gargantext/API/Admin/Auth/Types.hs

@@ -106,4 +106,21 @@ instance Arbitrary AuthValid where
                        , u <-  [1..3]
                        ]
 
-data PathId = PathNode NodeId | PathNodeNode ListId DocId
\ No newline at end of file
+data PathId = PathNode NodeId | PathNodeNode ListId DocId
+
+
+---------------------------
+
+type Email = String
+
+data ForgotPasswordRequest = ForgotPasswordRequest { _fpReq_email :: Email }
+  deriving (Generic )
+$(deriveJSON (unPrefix "_fpReq_") ''ForgotPasswordRequest)
+instance ToSchema ForgotPasswordRequest where
+  declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_fpReq_")
+
+data ForgotPasswordResponse = ForgotPasswordRespones { _fpRes_status :: String }
+  deriving (Generic )
+$(deriveJSON (unPrefix "_fpRes_") ''ForgotPasswordResponse)
+instance ToSchema ForgotPasswordResponse where
+  declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_fpRes_")