From: simonpj <unknown>
Date: Tue, 23 Sep 2003 15:09:56 +0000 (+0000)
Subject: [project @ 2003-09-23 15:09:56 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~428
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=726bcf728463661b1a2d4e9d786e5270f0f2bbb1;p=ghc-hetmet.git

[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
--- 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 ?