mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

split cost out into its own module

Browse source 
Added a function to insert a new cost into a list, which could be used to
asjust costs after a drag and drop.
This commit is contained in:
Joey Hess 2013-03-13 16:16:01 -04:00
parent 672fb29b06
commit 19c0a0d5b1
18 changed files with 103 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Bup.hs
View file

@ -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

1
Remote/Directory.hs
View file

@ -16,6 +16,7 @@ import Data.Int
import Common.Annex
import Types.Remote
import qualified Git
import Config.Cost
import Config
import Utility.FileMode
import Remote.Helper.Special

1
Remote/Git.hs
View file

@ -35,6 +35,7 @@ import qualified Annex.Branch
import qualified Utility.Url as Url
import Utility.TempFile
import Config
import Config.Cost
import Init
import Types.Key
import qualified Fields

1
Remote/Glacier.hs
View file

@ -16,6 +16,7 @@ import Types.Remote
import Types.Key
import qualified Git
import Config
import Config.Cost
import Remote.Helper.Special
import Remote.Helper.Encryptable
import qualified Remote.Helper.AWS as AWS

2
Remote/Helper/Encryptable.hs
View file

@ -13,7 +13,7 @@ import Common.Annex
import Types.Remote
import Crypto
import qualified Annex
import Config
import Config.Cost
import Utility.Base64
{- Encryption setup for a remote. The user must specify whether to use

1
Remote/Hook.hs
View file

@ -16,6 +16,7 @@ import Types.Remote
import Types.Key
import qualified Git
import Config
import Config.Cost
import Annex.Content
import Remote.Helper.Special
import Remote.Helper.Encryptable

1
Remote/Rsync.hs
View file

@ -15,6 +15,7 @@ import Common.Annex
import Types.Remote
import qualified Git
import Config
import Config.Cost
import Annex.Content
import Remote.Helper.Special
import Remote.Helper.Encryptable

1
Remote/S3.hs
View file

@ -21,6 +21,7 @@ import Types.Remote
import Types.Key
import qualified Git
import Config
import Config.Cost
import Remote.Helper.Special
import Remote.Helper.Encryptable
import qualified Remote.Helper.AWS as AWS

1
Remote/Web.hs
View file

@ -13,6 +13,7 @@ import qualified Git
import qualified Git.Construct
import Annex.Content
import Config
import Config.Cost
import Logs.Web
import qualified Utility.Url as Url
import Types.Key

1
Remote/WebDAV.hs
View file

@ -24,6 +24,7 @@ import Common.Annex
import Types.Remote
import qualified Git
import Config
import Config.Cost
import Remote.Helper.Special
import Remote.Helper.Encryptable
import Remote.Helper.Chunked