@@ -35,7 +35,7 @@ import Language.PureScript.Names
35import Language.PureScript.TypeChecker.Monad
35import Language.PureScript.TypeChecker.Monad
36import Language.PureScript.Types
36import Language.PureScript.Types
38−elaborateInstance :: (MonadState CheckState m, MonadError MultipleErrors m) => Expr -> m Expr
38+elaborateInstance :: (Functor m, MonadState CheckState m, MonadError MultipleErrors m) => Expr -> m Expr
39elaborateInstance (TypeClassInstanceMemberFunction funName className t) =
39elaborateInstance (TypeClassInstanceMemberFunction funName className t) =
40 fromMaybe noInstanceError $ lookup (unQualify className, funName) derivingList
40 fromMaybe noInstanceError $ lookup (unQualify className, funName) derivingList
41 where noInstanceError = throwError $ MultipleErrors [ErrorInInstance className [TypeConstructor t] (SimpleErrorWrapper $ MissingClassMember funName)]
41 where noInstanceError = throwError $ MultipleErrors [ErrorInInstance className [TypeConstructor t] (SimpleErrorWrapper $ MissingClassMember funName)]