From: simonpj@microsoft.com Date: Wed, 23 May 2007 11:41:03 +0000 (+0000) Subject: White-space only X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=87b3c589498941332029a8a9da35e94a6139f0eb White-space only --- diff --git a/compiler/types/Coercion.lhs b/compiler/types/Coercion.lhs index 98b5a07..1e071eb 100644 --- a/compiler/types/Coercion.lhs +++ b/compiler/types/Coercion.lhs @@ -444,7 +444,7 @@ splitNewTypeRepCo_maybe other = Nothing -- CoercionI is either -- (a) proper coercion -- (b) the identity coercion -data CoercionI = IdCo | ACo Coercion +data CoercionI = IdCo | ACo Coercion isIdentityCoercion :: CoercionI -> Bool isIdentityCoercion IdCo = True