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

fix build

Browse source
This commit is contained in:
Joey Hess 2012-05-05 20:11:08 -04:00
parent 8c09c17f6b
commit 657d09d499
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test.hs
View file

@ -35,8 +35,8 @@ import qualified GitAnnex
import qualified Logs.UUIDBased
import qualified Logs.Trust
import qualified Logs.Remote
import qualified Logs.Unused
import qualified Remote
import qualified Command.DropUnused
import qualified Types.Key
import qualified Types.Messages
import qualified Config
@ -495,7 +495,7 @@ test_unused = "git-annex unused/dropunused" ~: intmpclonerepo $ do
where
checkunused expectedkeys = do
git_annex "unused" [] @? "unused failed"
unusedmap <- annexeval $ Command.DropUnused.readUnusedLog ""
unusedmap <- annexeval $ Logs.Unused.readUnusedLog ""
let unusedkeys = M.elems unusedmap
assertEqual "unused keys differ"
(sort expectedkeys) (sort unusedkeys)