annex.autoupgrade setting
This commit is contained in:
parent
be069bd962
commit
31d43c63a4
4 changed files with 47 additions and 7 deletions
|
@ -9,6 +9,7 @@ module Types.Distribution where
|
|||
|
||||
import Types.Key
|
||||
import Data.Time.Clock
|
||||
import Git.Config (isTrue, boolConfig)
|
||||
|
||||
data GitAnnexDistribution = GitAnnexDistribution
|
||||
{ distributionUrl :: String
|
||||
|
@ -20,3 +21,18 @@ data GitAnnexDistribution = GitAnnexDistribution
|
|||
deriving (Read, Show, Eq)
|
||||
|
||||
type GitAnnexVersion = String
|
||||
|
||||
data AutoUpgrade = AskUpgrade | AutoUpgrade | NoAutoUpgrade
|
||||
deriving (Eq)
|
||||
|
||||
toAutoUpgrade :: (Maybe String) -> AutoUpgrade
|
||||
toAutoUpgrade Nothing = AskUpgrade
|
||||
toAutoUpgrade (Just s)
|
||||
| s == "ask" = AskUpgrade
|
||||
| isTrue s == Just True = AutoUpgrade
|
||||
| otherwise = NoAutoUpgrade
|
||||
|
||||
fromAutoUpgrade :: AutoUpgrade -> String
|
||||
fromAutoUpgrade AskUpgrade = "ask"
|
||||
fromAutoUpgrade AutoUpgrade = boolConfig True
|
||||
fromAutoUpgrade NoAutoUpgrade = boolConfig False
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue