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

fix build with old version of Data.Set that lacks toDescList

Browse source
This commit is contained in:
Joey Hess 2014-02-21 11:30:31 -04:00
parent 1f6f034e90
commit bdfc8e1f44
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Logs/MetaData.hs
View file

@ -24,6 +24,7 @@
-} -}
{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE CPP #-}
module Logs.MetaData ( module Logs.MetaData (
getCurrentMetaData, getCurrentMetaData,
@ -120,7 +121,11 @@ simplifyLog s = case sl of
else s else s
_ -> s _ -> s
where where
#if MIN_VERSION_containers(0,5,0)
sl = S.toDescList s sl = S.toDescList s
#else
sl = reverse (S.toAscList s)
#endif
go c _ [] = c go c _ [] = c
go c newer (l:ls) go c newer (l:ls)