diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/MakeRemote.hs | 3 | ||||
| -rw-r--r-- | Assistant/Pairing/MakeRemote.hs | 1 | ||||
| -rw-r--r-- | Assistant/Types/ScanRemotes.hs | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/Assistant/MakeRemote.hs b/Assistant/MakeRemote.hs index 8d4e3a1ba..448f7ad97 100644 --- a/Assistant/MakeRemote.hs +++ b/Assistant/MakeRemote.hs @@ -21,12 +21,13 @@ import Logs.UUID import Logs.Remote import Git.Remote import Config +import Config.Cost import qualified Data.Text as T import qualified Data.Map as M {- Sets up and begins syncing with a new ssh or rsync remote. -} -makeSshRemote :: Bool -> SshData -> Maybe Int -> Assistant Remote +makeSshRemote :: Bool -> SshData -> Maybe Cost -> Assistant Remote makeSshRemote forcersync sshdata mcost = do r <- liftAnnex $ addRemote $ maker (sshRepoName sshdata) sshurl diff --git a/Assistant/Pairing/MakeRemote.hs b/Assistant/Pairing/MakeRemote.hs index e4aab434d..ff5688bd3 100644 --- a/Assistant/Pairing/MakeRemote.hs +++ b/Assistant/Pairing/MakeRemote.hs @@ -13,6 +13,7 @@ import Assistant.Pairing import Assistant.Pairing.Network import Assistant.MakeRemote import Config +import Config.Cost import Network.Socket import qualified Data.Text as T diff --git a/Assistant/Types/ScanRemotes.hs b/Assistant/Types/ScanRemotes.hs index d2f0c588f..8219f9baf 100644 --- a/Assistant/Types/ScanRemotes.hs +++ b/Assistant/Types/ScanRemotes.hs @@ -13,7 +13,7 @@ import Control.Concurrent.STM import qualified Data.Map as M data ScanInfo = ScanInfo - { scanPriority :: Int + { scanPriority :: Float , fullScan :: Bool } |