fix build with dlist-1.0

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

View file

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