X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsMeta.hs;fp=ghc%2Fcompiler%2FdeSugar%2FDsMeta.hs;h=a97e79a294eb2016f06d8de3631ccee1299766f2;hb=853e20a3eb86137cdb8accf69c6caa9db83a3d34;hp=150b90e8b4ce19637faabaf9322ac32bed0f30a0;hpb=ca739e852566d7e0bfd594e6d7bf08da04f78d3c;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index 150b90e..a97e79a 100644
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -300,7 +300,7 @@ repC (L loc (ConDecl con tvs (L cloc ctxt) details))
 repC (L loc con_decl)
   = do	{ dsWarn (loc, hang ds_msg 4 (ppr con_decl))
 	; return (panic "DsMeta:repC") }
-  where
+
 -- gaw 2004 FIX! Need a case for GadtDecl
 
 repBangTy :: LBangType Name -> DsM (Core (TH.StrictTypeQ))
@@ -881,7 +881,7 @@ lookupBinder n
 
 -- Look up a name that is either locally bound or a global name
 --
--- * If it is a global name, generate the "original name" representation (ie,
+--  * If it is a global name, generate the "original name" representation (ie,
 --   the <module>:<name> form) for the associated entity
 --
 lookupLOcc :: Located Name -> DsM (Core TH.Name)