X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;h=9f8ea7dbbe61672dd3b56550627357a242f2de9b;hp=674ec78203e2629e898411842d1b5082f1483f0d;hb=1e50fd4185479a62e02d987bdfcb1c62712859ca;hpb=703ca1542c8e0983cc9d8eebce6e9f3dd3fd71e2

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 674ec78..9f8ea7d 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -42,12 +42,12 @@ import Bag
 import FastString
 import SrcLoc
 import DynFlags	( DynFlag(..) )
-import Maybe            ( isNothing )
 import BasicTypes       ( Boxity(..) )
 
 import ListSetOps    (findDupsEq)
 
 import Control.Monad
+import Data.Maybe
 \end{code}
 
 \begin{code}
@@ -598,7 +598,6 @@ validRuleLhs foralls lhs
     check_e (HsApp e1 e2)      	 = checkl_e e1 `mplus` checkl_e e2
     check_e (NegApp e _)       	 = checkl_e e
     check_e (ExplicitList _ es)	 = checkl_es es
-    check_e (ExplicitTuple es _) = checkl_es es
     check_e other		 = Just other	-- Fails
 
     checkl_es es = foldr (mplus . checkl_e) Nothing es