Safe Haskell	Safe-Inferred
Language	GHC2021

Network.Globus.Transfer

Documentation

fetchSubmissionId :: MonadIO m => Token Access -> m (Id Submission) Source #

transferAuth :: Token Access -> Option Https Source #

transferEndpoint :: Url 'Https Source #

sendTransfer :: MonadIO m => Token Access -> TransferRequest -> m TransferResponse Source #

fetchTask :: MonadIO m => 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 => Token Access -> TaskFilters -> m TaskList Source #

activityUrl :: Id Task -> Uri App 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 :: Type -> Type # 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.1.2-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 :: Type -> Type # 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 type Rep Task = D1 ('MetaData "Task" "Network.Globus.Transfer" "globus-0.1.2-inplace" 'False) (C1 ('MetaCons "Task" 'PrefixI 'True) (((S1 ('MetaSel ('Just "status") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 TaskStatus) :: (S1 ('MetaSel ('Just "task_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id Task)) :: S1 ('MetaSel ('Just "label") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text))) :: (S1 ('MetaSel ('Just "files") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :: (S1 ('MetaSel ('Just "directories") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :: S1 ('MetaSel ('Just "files_skipped") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int)))) :: ((S1 ('MetaSel ('Just "files_transferred") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :: (S1 ('MetaSel ('Just "bytes_transferred") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :: S1 ('MetaSel ('Just "bytes_checksummed") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int))) :: ((S1 ('MetaSel ('Just "effective_bytes_per_second") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :: S1 ('MetaSel ('Just "nice_status") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Text))) :: (S1 ('MetaSel ('Just "source_endpoint_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id 'Collection)) :: S1 ('MetaSel ('Just "destination_endpoint_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id 'Collection)))))))

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 :: 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.1.2-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 :: Type -> Type # 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.1.2-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 :: Token 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 :: Type -> Type # Methods from :: TransferResponse -> Rep TransferResponse x # to :: Rep TransferResponse x -> TransferResponse #
Show TransferResponse Source #
Instance details Defined in Network.Globus.Transfer Methods showsPrec :: Int -> TransferResponse -> ShowS # show :: TransferResponse -> String # showList :: [TransferResponse] -> ShowS #
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.1.2-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 (Token '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 :: Type -> Type # 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 type Rep TransferRequest = D1 ('MetaData "TransferRequest" "Network.Globus.Transfer" "globus-0.1.2-inplace" 'False) (C1 ('MetaCons "TransferRequest" 'PrefixI 'True) (((S1 ('MetaSel ('Just "data_type") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (DataType "transfer")) :: S1 ('MetaSel ('Just "submission_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id 'Submission))) :: (S1 ('MetaSel ('Just "label") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Text)) :: S1 ('MetaSel ('Just "source_endpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id 'Collection)))) :: ((S1 ('MetaSel ('Just "destination_endpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Id 'Collection)) :: S1 ('MetaSel ('Just "data_") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [TransferItem])) :: (S1 ('MetaSel ('Just "sync_level") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SyncLevel) :*: S1 ('MetaSel ('Just "store_base_path_info") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool)))))

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 :: Type -> Type # 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.1.2-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 #

dataLabelsJson :: (Generic a, GToJSON' Value Zero (Rep a)) => a -> Value Source #

dataLabels :: String -> String Source #