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)