Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/b3a4c9bc290344d63f0a724f6e9b65378ff97c81 >--------------------------------------------------------------- commit b3a4c9bc290344d63f0a724f6e9b65378ff97c81 Author: Max Bolingbroke <batterseapo...@hotmail.com> 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)) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
