Dropbox

A dropbox client

Documentation

createClient :: IO (Dropbox (AsClientT IO))

cliRoutes :: ClientEnv -> Dropbox (AsClientT IO)

gives an adhoc client. This throws exceptions

data Dropbox route

To use the various endpoints make sure you have the right scope in your app on dropbox: https://www.dropbox.com/developers/apps/info/t282kls5wbrtofs#permissions then regenerate your token (because it's attached to that)

Constructors

Dropbox

Fields

• _dropbox_list_folder :: route :- ("2" :> ("files" :> ("list_folder" :> (Auth '[Bearer] Token :> (ReqBody '[JSON] ListFolderRequest :> Post '[JSON] ListFolderResponse)))))

  https://www.dropbox.com/developers/documentation/http/documentation#files-list_folder

• _dropbox_get_temporary_link :: route :- ("2" :> ("files" :> ("get_temporary_link" :> (Auth '[Bearer] Token :> (ReqBody '[JSON] LinkRequest :> Post '[JSON] LinkResponse)))))

  https://www.dropbox.com/developers/documentation/http/documentation#files-get_temporary_link

• _dropbox_token :: route :- ("oauth2" :> ("token" :> (ReqBody '[FormUrlEncoded] TokenBody :> Post '[JSON] TokenRequest)))

  https://www.dropbox.com/developers/documentation/http/documentation#oauth2-token

Instances

Generic (Dropbox route)

Defined in Dropbox

Associated Types

type Rep (Dropbox route) :: Type -> Type

Methods

from :: Dropbox route -> Rep (Dropbox route) x

to :: Rep (Dropbox route) x -> Dropbox route

type Rep (Dropbox route)

Defined in Dropbox

type Rep (Dropbox route) = D1 ('MetaData "Dropbox" "Dropbox" "dropbox-0.0.4-inplace" 'False) (C1 ('MetaCons "Dropbox" 'PrefixI 'True) (S1 ('MetaSel ('Just "_dropbox_list_folder") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- ("2" :> ("files" :> ("list_folder" :> (Auth '[Bearer] Token :> (ReqBody '[JSON] ListFolderRequest :> Post '[JSON] ListFolderResponse))))))) :*: (S1 ('MetaSel ('Just "_dropbox_get_temporary_link") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- ("2" :> ("files" :> ("get_temporary_link" :> (Auth '[Bearer] Token :> (ReqBody '[JSON] LinkRequest :> Post '[JSON] LinkResponse))))))) :*: S1 ('MetaSel ('Just "_dropbox_token") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- ("oauth2" :> ("token" :> (ReqBody '[FormUrlEncoded] TokenBody :> Post '[JSON] TokenRequest))))))))

defListFolderRequest :: ListFolderRequest

data FileTag

Constructors

File

Folder

Instances

Eq FileTag

Defined in Dropbox

Methods

(==) :: FileTag -> FileTag -> Bool

(/=) :: FileTag -> FileTag -> Bool

Show FileTag

Defined in Dropbox

Methods

showsPrec :: Int -> FileTag -> ShowS

show :: FileTag -> String

showList :: [FileTag] -> ShowS

Generic FileTag

Defined in Dropbox

Associated Types

type Rep FileTag :: Type -> Type

Methods

from :: FileTag -> Rep FileTag x

to :: Rep FileTag x -> FileTag

FromJSON FileTag

Defined in Dropbox

Methods

parseJSON :: Value -> Parser FileTag

parseJSONList :: Value -> Parser [FileTag]

type Rep FileTag

Defined in Dropbox

type Rep FileTag = D1 ('MetaData "FileTag" "Dropbox" "dropbox-0.0.4-inplace" 'False) (C1 ('MetaCons "File" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Folder" 'PrefixI 'False) (U1 :: Type -> Type))

data Entry

Constructors

Entry

Fields

• eTag :: FileTag
• eName :: Text
• ePathDisplay :: Text
• eId :: Text

Instances

Eq Entry

Defined in Dropbox

Methods

(==) :: Entry -> Entry -> Bool

(/=) :: Entry -> Entry -> Bool

Show Entry

Defined in Dropbox

Methods

showsPrec :: Int -> Entry -> ShowS

show :: Entry -> String

showList :: [Entry] -> ShowS

Generic Entry

Defined in Dropbox

Associated Types

type Rep Entry :: Type -> Type

Methods

from :: Entry -> Rep Entry x

to :: Rep Entry x -> Entry

FromJSON Entry

Defined in Dropbox

Methods

parseJSON :: Value -> Parser Entry

parseJSONList :: Value -> Parser [Entry]

type Rep Entry

Defined in Dropbox

type Rep Entry = D1 ('MetaData "Entry" "Dropbox" "dropbox-0.0.4-inplace" 'False) (C1 ('MetaCons "Entry" 'PrefixI 'True) ((S1 ('MetaSel ('Just "eTag") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 FileTag) :*: S1 ('MetaSel ('Just "eName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "ePathDisplay") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "eId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

newtype ListFolderResponse

Constructors

ListFolderResponse

Fields

• entries :: [Entry]

Instances

Eq ListFolderResponse

Defined in Dropbox

Methods

(==) :: ListFolderResponse -> ListFolderResponse -> Bool

(/=) :: ListFolderResponse -> ListFolderResponse -> Bool

Show ListFolderResponse

Defined in Dropbox

Methods

showsPrec :: Int -> ListFolderResponse -> ShowS

show :: ListFolderResponse -> String

showList :: [ListFolderResponse] -> ShowS

Generic ListFolderResponse

Defined in Dropbox

Associated Types

type Rep ListFolderResponse :: Type -> Type

Methods

from :: ListFolderResponse -> Rep ListFolderResponse x

to :: Rep ListFolderResponse x -> ListFolderResponse

FromJSON ListFolderResponse

Defined in Dropbox

Methods

parseJSON :: Value -> Parser ListFolderResponse

parseJSONList :: Value -> Parser [ListFolderResponse]

type Rep ListFolderResponse

Defined in Dropbox

type Rep ListFolderResponse = D1 ('MetaData "ListFolderResponse" "Dropbox" "dropbox-0.0.4-inplace" 'True) (C1 ('MetaCons "ListFolderResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "entries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Entry])))

data ListFolderRequest

Instances

Generic ListFolderRequest

Defined in Dropbox

Associated Types

type Rep ListFolderRequest :: Type -> Type

Methods

from :: ListFolderRequest -> Rep ListFolderRequest x

to :: Rep ListFolderRequest x -> ListFolderRequest

ToJSON ListFolderRequest

Defined in Dropbox

Methods

toJSON :: ListFolderRequest -> Value

toEncoding :: ListFolderRequest -> Encoding

toJSONList :: [ListFolderRequest] -> Value

toEncodingList :: [ListFolderRequest] -> Encoding

type Rep ListFolderRequest

Defined in Dropbox

type Rep ListFolderRequest = D1 ('MetaData "ListFolderRequest" "Dropbox" "dropbox-0.0.4-inplace" 'False) (C1 ('MetaCons "ListFolderRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "path") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "recursive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "include_media_info") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))) :*: ((S1 ('MetaSel ('Just "include_deleted") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "include_has_explicit_shared_members") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool)) :*: (S1 ('MetaSel ('Just "include_mounted_folders") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "include_non_downloadable_files") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool)))))

path :: ListFolderRequest -> String

newtype LinkResponse

Constructors

LinkResponse

Fields

• link :: Text

Instances

Show LinkResponse

Defined in Dropbox

Methods

showsPrec :: Int -> LinkResponse -> ShowS

show :: LinkResponse -> String

showList :: [LinkResponse] -> ShowS

Generic LinkResponse

Defined in Dropbox

Associated Types

type Rep LinkResponse :: Type -> Type

Methods

from :: LinkResponse -> Rep LinkResponse x

to :: Rep LinkResponse x -> LinkResponse

FromJSON LinkResponse

Defined in Dropbox

Methods

parseJSON :: Value -> Parser LinkResponse

parseJSONList :: Value -> Parser [LinkResponse]

type Rep LinkResponse

Defined in Dropbox

type Rep LinkResponse = D1 ('MetaData "LinkResponse" "Dropbox" "dropbox-0.0.4-inplace" 'True) (C1 ('MetaCons "LinkResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "link") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype LinkRequest

Constructors

LinkRequest

Fields

• linkPath :: String

Instances

Generic LinkRequest

Defined in Dropbox

Associated Types

type Rep LinkRequest :: Type -> Type

Methods

from :: LinkRequest -> Rep LinkRequest x

to :: Rep LinkRequest x -> LinkRequest

ToJSON LinkRequest

Defined in Dropbox

Methods

toJSON :: LinkRequest -> Value

toEncoding :: LinkRequest -> Encoding

toJSONList :: [LinkRequest] -> Value

toEncodingList :: [LinkRequest] -> Encoding

type Rep LinkRequest

Defined in Dropbox

type Rep LinkRequest = D1 ('MetaData "LinkRequest" "Dropbox" "dropbox-0.0.4-inplace" 'True) (C1 ('MetaCons "LinkRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "linkPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)))

data TokenRequest

Constructors

TokenRequest

Fields

• trAccessToken :: Text
• trExpiresIn :: Maybe Int
• trTokenType :: Text
• trRefreshToken :: Maybe Text
• trScope :: Text
• trAccountId :: Text
• trUid :: Text

Instances

Generic TokenRequest

Defined in Dropbox

Associated Types

type Rep TokenRequest :: Type -> Type

Methods

from :: TokenRequest -> Rep TokenRequest x

to :: Rep TokenRequest x -> TokenRequest

FromJSON TokenRequest

Defined in Dropbox

Methods

parseJSON :: Value -> Parser TokenRequest

parseJSONList :: Value -> Parser [TokenRequest]

type Rep TokenRequest

Defined in Dropbox

type Rep TokenRequest = D1 ('MetaData "TokenRequest" "Dropbox" "dropbox-0.0.4-inplace" 'False) (C1 ('MetaCons "TokenRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "trAccessToken") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "trExpiresIn") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Int)) :*: S1 ('MetaSel ('Just "trTokenType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :*: ((S1 ('MetaSel ('Just "trRefreshToken") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :*: S1 ('MetaSel ('Just "trScope") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "trAccountId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "trUid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

data TokenBody

Constructors

TokenBody

Fields

• code :: Maybe Text
• refresh_token :: Maybe Text
• grant_type :: Text
• redirect_uri :: Text
• client_id :: Text
• client_secret :: Text

Instances

Show TokenBody

Defined in Dropbox

Methods

showsPrec :: Int -> TokenBody -> ShowS

show :: TokenBody -> String

showList :: [TokenBody] -> ShowS

Generic TokenBody

Defined in Dropbox

Associated Types

type Rep TokenBody :: Type -> Type

Methods

from :: TokenBody -> Rep TokenBody x

to :: Rep TokenBody x -> TokenBody

ToForm TokenBody

Defined in Dropbox

Methods

toForm :: TokenBody -> Form

type Rep TokenBody

Defined in Dropbox

type Rep TokenBody = D1 ('MetaData "TokenBody" "Dropbox" "dropbox-0.0.4-inplace" 'False) (C1 ('MetaCons "TokenBody" 'PrefixI 'True) ((S1 ('MetaSel ('Just "code") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :*: (S1 ('MetaSel ('Just "refresh_token") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :*: S1 ('MetaSel ('Just "grant_type") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :*: (S1 ('MetaSel ('Just "redirect_uri") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "client_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "client_secret") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

dropboxProxy :: Proxy (ToServant Dropbox AsApi)