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 #-}
|
||||
{-# LANGUAGE CPP #-}
|
||||
|
||||
module Logs.MetaData (
|
||||
getCurrentMetaData,
|
||||
|
@ -157,11 +156,7 @@ 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)
|
||||
|
|
Loading…
Add table
Reference in a new issue