some reorg and further remote generalization

This commit is contained in:
Joey Hess 2011-03-27 21:43:25 -04:00
parent 28bf28a73c
commit 6b5918c295
10 changed files with 154 additions and 117 deletions

View file

@ -15,6 +15,7 @@ import Types
import qualified Annex
import qualified GitRepo as Git
import Locations
import Config
type Version = String
@ -54,7 +55,7 @@ getVersion = do
return defaultVersion
setVersion :: Annex ()
setVersion = Annex.setConfig versionField defaultVersion
setVersion = setConfig versionField defaultVersion
checkVersion :: Annex ()
checkVersion = do