[commit: ghc] master: Warning police (9a9a2a7)

[Manuel Chakravarty]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9a9a2a72612cb404eb8396d7eb5ea6a09bd2addb

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

commit 9a9a2a72612cb404eb8396d7eb5ea6a09bd2addb
Author: Manuel M T Chakravarty <chak at cse.unsw.edu.au>
Date:   Wed Feb 6 14:07:44 2013 +1100

    Warning police

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

 compiler/vectorise/Vectorise/Exp.hs      |    3 ---
 compiler/vectorise/Vectorise/Type/Env.hs |    2 --
 2 files changed, 0 insertions(+), 5 deletions(-)

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index 34e22f5..706fc85 100644
--- a/compiler/vectorise/Vectorise/Exp.hs
+++ b/compiler/vectorise/Vectorise/Exp.hs
@@ -49,9 +49,6 @@ import MonadUtils
 import Control.Monad
 import Data.Maybe
 import Data.List
-import TcRnMonad (goptM)
-import DynFlags
-import Util
 
 
 -- Main entry point to vectorise expressions -----------------------------------
diff --git a/compiler/vectorise/Vectorise/Type/Env.hs b/compiler/vectorise/Vectorise/Type/Env.hs
index ac4c684..0ae0f93 100644
--- a/compiler/vectorise/Vectorise/Type/Env.hs
+++ b/compiler/vectorise/Vectorise/Type/Env.hs
@@ -317,8 +317,6 @@ vectTypeEnv tycons vectTypeDecls vectClassDecls
                 , fam_insts, binds)
        }
   where
-    fst3 (a, _, _) = a
-    
     addParallelTyConAndCons tycon
       = do
         { addGlobalParallelTyCon tycon