From 9a7c8195e5330c868b0e2b9b25af915d5fd2bd7a Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Sat, 13 Jul 2019 15:55:17 -0400
Subject: require base >= 4.8

---
 lib/CommandLine.hs | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'lib')

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
-- 
cgit v1.2.3