[commit: ghc] master: Layout only (af457be)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/af457be67075fecb7b87be8f1c85619caad0f5ee

>---------------------------------------------------------------

commit af457be67075fecb7b87be8f1c85619caad0f5ee
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Oct 24 15:43:49 2011 +0100

    Layout only

>---------------------------------------------------------------

 compiler/parser/RdrHsSyn.lhs |    9 +++++----
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs
index 2521eec..094efac 100644
--- a/compiler/parser/RdrHsSyn.lhs
+++ b/compiler/parser/RdrHsSyn.lhs
@@ -547,10 +547,11 @@ checkKindSigs :: [LTyClDecl RdrName] -> P ()
 checkKindSigs = mapM_ check
   where
     check (L l tydecl)
-      | isFamilyDecl tydecl
-        || isTypeDecl tydecl = return ()
-      | otherwise            =
-        parseErrorSDoc l (text "Type declaration in a class must be a kind signature or synonym default:" $$ ppr tydecl)
+      | isFamilyDecl tydecl = return ()
+      | isTypeDecl   tydecl = return ()
+      | otherwise
+      = parseErrorSDoc l (text "Type declaration in a class must be a kind signature or synonym default:" 
+                          $$ ppr tydecl)
 
 checkContext :: LHsType RdrName -> P (LHsContext RdrName)
 checkContext (L l orig_t)