summaryrefslogtreecommitdiff
path: root/compiler/specialise
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2017-09-09 16:29:23 +0200
committerHerbert Valerio Riedel <hvr@gnu.org>2017-09-09 16:43:36 +0200
commit346e562adffd44edd8c31328c0280543d7dd75c1 (patch)
treee10042e1640a8ad944c86d8590c45bb02254d2f6 /compiler/specialise
parentdab0e515eadecaee3e9e9f5f8eee3159fa39bb27 (diff)
downloadhaskell-346e562adffd44edd8c31328c0280543d7dd75c1.tar.gz
Canonicalise MonoidFail instances in GHC
IOW, code compiles -Wnoncanonical-monoidfail-instances clean now This is easy now since we require GHC 8.0/base-4.9 or later for bootstrapping. Note that we can easily enable `MonadFail` via default-extensions: MonadFailDesugaring in compiler/ghc.cabal.in which currently would point out that NatM doesn't have a proper `fail` method, even though failable patterns are made use of: compiler/nativeGen/SPARC/CodeGen.hs:425:25: error: * No instance for (Control.Monad.Fail.MonadFail NatM) arising from a do statement with the failable pattern ‘(dyn_c, [dyn_r])’
Diffstat (limited to 'compiler/specialise')
-rw-r--r--compiler/specialise/Specialise.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/specialise/Specialise.hs b/compiler/specialise/Specialise.hs
index a0844b7dfa..dfbb16a9cb 100644
--- a/compiler/specialise/Specialise.hs
+++ b/compiler/specialise/Specialise.hs
@@ -2285,7 +2285,7 @@ instance Monad SpecM where
case f y of
SpecM z ->
z
- fail str = SpecM $ fail str
+ fail = MonadFail.fail
instance MonadFail.MonadFail SpecM where
fail str = SpecM $ fail str