Types.hs

type Optionals = HML.HashMap Text Text
type SFApiNumber = Text

data SFClient = SFClient SFApiNumber AuthResponse deriving Show 

data UserCred = UserCred
    { username     :: Maybe Username
    , password     :: Maybe UserPassword
    , secretKey    :: Maybe SecretKey
    , clientId     :: Text
    , clientSecret :: Text
    } deriving (Show, Generic)
   
data TokenRequest = TokenRequest
    { grantType    :: GrantType
    , authType     :: AuthType
    , userCred     :: UserCred
    , redirectUri  :: Maybe RedirectUri
    , code         :: Maybe Code
    , refreshToken :: Maybe RefreshToken
    , optionals    :: Maybe Optionals
    }
    
data AuthResponse = AuthResponse
    { accessToken  :: AccessToken
    , refreshToken :: Maybe RefreshToken
    , expiresIn    :: Maybe Text 
    , instanceUrl  :: Text 
    , urlId        :: Text  
    , signature    :: Text
    , issuedAt     :: Text 
    } deriving (Show, Generic)
    
data AuthType =
      UserPassword
    | UserAgent
    | WebServer
    | Resfresh  

data GrantTypeOpt =
      Password
    | Authorize
    | Revoke
    deriving (Show, Generic)

newtype GrantType = GrantType {grant_type :: GrantTypeOpt} deriving Generic
newtype Username     = Username { user :: Text} deriving Show
newtype UserPassword = Userpassword { pass :: Text } deriving Show
newtype SecretKey    = SecretKey { secret :: Text } deriving Show
newtype RedirectUri  = RedirectUri Text
newtype Code         = Code Text
newtype RefreshToken = RefreshToken { getRefreshToken :: Text } deriving (Show, Generic)
newtype AccessToken  = AccessToken {getAccessToken :: Text } deriving (Show, Generic)