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 /Types/GitConfig.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 'Types/GitConfig.hs')
| -rw-r--r-- | Types/GitConfig.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Types/GitConfig.hs b/Types/GitConfig.hs index 9c6de59d7..b42f8f229 100644 --- a/Types/GitConfig.hs +++ b/Types/GitConfig.hs @@ -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 |