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

break out non-log stuff to separate module

Browse source
This commit is contained in:
Joey Hess 2011-10-15 17:47:03 -04:00
parent ec169f84b1
commit ee9af605bc
28 changed files with 86 additions and 78 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test.hs
View file

@ -23,6 +23,7 @@ import Common
import qualified Utility.SafeCommand
import qualified Annex
import qualified Annex.UUID
import qualified Backend
import qualified Git
import qualified Locations
@ -609,7 +610,7 @@ checkdangling f = do
checklocationlog :: FilePath -> Bool -> Assertion
checklocationlog f expected = do
thisuuid <- annexeval Logs.UUID.getUUID
thisuuid <- annexeval Annex.UUID.getUUID
r <- annexeval $ Backend.lookupFile f
case r of
Just (k, _) -> do