X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FOldException.hs;h=6442d6789daf23eb7a4c6ac041aee118a3be655f;hb=7dbb606d7b57cdad87a0ffbdb6ea4a274ebca7c0;hp=f0435d6e0f03885477be65006881375e68842840;hpb=4c29f6f110d23b890567b8696a964bb212eba52e;p=ghc-base.git

diff --git a/Control/OldException.hs b/Control/OldException.hs
index f0435d6..6442d67 100644
--- a/Control/OldException.hs
+++ b/Control/OldException.hs
@@ -1,4 +1,11 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP
+           , NoImplicitPrelude
+           , ForeignFunctionInterface
+           , ExistentialQuantification
+  #-}
+#ifdef __GLASGOW_HASKELL__
+{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving #-}
+#endif
 
 #include "Typeable.h"
 
@@ -132,7 +139,6 @@ module Control.OldException {-# DEPRECATED "Future versions of base will not sup
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
-import GHC.Num
 import GHC.Show
 -- import GHC.IO ( IO )
 import GHC.IO.Handle.FD ( stdout )