[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