From 726bcf728463661b1a2d4e9d786e5270f0f2bbb1 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 23 Sep 2003 15:09:56 +0000
Subject: [PATCH] [project @ 2003-09-23 15:09:56 by simonpj] Remove redundant
 where

---
 ghc/compiler/types/Type.lhs |    1 -
 1 file changed, 1 deletion(-)

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