require base >= 4.8

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 @@
 {-# LANGUAGE DeriveFunctor #-}
-{-# LANGUAGE CPP #-}
--- {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE StandaloneDeriving #-}
@@ -445,14 +443,6 @@ tryCompute os us c@(Computation { compLabel = lbl })
                 num -> num
 -}
 
-#if defined(VERSION_base)
-#if !MIN_VERSION_base(4,8,0)
-sortOn :: Ord b => (a -> b) -> [a] -> [a]
-sortOn f =
-  map snd . sortBy (comparing fst) . map (\x -> let y = f x in y `seq` (y, x))
-#endif
-#endif
-
 removeIntersection :: Ord a => [a] -> [a] -> ([a], [a])
 removeIntersection (x:xs) (y:ys)
     | x == y = removeIntersection xs ys