Safe Haskell	None
Language	GHC2021

Network.Globus.Transfer

Documentation

fetchSubmissionId :: (MonadThrow m, MonadCatch m, MonadIO m) => Manager -> Token 'Access -> m (Id 'Submission) Source #

transferAuth :: Token 'Access -> Header Source #

transferEndpoint :: forall {k} (a :: k). Uri a Source #

sendTransfer :: (MonadIO m, MonadThrow m, MonadCatch m) => Manager -> Token 'Access -> TransferRequest -> m TransferResponse Source #

fetchTask :: (MonadIO m, MonadThrow m, MonadCatch m) => Manager -> Token 'Access -> Id Task -> m Task Source #

newtype TaskFilters Source #

Constructors

TaskFilters
Fields status :: [TaskStatus]

Instances

Instances details

Monoid TaskFilters Source #
Instance details Defined in Network.Globus.Transfer Methods mempty :: TaskFilters # mappend :: TaskFilters -> TaskFilters -> TaskFilters # mconcat :: [TaskFilters] -> TaskFilters #
Semigroup TaskFilters Source #
Instance details Defined in Network.Globus.Transfer Methods (<>) :: TaskFilters -> TaskFilters -> TaskFilters # sconcat :: NonEmpty TaskFilters -> TaskFilters # stimes :: Integral b => b -> TaskFilters -> TaskFilters #
Show TaskFilters Source #
Instance details Defined in Network.Globus.Transfer Methods showsPrec :: Int -> TaskFilters -> ShowS # show :: TaskFilters -> String # showList :: [TaskFilters] -> ShowS #
Eq TaskFilters Source #
Instance details Defined in Network.Globus.Transfer Methods (==) :: TaskFilters -> TaskFilters -> Bool # (/=) :: TaskFilters -> TaskFilters -> Bool #

fetchTasks :: (MonadIO m, MonadThrow m, MonadCatch m) => Manager -> Token 'Access -> TaskFilters -> m TaskList Source #

activityUrl :: Id Task -> Tagged 'App URI Source #

taskPercentComplete :: Task -> Float Source #

data IdResponse Source #

Constructors

IdResponse
Fields value :: Text

Instances

Instances details

Generic IdResponse Source #

Instance details

Defined in Network.Globus.Transfer

Associated Types

