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

View file

@ -16,6 +16,7 @@ import Common
import qualified Git
import qualified Git.Config
import Utility.DataUnits
import Config.Cost
{- Main git-annex settings. Each setting corresponds to a git-config key
- such as annex.foo -}
@ -77,7 +78,7 @@ extractGitConfig r = GitConfig
- key such as <remote>.annex-foo, or if that is not set, a default from
- annex.foo -}
data RemoteGitConfig = RemoteGitConfig
{ remoteAnnexCost :: Maybe Int
{ remoteAnnexCost :: Maybe Cost
, remoteAnnexCostCommand :: Maybe String
, remoteAnnexIgnore :: Bool
, remoteAnnexSync :: Bool