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

further change to support dlist-1.0

Browse source 
Its tail no longer yields a DList.
This commit is contained in:
Joey Hess 2020-08-05 10:37:14 -04:00
parent 7077a7c2e7
commit 9994c5882c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Utility/TList.hs
View file

@ -12,6 +12,7 @@
-} -}
{-# LANGUAGE BangPatterns #-} {-# LANGUAGE BangPatterns #-}
{-# LANGUAGE CPP #-}
module Utility.TList ( module Utility.TList (
TList, TList,
@ -44,7 +45,11 @@ newTList = newEmptyTMVar
headTList :: TList a -> STM a headTList :: TList a -> STM a
headTList tlist = do headTList tlist = do
dl <- takeTMVar tlist dl <- takeTMVar tlist
#if MIN_VERSION_dlist(1,0,0)
let !dl' = D.fromList $ D.tail dl
#else
let !dl' = D.tail dl let !dl' = D.tail dl
#endif
unless (emptyDList dl') $ unless (emptyDList dl') $
putTMVar tlist dl' putTMVar tlist dl'
return (D.head dl) return (D.head dl)