diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-13 16:16:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-13 16:30:34 -0400 |
| commit | 571cd1c57aeb4e8071b30caf529a0845e8ddc7cf (patch) | |
| tree | e895c99334d675cec3f7996cb6c298fb7751b33b /Assistant/MakeRemote.hs | |
| parent | 89cc1d2a38a1abaaecdfb7766739f3c2b5dbf963 (diff) | |
split cost out into its own module
Added a function to insert a new cost into a list, which could be used to
asjust costs after a drag and drop.
Diffstat (limited to 'Assistant/MakeRemote.hs')
| -rw-r--r-- | Assistant/MakeRemote.hs | 3 |
1 files changed, 2 insertions, 1 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 |