summaryrefslogtreecommitdiff
path: root/lib/CommandLine.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/CommandLine.hs')
-rw-r--r--lib/CommandLine.hs10
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)
450sortOn :: Ord b => (a -> b) -> [a] -> [a]
451sortOn f =
452 map snd . sortBy (comparing fst) . map (\x -> let y = f x in y `seq` (y, x))
453#endif
454#endif
455
456removeIntersection :: Ord a => [a] -> [a] -> ([a], [a]) 446removeIntersection :: Ord a => [a] -> [a] -> ([a], [a])
457removeIntersection (x:xs) (y:ys) 447removeIntersection (x:xs) (y:ys)
458 | x == y = removeIntersection xs ys 448 | x == y = removeIntersection xs ys