From 9a9a2a72612cb404eb8396d7eb5ea6a09bd2addb Mon Sep 17 00:00:00 2001
From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Wed, 6 Feb 2013 14:07:44 +1100
Subject: Warning police

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

(limited to 'compiler/vectorise')

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index 34e22f502b..706fc85166 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 ac4c6846d3..0ae0f936b3 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
-- 
cgit v1.2.1