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

fix build with dlist-1.0

Browse source 
That removed the list function. This new implementation appears to
actually be more efficient anyway, since it avoids toList.
This commit is contained in:
Joey Hess 2020-07-21 12:58:51 -04:00
parent 77f7157ddb
commit 798fdad660
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
CHANGELOG
View file

@ -1,3 +1,9 @@
git-annex (8.20200720.2) UNRELEASED; urgency=medium
* Support building with dlist-1.0
-- Joey Hess <id@joeyh.name> Tue, 21 Jul 2020 12:58:30 -0400
git-annex (8.20200720.1) upstream; urgency=medium git-annex (8.20200720.1) upstream; urgency=medium
* Fix a bug in find --batch in the previous version. * Fix a bug in find --batch in the previous version.

2
Utility/TList.hs
View file

@ -86,7 +86,7 @@ modifyTList tlist a = do
putTMVar tlist dl' putTMVar tlist dl'
emptyDList :: D.DList a -> Bool emptyDList :: D.DList a -> Bool
emptyDList = D.list True (\_ _ -> False) emptyDList = null . D.toList
consTList :: TList a -> a -> STM () consTList :: TList a -> a -> STM ()
consTList tlist v = modifyTList tlist $ \dl -> D.cons v dl consTList tlist v = modifyTList tlist $ \dl -> D.cons v dl