[project @ 2003-09-23 15:09:56 by simonpj]

Remove redundant where

diff --git a/ghc/compiler/types/Type.lhs b/ghc/compiler/types/Type.lhs
index 9a9fae2..9652837 100644 (file)
--- a/ghc/compiler/types/Type.lhs
+++ b/ghc/compiler/types/Type.lhs
@@ -118,7 +118,6 @@ hasMoreBoxityInfo :: Kind -> Kind -> Bool
 hasMoreBoxityInfo k1 k2
   | k2 `eqKind` openTypeKind = isAnyTypeKind k1
   | otherwise               = k1 `eqKind` k2
-  where
 
 isAnyTypeKind :: Kind -> Bool
 -- True of kind * and *# and ?