From 7ce87381ae5a5a2e92bd7637f2daf69d422c57b9 Mon Sep 17 00:00:00 2001
From: Taylor Fausak <taylor@fausak.me>
Date: Sat, 6 Nov 2021 17:37:19 +0000
Subject: [PATCH] Use canonical `Monad` instance

---
 brittany.cabal                                         | 1 -
 src/Language/Haskell/Brittany/Internal/PreludeUtils.hs | 1 -
 2 files changed, 2 deletions(-)

diff --git a/brittany.cabal b/brittany.cabal
index fda241c..6b48791 100644
--- a/brittany.cabal
+++ b/brittany.cabal
@@ -93,7 +93,6 @@ library {
     -Wno-missing-local-signatures
     -Wno-missing-safe-haskell-mode
     -Wno-monomorphism-restriction
-    -Wno-noncanonical-monad-instances
     -Wno-noncanonical-monoid-instances
     -Wno-prepositive-qualified-module
     -Wno-redundant-constraints
diff --git a/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs b/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs
index df80168..445a0ab 100644
--- a/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs
+++ b/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs
@@ -23,7 +23,6 @@ instance Applicative Strict.Maybe where
   _ <*> _ = Strict.Nothing
 
 instance Monad Strict.Maybe where
-  return = Strict.Just
   Strict.Nothing >>= _ = Strict.Nothing
   Strict.Just x >>= f = f x