X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FndpFlatten%2FFlattenMonad.hs;fp=ghc%2Fcompiler%2FndpFlatten%2FFlattenMonad.hs;h=874f02048b7d7c209c8cd346b504434cdee40b4f;hb=0171936c9092666692c69a7f93fa75af976330cb;hp=1a6955e26a6711c62488af96551820a276e6fdb3;hpb=6561aa4e8adf3e0a3a22f1de75b238b6463d1828;p=ghc-hetmet.git

diff --git a/ghc/compiler/ndpFlatten/FlattenMonad.hs b/ghc/compiler/ndpFlatten/FlattenMonad.hs
index 1a6955e..874f020 100644
--- a/ghc/compiler/ndpFlatten/FlattenMonad.hs
+++ b/ghc/compiler/ndpFlatten/FlattenMonad.hs
@@ -82,10 +82,11 @@ import HscTypes	    (HomeSymbolTable, PersistentCompilerState(..),
 		     TyThing(..), lookupType)
 import PrelNames    (charPrimTyConName, intPrimTyConName, floatPrimTyConName,
 		     doublePrimTyConName, fstName, andName, orName,
-		     eqCharName, eqIntName, eqFloatName, eqDoubleName,
-		     neqCharName, neqIntName, neqFloatName, neqDoubleName,
 		     lengthPName, replicatePName, mapPName, bpermutePName,
 		     bpermuteDftPName, indexOfPName)
+import PrimOp	    (eqCharName, eqIntName, eqFloatName, eqDoubleName,
+		     neqIntName)
+		     -- neqCharName, neqFloatName,neqDoubleName,
 import CoreSyn      (Expr(..), Bind(..), CoreBndr, CoreExpr, CoreBind, mkApps,
 		     bindersOfBinds)
 import CoreUtils    (exprType)
@@ -384,10 +385,10 @@ mk'neq ty a1 a2  = mkFunApp neqName [a1, a2]
 		   where
 		     name = tyConName . tyConAppTyCon $ ty
 		     --
-		     neqName | name == charPrimTyConName   = neqCharName
+		     neqName {- | name == charPrimTyConName   = neqCharName -}
 			     | name == intPrimTyConName    = neqIntName
-			     | name == floatPrimTyConName  = neqFloatName
-			     | name == doublePrimTyConName = neqDoubleName
+			     {- | name == floatPrimTyConName  = neqFloatName -}
+			     {- | name == doublePrimTyConName = neqDoubleName -}
 			     | otherwise		   =
 			       pprPanic "FlattenMonad.mk'neq: " (ppr ty)