X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FException.hs;h=d5d0e4c2ccf35c4492abf5d65c664764b14a5f7d;hb=9699d43eb2988a838c786927c3a874169a17d71e;hp=bbcc490032bea2339cef084211cc47c9024596b1;hpb=4c29f6f110d23b890567b8696a964bb212eba52e;p=ghc-base.git

diff --git a/Control/Exception.hs b/Control/Exception.hs
index bbcc490..d5d0e4c 100644
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -108,11 +108,13 @@ module Control.Exception (
         -- asynchronous exceptions during a critical region.
 
         mask,
+#ifndef __NHC__
         mask_,
         uninterruptibleMask,
         uninterruptibleMask_,
         MaskingState(..),
         getMaskingState,
+#endif
 
         -- ** (deprecated) Asynchronous exception control