re-instate orphan instances Alternative (Either e) and MonadPlus (Either e) (fixes...
authorRoss Paterson <ross@soi.city.ac.uk>
Thu, 11 Feb 2016 18:20:27 +0000 (18:20 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Thu, 11 Feb 2016 18:20:27 +0000 (18:20 +0000)
Control/Monad/Trans/Error.hs

index 3f36a36..144da45 100644 (file)
@@ -90,6 +90,7 @@ instance Alternative IO where
 catchIOError :: IO a -> (IOError -> IO a) -> IO a
 catchIOError = catch
 # endif
+#endif
 
 instance (Error e) => Alternative (Either e) where
     empty        = Left noMsg
@@ -100,7 +101,6 @@ instance (Error e) => MonadPlus (Either e) where
     mzero            = Left noMsg
     Left _ `mplus` n = n
     m      `mplus` _ = m
-#endif
 
 #if !(MIN_VERSION_base(4,3,0))
 -- These instances are in base-4.3