Fix more warnings

[ghc-base.git] / Control / Monad / Fix.hs

diff --git a/Control/Monad/Fix.hs b/Control/Monad/Fix.hs
index d058220..c1b4fe1 100644 (file)
--- a/Control/Monad/Fix.hs
+++ b/Control/Monad/Fix.hs
@@ -63,6 +63,7 @@ class (Monad m) => MonadFix m where
 instance MonadFix Maybe where
     mfix f = let a = f (unJust a) in a
              where unJust (Just x) = x
+                   unJust Nothing  = error "mfix Maybe: Nothing"
 
 -- List:
 instance MonadFix [] where