[project @ 2005-03-31 10:16:33 by simonmar]

[ghc-hetmet.git] / ghc / compiler / typecheck / Inst.lhs

diff --git a/ghc/compiler/typecheck/Inst.lhs b/ghc/compiler/typecheck/Inst.lhs
index c71a738..ca3596d 100644 (file)
--- a/ghc/compiler/typecheck/Inst.lhs
+++ b/ghc/compiler/typecheck/Inst.lhs
@@ -572,7 +572,7 @@ addInst dflags home_ie dfun
                -- not overlap with anything in the things being looked up
                -- (since we do unification).  
                -- We use tcSkolType because we don't want to allocate fresh
-               -- *meta* type variables.  
+               --  *meta* type variables.  
          (tvs', theta', tau') <- tcSkolType (InstSkol dfun) (idType dfun)
        ; let   (cls, tys') = tcSplitDFunHead tau'
                dfun'       = setIdType dfun (mkSigmaTy tvs' theta' tau')