Warning police
authorManuel M T Chakravarty <chak@cse.unsw.edu.au>
Wed, 6 Feb 2013 03:07:44 +0000 (14:07 +1100)
committerManuel M T Chakravarty <chak@cse.unsw.edu.au>
Wed, 6 Feb 2013 03:07:44 +0000 (14:07 +1100)
compiler/vectorise/Vectorise/Exp.hs
compiler/vectorise/Vectorise/Type/Env.hs

index 34e22f5..706fc85 100644 (file)
@@ -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 -----------------------------------
index ac4c684..0ae0f93 100644 (file)
@@ -317,8 +317,6 @@ vectTypeEnv tycons vectTypeDecls vectClassDecls
                 , fam_insts, binds)
        }
   where
-    fst3 (a, _, _) = a
-    
     addParallelTyConAndCons tycon
       = do
         { addGlobalParallelTyCon tycon