[commit: ghc] supercompiler: Fix warning, remove dead code (b3a4c9b)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : supercompiler

http://hackage.haskell.org/trac/ghc/changeset/b3a4c9bc290344d63f0a724f6e9b65378ff97c81

>---------------------------------------------------------------

commit b3a4c9bc290344d63f0a724f6e9b65378ff97c81
Author: Max Bolingbroke <[email protected]>
Date:   Tue Aug 2 21:55:32 2011 +0100

    Fix warning, remove dead code

>---------------------------------------------------------------

 .../supercompile/Supercompile/Drive/Process.hs     |    1 -
 compiler/supercompile/Supercompile/Utilities.hs    |    4 ----
 2 files changed, 0 insertions(+), 5 deletions(-)

diff --git a/compiler/supercompile/Supercompile/Drive/Process.hs b/compiler/supercompile/Supercompile/Drive/Process.hs
index d301382..82afb9e 100644
--- a/compiler/supercompile/Supercompile/Drive/Process.hs
+++ b/compiler/supercompile/Supercompile/Drive/Process.hs
@@ -36,7 +36,6 @@ import FastString (mkFastString)
 import CoreUtils  (mkPiTypes)
 
 import qualified Data.Foldable as Foldable
-import Data.Traversable (Traversable(traverse))
 import qualified Data.Map as M
 import Data.Monoid
 import Data.Ord
diff --git a/compiler/supercompile/Supercompile/Utilities.hs b/compiler/supercompile/Supercompile/Utilities.hs
index 300d665..b853c6b 100644
--- a/compiler/supercompile/Supercompile/Utilities.hs
+++ b/compiler/supercompile/Supercompile/Utilities.hs
@@ -399,10 +399,6 @@ splitBy (_:ys) (x:xs) = first (x:) $ splitBy ys xs
 splitByReverse :: [b] -> [a] -> ([a], [a])
 splitByReverse ys xs = case splitBy ys (reverse xs) of (xs1, xs2) -> (reverse xs2, reverse xs1)
 
-splitManyBy :: [[b]] -> [a] -> [[a]]
-splitManyBy []       [] = []
-splitManyBy (ys:yss) xs = case splitBy ys xs of (xs1, xs2) -> xs1 : splitManyBy yss xs2
-
 listContexts :: [a] -> [([a], a, [a])]
 listContexts xs = zipWith (\is (t:ts) -> (is, t, ts)) (inits xs) (init (tails xs))