Fix typo (reqwests -> requests); trac #2908, spotted by bancroft

[ghc-base.git] / Control / Exception.hs

diff --git a/Control/Exception.hs b/Control/Exception.hs
index 4401976..1b29913 100644 (file)
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -35,17 +35,20 @@ module Control.Exception (
 #else
         SomeException(..),
 #endif
-        Exception(..),          -- instance Eq, Ord, Show, Typeable
-        IOException,            -- instance Eq, Ord, Show, Typeable
-        ArithException(..),     -- instance Eq, Ord, Show, Typeable
-        ArrayException(..),     -- instance Eq, Ord, Show, Typeable
+        Exception(..),          -- class
+        IOException,            -- instance Eq, Ord, Show, Typeable, Exception
+        ArithException(..),     -- instance Eq, Ord, Show, Typeable, Exception
+        ArrayException(..),     -- instance Eq, Ord, Show, Typeable, Exception
         AssertionFailed(..),
-        AsyncException(..),     -- instance Eq, Ord, Show, Typeable
+        AsyncException(..),     -- instance Eq, Ord, Show, Typeable, Exception
 
 #if __GLASGOW_HASKELL__ || __HUGS__
         NonTermination(..),
         NestedAtomically(..),
 #endif
+#ifdef __NHC__
+        System.ExitCode(),     -- instance Exception
+#endif
 
         BlockedOnDeadMVar(..),
         BlockedIndefinitely(..),
@@ -73,9 +76,7 @@ module Control.Exception (
 
         -- ** The @catch@ functions
         catch,     -- :: IO a -> (Exception -> IO a) -> IO a
-#if __GLASGOW_HASKELL__ || __HUGS__
         catches, Handler(..),
-#endif
         catchJust, -- :: (Exception -> Maybe b) -> IO a -> (b -> IO a) -> IO a
 
         -- ** The @handle@ functions
@@ -137,7 +138,10 @@ import Data.Maybe
 import Prelude hiding (catch)
 #endif
 
-#if __GLASGOW_HASKELL__ || __HUGS__
+#ifdef __NHC__
+import System (ExitCode())
+#endif
+
 data Handler a = forall e . Exception e => Handler (e -> IO a)
 
 catches :: IO a -> [Handler a] -> IO a
@@ -149,7 +153,6 @@ catchesHandler handlers e = foldr tryHandler (throw e) handlers
               = case fromException e of
                 Just e' -> handler e'
                 Nothing -> res
-#endif
 
 -- -----------------------------------------------------------------------------
 -- Asynchronous exceptions