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

convert GitRepo to qualified import

Browse source
This commit is contained in:
Joey Hess 2010-10-14 02:36:41 -04:00
parent eda80e44c5
commit 48643b68b3
11 changed files with 173 additions and 189 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Backend.hs
View file

@ -28,7 +28,7 @@ import Data.String.Utils
import System.Posix.Files
import BackendList
import Locations
import GitRepo
import qualified GitRepo as Git
import Utility
import Types
@ -36,7 +36,7 @@ import Types
storeFile :: FilePath -> Annex (Maybe (Key, Backend))
storeFile file = do
g <- gitAnnex
let relfile = gitRelative g file
let relfile = Git.relative g file
b <- backendsAnnex
storeFile' b file relfile
storeFile' [] _ _ = return Nothing