aboutsummaryrefslogtreecommitdiff
path: root/Logs/MetaData.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Logs/MetaData.hs')
-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)