1 files changed, 0 insertions, 91 deletions
diff --git a/devel/hs-drift/files/patch-src__GenUtil.hs b/devel/hs-drift/files/patch-src__GenUtil.hs
deleted file mode 100644
index cd7485acc98e..000000000000
--- a/devel/hs-drift/files/patch-src__GenUtil.hs
+++ /dev/null
@@ -1,91 +0,0 @@
---- ./src/GenUtil.hs.orig	2008-02-10 15:38:31.000000000 +0100
-+++ ./src/GenUtil.hs	2013-05-01 00:53:12.000000000 +0200
-@@ -39,7 +39,7 @@
-     -- ** Simple deconstruction
-     fromLeft,fromRight,fsts,snds,splitEither,rights,lefts,
-     -- ** System routines
--    exitSuccess, System.exitFailure, epoch, lookupEnv,endOfTime,
-+    exitSuccess, System.Exit.exitFailure, epoch, lookupEnv,endOfTime,
-     -- ** Random routines
-     repMaybe,
-     liftT2, liftT3, liftT4,
-@@ -94,9 +94,11 @@
- import Char(isAlphaNum, isSpace, toLower,  ord)
- import List(group,sort)
- import List(intersperse, sortBy, groupBy)
--import Monad
--import qualified IO
--import qualified System
-+import Monad hiding (replicateM, replicateM_)
-+import qualified System.IO
-+import qualified System.IO.Error
-+import qualified System.Exit
-+import qualified System.Environment
- import Random(StdGen, newStdGen, Random(randomR))
- import Time
- 
-@@ -127,7 +129,7 @@
- 
- -- | write string to standard error
- putErr :: String -> IO ()
--putErr = IO.hPutStr IO.stderr
-+putErr = System.IO.hPutStr System.IO.stderr
- 
- -- | write string and newline to standard error
- putErrLn :: String -> IO ()
-@@ -137,13 +139,13 @@
- -- | write string and newline to standard error,
- -- then exit program with failure.
- putErrDie :: String -> IO a
--putErrDie s = putErrLn s >> System.exitFailure
-+putErrDie s = putErrLn s >> System.Exit.exitFailure
- 
- 
- -- | exit program successfully. 'exitFailure' is
- -- also exported from System.
- exitSuccess :: IO a
--exitSuccess = System.exitWith System.ExitSuccess
-+exitSuccess = System.Exit.exitWith System.Exit.ExitSuccess
- 
- 
- {-# INLINE fromRight #-}
-@@ -284,10 +286,10 @@
- lefts xs = [x | Left x <- xs]
- 
- ioM :: Monad m => IO a -> IO (m a)
--ioM action = catch (fmap return action) (\e -> return (fail (show e)))
-+ioM action = System.IO.Error.catchIOError (fmap return action) (\e -> return (fail (show e)))
- 
- ioMp :: MonadPlus m => IO a -> IO (m a)
--ioMp action = catch (fmap return action) (\_ -> return mzero)
-+ioMp action = System.IO.Error.catchIOError (fmap return action) (\_ -> return mzero)
- 
- -- | reformat a string to not be wider than a given width, breaking it up
- -- between words.
-@@ -381,7 +383,7 @@
- -- | looks up an enviornment variable and returns it in a 'MonadPlus' rather
- -- than raising an exception if the variable is not set.
- lookupEnv :: MonadPlus m => String -> IO (m String)
--lookupEnv s = catch (fmap return $ System.getEnv s) (\e -> if IO.isDoesNotExistError e then return mzero else ioError e)
-+lookupEnv s = System.IO.Error.catchIOError (fmap return $ System.Environment.getEnv s) (\e -> if System.IO.Error.isDoesNotExistError e then return mzero else ioError e)
- 
- {-# SPECIALIZE fmapLeft :: (a -> c) -> [(Either a b)] -> [(Either c b)] #-}
- fmapLeft :: Functor f => (a -> c) -> f (Either a b) -> f (Either c b)
-@@ -482,7 +484,7 @@
- _ `overlaps` _ = True
- 
- -- | translate a number of seconds to a string representing the duration expressed.
--showDuration :: Integral a => a -> String
-+showDuration :: (Show a, Integral a) => a -> String
- showDuration x = st "d" dayI ++ st "h" hourI ++ st "m" minI ++ show secI ++ "s" where
-         (dayI, hourI) = divMod hourI' 24
-         (hourI', minI) = divMod minI' 60
-@@ -495,7 +497,7 @@
- -- arguments are given, read stdin.
- 
- getArgContents = do
--    as <- System.getArgs
-+    as <- System.Environment.getArgs
-     let f "-" = getContents
-         f fn = readFile fn
-     cs <- mapM f as