From: simonpj@microsoft.com Date: Mon, 1 Nov 2010 08:07:48 +0000 (+0000) Subject: White space only X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=af4d517cf8fd63a4ba9dfb6333aae67b8f4a2ed4 White space only --- diff --git a/compiler/typecheck/TcType.lhs b/compiler/typecheck/TcType.lhs index 8a95b0f..d4a4b82 100644 --- a/compiler/typecheck/TcType.lhs +++ b/compiler/typecheck/TcType.lhs @@ -1025,8 +1025,6 @@ getClassPredTys _ = panic "getClassPredTys" mkDictTy :: Class -> [Type] -> Type mkDictTy clas tys = mkPredTy (ClassP clas tys) - - isDictLikeTy :: Type -> Bool -- Note [Dictionary-like types] isDictLikeTy ty | Just ty' <- tcView ty = isDictTy ty'