32 lines
891 B
Haskell
32 lines
891 B
Haskell
|
{- Rclone special remote, using "rclone gitannex"
|
||
|
|
-
|
||
|
|
- Copyright 2024 Joey Hess <id@joeyh.name>
|
||
|
|
-
|
||
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
||
|
|
-}
|
||
|
|
|
||
|
|
module Remote.Rclone (remote) where
|
||
|
|
|
||
|
|
import Types
|
||
|
|
import Types.Remote
|
||
|
|
import Remote.Helper.Special
|
||
|
|
import Remote.Helper.ExportImport
|
||
|
|
import Utility.SafeCommand
|
||
|
|
import qualified Remote.External as External
|
||
|
|
import Remote.External.Types
|
||
|
|
|
||
|
|
remote :: RemoteType
|
||
|
|
remote = specialRemoteType $ RemoteType
|
||
|
|
{ typename = "rclone"
|
||
|
|
, enumerate = const (findSpecialRemotes "rclone")
|
||
|
|
, generate = External.gen remote p
|
||
|
|
, configParser = External.remoteConfigParser p
|
||
|
|
, setup = External.externalSetup p setgitconfig
|
||
|
|
, exportSupported = External.checkExportSupported p
|
||
|
|
, importSupported = importUnsupported
|
||
|
|
, thirdPartyPopulated = False
|
||
|
|
}
|
||
|
|
where
|
||
|
|
p = Just $ ExternalCommand "rclone" [Param "gitannex"]
|
||
|
|
setgitconfig = Just ("rclone", "true")
|