diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-21 11:30:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-21 11:30:31 -0400 |
| commit | b2923a6ddf44298f3036af284bac7eebacffb9bf (patch) | |
| tree | 506e0133277aa4fa7ecc438f4de06be6692b4aab | |
| parent | a7a2aaa97b87afaedf05f2de3f8e1ae194dd6175 (diff) | |
fix build with old version of Data.Set that lacks toDescList5.20140221
| -rw-r--r-- | Logs/MetaData.hs | 5 |
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) |