[commit: ghc] master: Typo in function name (35d464b)

git at git.haskell.org git at git.haskell.org
Wed Feb 18 17:17:25 UTC 2015


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/35d464bf54373cbe37e1e3310cc6a95f63f257f0/ghc

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

commit 35d464bf54373cbe37e1e3310cc6a95f63f257f0
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Feb 18 18:18:49 2015 +0100

    Typo in function name


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

35d464bf54373cbe37e1e3310cc6a95f63f257f0
 compiler/typecheck/TcInstDcls.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcInstDcls.hs b/compiler/typecheck/TcInstDcls.hs
index 4444101..3d9e425 100644
--- a/compiler/typecheck/TcInstDcls.hs
+++ b/compiler/typecheck/TcInstDcls.hs
@@ -1412,7 +1412,7 @@ tcMethods dfun_id clas tyvars dfun_ev_vars inst_tys
     -- Check if one of the minimal complete definitions is satisfied
     checkMinimalDefinition
       = whenIsJust (isUnsatisfied methodExists (classMinimalDef clas)) $
-          warnUnsatisifiedMinimalDefinition
+          warnUnsatisfiedMinimalDefinition
       where
       methodExists meth = isJust (findMethodBind meth binds)
 
@@ -1616,8 +1616,8 @@ warnMissingMethodOrAT what name
                 (ptext (sLit "No explicit") <+> text what <+> ptext (sLit "or default declaration for")
                  <+> quotes (ppr name)) }
 
-warnUnsatisifiedMinimalDefinition :: ClassMinimalDef -> TcM ()
-warnUnsatisifiedMinimalDefinition mindef
+warnUnsatisfiedMinimalDefinition :: ClassMinimalDef -> TcM ()
+warnUnsatisfiedMinimalDefinition mindef
   = do { warn <- woptM Opt_WarnMissingMethods
        ; warnTc warn message
        }



More information about the ghc-commits mailing list