remove back-compat code for old version of containers
Already b-d on a newer version.
This commit is contained in:
parent
e0784f51c6
commit
6383d22ffa
1 changed files with 0 additions and 5 deletions
|
@ -24,7 +24,6 @@
|
||||||
-}
|
-}
|
||||||
|
|
||||||
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||||
{-# LANGUAGE CPP #-}
|
|
||||||
|
|
||||||
module Logs.MetaData (
|
module Logs.MetaData (
|
||||||
getCurrentMetaData,
|
getCurrentMetaData,
|
||||||
|
@ -157,11 +156,7 @@ 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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue