Typo in function name
authorGabor Greif <ggreif@gmail.com>
Wed, 18 Feb 2015 17:18:49 +0000 (18:18 +0100)
committerGabor Greif <ggreif@gmail.com>
Wed, 18 Feb 2015 17:18:49 +0000 (18:18 +0100)
compiler/typecheck/TcInstDcls.hs

index 4444101..3d9e425 100644 (file)
@@ -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
        }