type Rep IdResponse
Instance details Defined in Network.Globus.Transfer type Rep IdResponse = D1 ('MetaData "IdResponse" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "IdResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "value") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text)))

Methods

from :: IdResponse -> Rep IdResponse x #

to :: Rep IdResponse x -> IdResponse #

Show IdResponse Source #

Instance details

Defined in Network.Globus.Transfer

Methods

showsPrec :: Int -> IdResponse -> ShowS #

show :: IdResponse -> String #

showList :: [IdResponse] -> ShowS #

FromJSON IdResponse Source #

Instance details

Defined in Network.Globus.Transfer

Methods

parseJSON :: Value -> Parser IdResponse #

parseJSONList :: Value -> Parser [IdResponse] #

omittedField :: Maybe IdResponse #

type Rep IdResponse Source #

Instance details

Defined in Network.Globus.Transfer

type Rep IdResponse = D1 ('MetaData "IdResponse" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "IdResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "value") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text)))

data Task Source #

Constructors

Task
Fields status :: TaskStatus task_id :: Id Task label :: Text files :: Int directories :: Int files_skipped :: Int files_transferred :: Int bytes_transferred :: Int bytes_checksummed :: Int effective_bytes_per_second :: Int nice_status :: Maybe Text source_endpoint_id :: Id 'Collection destination_endpoint_id :: Id 'Collection

Instances

Instances details

Generic Task Source #

Instance details

Defined in Network.Globus.Transfer

Associated Types

type Rep Task

Instance details

Defined in Network.Globus.Transfer

Methods

from :: Task -> Rep Task x #

to :: Rep Task x -> Task #

Show Task Source #

Instance details

Defined in Network.Globus.Transfer

Methods

showsPrec :: Int -> Task -> ShowS #

show :: Task -> String #

showList :: [Task] -> ShowS #

Eq Task Source #

Instance details

Defined in Network.Globus.Transfer

Methods

(==) :: Task -> Task -> Bool #

(/=) :: Task -> Task -> Bool #

FromJSON Task Source #

Instance details

Defined in Network.Globus.Transfer

Methods

parseJSON :: Value -> Parser Task #

parseJSONList :: Value -> Parser [Task] #

omittedField :: Maybe Task #

type Rep Task Source #

Instance details

Defined in Network.Globus.Transfer

data TaskStatus Source #

Constructors

Active
Inactive
Succeeded
Failed

Instances

Instances details

Generic TaskStatus Source #

Instance details

Defined in Network.Globus.Transfer

Associated Types

type Rep TaskStatus

Instance details

Defined in Network.Globus.Transfer

type Rep TaskStatus = D1 ('MetaData "TaskStatus" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) ((C1 ('MetaCons "Active" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Inactive" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Succeeded" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Failed" 'PrefixI 'False) (U1 :: Type -> Type)))

Methods

from :: TaskStatus -> Rep TaskStatus x #

to :: Rep TaskStatus x -> TaskStatus #

Show TaskStatus Source #

Instance details

Defined in Network.Globus.Transfer

Methods

showsPrec :: Int -> TaskStatus -> ShowS #

show :: TaskStatus -> String #

showList :: [TaskStatus] -> ShowS #

Eq TaskStatus Source #

Instance details

Defined in Network.Globus.Transfer

Methods

(==) :: TaskStatus -> TaskStatus -> Bool #

(/=) :: TaskStatus -> TaskStatus -> Bool #

FromJSON TaskStatus Source #

Instance details

Defined in Network.Globus.Transfer

Methods

parseJSON :: Value -> Parser TaskStatus #

parseJSONList :: Value -> Parser [TaskStatus] #

omittedField :: Maybe TaskStatus #

type Rep TaskStatus Source #

Instance details

Defined in Network.Globus.Transfer

type Rep TaskStatus = D1 ('MetaData "TaskStatus" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) ((C1 ('MetaCons "Active" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Inactive" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Succeeded" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Failed" 'PrefixI 'False) (U1 :: Type -> Type)))

data TaskList Source #

Constructors

TaskList
Fields length :: Int limit :: Int offset :: Int total :: Int data_ :: [Task]

Instances

Instances details

Generic TaskList Source #

Instance details

Defined in Network.Globus.Transfer

Associated Types

type Rep TaskList

Instance details

Defined in Network.Globus.Transfer

type Rep TaskList = D1 ('MetaData "TaskList" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "TaskList" 'PrefixI 'True) ((S1 ('MetaSel ('Just "length") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "limit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int)) :*: (S1 ('MetaSel ('Just "offset") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: (S1 ('MetaSel ('Just "total") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "data_") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [Task])))))

Methods

from :: TaskList -> Rep TaskList x #

to :: Rep TaskList x -> TaskList #

Show TaskList Source #

Instance details

Defined in Network.Globus.Transfer

Methods

showsPrec :: Int -> TaskList -> ShowS #

show :: TaskList -> String #

showList :: [TaskList] -> ShowS #

FromJSON TaskList Source #

Instance details

Defined in Network.Globus.Transfer

Methods

parseJSON :: Value -> Parser TaskList #

parseJSONList :: Value -> Parser [TaskList] #

omittedField :: Maybe TaskList #

type Rep TaskList Source #

Instance details

Defined in Network.Globus.Transfer

type Rep TaskList = D1 ('MetaData "TaskList" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "TaskList" 'PrefixI 'True) ((S1 ('MetaSel ('Just "length") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "limit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int)) :*: (S1 ('MetaSel ('Just "offset") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: (S1 ('MetaSel ('Just "total") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "data_") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [Task])))))

data TransferResponse Source #

Constructors

TransferResponse
Fields task_id :: Id Task submission_id :: Id 'Submission message :: Text resource :: Text request_id :: Token Request

Instances

Instances details

Generic TransferResponse Source #

Instance details

Defined in Network.Globus.Transfer

Associated Types

type Rep TransferResponse

Instance details

Defined in Network.Globus.Transfer

type Rep TransferResponse = D1 ('MetaData "TransferResponse" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "TransferResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "task_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id Task)) :*: S1 ('MetaSel ('Just "submission_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id 'Submission))) :*: (S1 ('MetaSel ('Just "message") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: (S1 ('MetaSel ('Just "resource") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: S1 ('MetaSel ('Just "request_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Token Request))))))

Methods

from :: TransferResponse -> Rep TransferResponse x #

to :: Rep TransferResponse x -> TransferResponse #

FromJSON TransferResponse Source #

Instance details

Defined in Network.Globus.Transfer

Methods

parseJSON :: Value -> Parser TransferResponse #

parseJSONList :: Value -> Parser [TransferResponse] #

omittedField :: Maybe TransferResponse #

type Rep TransferResponse Source #

Instance details

Defined in Network.Globus.Transfer

type Rep TransferResponse = D1 ('MetaData "TransferResponse" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "TransferResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "task_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id Task)) :*: S1 ('MetaSel ('Just "submission_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id 'Submission))) :*: (S1 ('MetaSel ('Just "message") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: (S1 ('MetaSel ('Just "resource") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: S1 ('MetaSel ('Just "request_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Token Request))))))

data TransferRequest Source #

Constructors

TransferRequest
Fields data_type :: DataType "transfer" submission_id :: Id 'Submission label :: Maybe Text source_endpoint :: Id 'Collection destination_endpoint :: Id 'Collection data_ :: [TransferItem] sync_level :: SyncLevel store_base_path_info :: Bool

Instances

Instances details

Generic TransferRequest Source #

Instance details

Defined in Network.Globus.Transfer

Associated Types

type Rep TransferRequest

Instance details

Defined in Network.Globus.Transfer

Methods

from :: TransferRequest -> Rep TransferRequest x #

to :: Rep TransferRequest x -> TransferRequest #

ToJSON TransferRequest Source #

Instance details

Defined in Network.Globus.Transfer

Methods

toJSON :: TransferRequest -> Value #

toEncoding :: TransferRequest -> Encoding #

toJSONList :: [TransferRequest] -> Value #

toEncodingList :: [TransferRequest] -> Encoding #

omitField :: TransferRequest -> Bool #

type Rep TransferRequest Source #

Instance details

Defined in Network.Globus.Transfer

data TransferItem Source #

Constructors

TransferItem
Fields data_type :: DataType "transfer_item" source_path :: FilePath destination_path :: FilePath recursive :: Bool

Instances

Instances details

Generic TransferItem Source #

Instance details

Defined in Network.Globus.Transfer

Associated Types

type Rep TransferItem

Instance details

Defined in Network.Globus.Transfer

type Rep TransferItem = D1 ('MetaData "TransferItem" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "TransferItem" 'PrefixI 'True) ((S1 ('MetaSel ('Just "data_type") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (DataType "transfer_item")) :*: S1 ('MetaSel ('Just "source_path") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FilePath)) :*: (S1 ('MetaSel ('Just "destination_path") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FilePath) :*: S1 ('MetaSel ('Just "recursive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool))))

Methods

from :: TransferItem -> Rep TransferItem x #

to :: Rep TransferItem x -> TransferItem #

ToJSON TransferItem Source #

Instance details

Defined in Network.Globus.Transfer

Methods

toJSON :: TransferItem -> Value #

toEncoding :: TransferItem -> Encoding #

toJSONList :: [TransferItem] -> Value #

toEncodingList :: [TransferItem] -> Encoding #

omitField :: TransferItem -> Bool #

type Rep TransferItem Source #

Instance details

Defined in Network.Globus.Transfer

type Rep TransferItem = D1 ('MetaData "TransferItem" "Network.Globus.Transfer" "globus-0.2.0-inplace" 'False) (C1 ('MetaCons "TransferItem" 'PrefixI 'True) ((S1 ('MetaSel ('Just "data_type") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (DataType "transfer_item")) :*: S1 ('MetaSel ('Just "source_path") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FilePath)) :*: (S1 ('MetaSel ('Just "destination_path") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FilePath) :*: S1 ('MetaSel ('Just "recursive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool))))

data SyncLevel Source #

Constructors

SyncExists
SyncSize
SyncTimestamp
SyncChecksum

Instances

Instances details

ToJSON SyncLevel Source #
Instance details Defined in Network.Globus.Transfer Methods toJSON :: SyncLevel -> Value # toEncoding :: SyncLevel -> Encoding # toJSONList :: [SyncLevel] -> Value # toEncodingList :: [SyncLevel] -> Encoding # omitField :: SyncLevel -> Bool #