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 /Remote/Bup.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 'Remote/Bup.hs')
| -rw-r--r-- | Remote/Bup.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index a598e5599..43d28a40f 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -20,6 +20,7 @@ import qualified Git.Config import qualified Git.Construct import qualified Git.Ref import Config +import Config.Cost import Remote.Helper.Ssh import Remote.Helper.Special import Remote.Helper.Encryptable @@ -44,7 +45,7 @@ gen r u c gc = do bupr <- liftIO $ bup2GitRemote buprepo cst <- remoteCost gc $ if bupLocal buprepo - then semiCheapRemoteCost + then nearlyCheapRemoteCost else expensiveRemoteCost (u', bupr') <- getBupUUID bupr u |