Dyne Gentoo overlay

monad-fix.patch 772B

12345678910111213141516171819202122232425
  1. diff --git a/Control/Monad/Trans/Error.hs b/Control/Monad/Trans/Error.hs
  2. index 4ef66a4..2551f83 100644
  3. --- a/Control/Monad/Trans/Error.hs
  4. +++ b/Control/Monad/Trans/Error.hs
  5. @@ -66,13 +66,13 @@ import Data.Monoid (mempty)
  6. import Data.Traversable (Traversable(traverse))
  7. import System.IO.Error
  8. -instance MonadPlus IO where
  9. - mzero = ioError (userError "mzero")
  10. - m `mplus` n = m `catchIOError` \ _ -> n
  11. +-- instance MonadPlus IO where
  12. +-- mzero = ioError (userError "mzero")
  13. +-- m `mplus` n = m `catchIOError` \ _ -> n
  14. -instance Alternative IO where
  15. - empty = mzero
  16. - (<|>) = mplus
  17. +-- instance Alternative IO where
  18. +-- empty = mzero
  19. +-- (<|>) = mplus
  20. #if !(MIN_VERSION_base(4,4,0))
  21. -- exported by System.IO.Error from base-4.4