From b2923a6ddf44298f3036af284bac7eebacffb9bf Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 21 Feb 2014 11:30:31 -0400
Subject: fix build with old version of Data.Set that lacks toDescList

---
 Logs/MetaData.hs | 5 +++++
 1 file changed, 5 insertions(+)

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)
-- 
cgit v1.2.3