summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-21 11:30:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-21 11:30:31 -0400
commitb2923a6ddf44298f3036af284bac7eebacffb9bf (patch)
tree506e0133277aa4fa7ecc438f4de06be6692b4aab /Logs
parenta7a2aaa97b87afaedf05f2de3f8e1ae194dd6175 (diff)
fix build with old version of Data.Set that lacks toDescList5.20140221
Diffstat (limited to 'Logs')
-rw-r--r--Logs/MetaData.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Logs/MetaData.hs b/Logs/MetaData.hs
index 807b50afa..77c1b56a5 100644
--- a/Logs/MetaData.hs
+++ b/Logs/MetaData.hs
@@ -24,6 +24,7 @@
-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
+{-# LANGUAGE CPP #-}
module Logs.MetaData (
getCurrentMetaData,
@@ -120,7 +121,11 @@ simplifyLog s = case sl of
else s
_ -> s
where
+#if MIN_VERSION_containers(0,5,0)
sl = S.toDescList s
+#else
+ sl = reverse (S.toAscList s)
+#endif
go c _ [] = c
go c newer (l:ls)