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

use new getConfig

Browse source
This commit is contained in:
Joey Hess 2012-03-22 00:23:15 -04:00
parent 4eb5112681
commit f1398b5583
8 changed files with 16 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Annex/Version.hs
View file

@ -8,7 +8,6 @@
module Annex.Version where
import Common.Annex
import qualified Git.Config
import Config
type Version = String
@ -26,7 +25,7 @@ versionField :: String
versionField = "annex.version"
getVersion :: Annex (Maybe Version)
getVersion = handle <$> fromRepo (Git.Config.get versionField "")
getVersion = handle <$> getConfig versionField ""
where
handle [] = Nothing
handle v = Just v