From e60ae8a38394370fd8818ad004a101466fc7d2dc Mon Sep 17 00:00:00 2001
From: Fumiaki Kinoshita <fumiexcel@gmail.com>
Date: Wed, 15 Jul 2020 21:12:07 +0900
Subject: Add -Wnoncanonical-{monad,monoid}-instances to standardWarnings

-------------------------
Metric Decrease:
   T12425
Metric Increase:
   T17516
-------------------------
---
 testsuite/tests/mdo/should_fail/mdofail004.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'testsuite/tests/mdo')

diff --git a/testsuite/tests/mdo/should_fail/mdofail004.hs b/testsuite/tests/mdo/should_fail/mdofail004.hs
index 929785423c..a313747e8a 100644
--- a/testsuite/tests/mdo/should_fail/mdofail004.hs
+++ b/testsuite/tests/mdo/should_fail/mdofail004.hs
@@ -19,11 +19,10 @@ instance Functor X where
     fmap = liftM
 
 instance Applicative X where
-    pure = return
+    pure = X
     (<*>) = ap
 
 instance Monad X where
-  return      = X
   (X a) >>= f = f a
 
 z :: X [Int]
-- 
cgit v1.2.1