diff options
Diffstat (limited to 'lib/CommandLine.hs')
-rw-r--r-- | lib/CommandLine.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/lib/CommandLine.hs b/lib/CommandLine.hs index 2676260..4897b21 100644 --- a/lib/CommandLine.hs +++ b/lib/CommandLine.hs | |||
@@ -1,6 +1,4 @@ | |||
1 | {-# LANGUAGE DeriveFunctor #-} | 1 | {-# LANGUAGE DeriveFunctor #-} |
2 | {-# LANGUAGE CPP #-} | ||
3 | -- {-# LANGUAGE RankNTypes #-} | ||
4 | {-# LANGUAGE BangPatterns #-} | 2 | {-# LANGUAGE BangPatterns #-} |
5 | {-# LANGUAGE GADTs #-} | 3 | {-# LANGUAGE GADTs #-} |
6 | {-# LANGUAGE StandaloneDeriving #-} | 4 | {-# LANGUAGE StandaloneDeriving #-} |
@@ -445,14 +443,6 @@ tryCompute os us c@(Computation { compLabel = lbl }) | |||
445 | num -> num | 443 | num -> num |
446 | -} | 444 | -} |
447 | 445 | ||
448 | #if defined(VERSION_base) | ||
449 | #if !MIN_VERSION_base(4,8,0) | ||
450 | sortOn :: Ord b => (a -> b) -> [a] -> [a] | ||
451 | sortOn f = | ||
452 | map snd . sortBy (comparing fst) . map (\x -> let y = f x in y `seq` (y, x)) | ||
453 | #endif | ||
454 | #endif | ||
455 | |||
456 | removeIntersection :: Ord a => [a] -> [a] -> ([a], [a]) | 446 | removeIntersection :: Ord a => [a] -> [a] -> ([a], [a]) |
457 | removeIntersection (x:xs) (y:ys) | 447 | removeIntersection (x:xs) (y:ys) |
458 | | x == y = removeIntersection xs ys | 448 | | x == y = removeIntersection xs ys |