@@ -246,9 +246,9 @@ typeCheckAll mainModuleName moduleName exps ds = mapM go ds <* mapM_ checkOrphan
248 checkOrphanInstance :: ModuleName -> Qualified ProperName -> [Type] -> Check ()
248 checkOrphanInstance :: ModuleName -> Qualified ProperName -> [Type] -> Check ()
249− checkOrphanInstance mn (Qualified (Just mn') _) tys
249+ checkOrphanInstance mn (Qualified (Just mn') _) tys'
250− | mn == mn' || any checkType tys = return ()
250+ | mn == mn' || any checkType tys' = return ()
251− | otherwise = throwError . errorMessage $ OrphanInstance dictName className tys
251+ | otherwise = throwError . errorMessage $ OrphanInstance dictName className tys'
253 checkType :: Type -> Bool
253 checkType :: Type -> Bool
254 checkType (TypeVar _) = False
254 checkType (TypeVar _) = False