Use canonical `Monad` instance

pull/357/head
Taylor Fausak 2021-11-06 17:37:19 +00:00 committed by GitHub
parent bb3a7d0a5b
commit 7ce87381ae
2 changed files with 0 additions and 2 deletions

View File

@ -93,7 +93,6 @@ library {
-Wno-missing-local-signatures -Wno-missing-local-signatures
-Wno-missing-safe-haskell-mode -Wno-missing-safe-haskell-mode
-Wno-monomorphism-restriction -Wno-monomorphism-restriction
-Wno-noncanonical-monad-instances
-Wno-noncanonical-monoid-instances -Wno-noncanonical-monoid-instances
-Wno-prepositive-qualified-module -Wno-prepositive-qualified-module
-Wno-redundant-constraints -Wno-redundant-constraints

View File

@ -23,7 +23,6 @@ instance Applicative Strict.Maybe where
_ <*> _ = Strict.Nothing _ <*> _ = Strict.Nothing
instance Monad Strict.Maybe where instance Monad Strict.Maybe where
return = Strict.Just
Strict.Nothing >>= _ = Strict.Nothing Strict.Nothing >>= _ = Strict.Nothing
Strict.Just x >>= f = f x Strict.Just x >>= f = f x