Update base for new Safe Haskell design
authorDavid Terei <davidterei@gmail.com>
Tue, 25 Oct 2011 18:13:08 +0000 (11:13 -0700)
committerDavid Terei <davidterei@gmail.com>
Tue, 25 Oct 2011 18:13:17 +0000 (11:13 -0700)
56 files changed:
libraries/base/Control/Monad/ST.hs
libraries/base/Control/Monad/ST/Imp.hs
libraries/base/Control/Monad/ST/Lazy.hs
libraries/base/Control/Monad/ST/Lazy/Imp.hs
libraries/base/Control/Monad/ST/Lazy/Unsafe.hs
libraries/base/Control/Monad/ST/Strict.hs
libraries/base/Control/Monad/ST/Unsafe.hs
libraries/base/Data/Typeable.hs-boot
libraries/base/Data/Typeable/Internal.hs
libraries/base/Data/Typeable/Internal.hs-boot
libraries/base/Debug/Trace.hs
libraries/base/Foreign.hs
libraries/base/Foreign/ForeignPtr.hs
libraries/base/Foreign/ForeignPtr/Imp.hs
libraries/base/Foreign/ForeignPtr/Unsafe.hs
libraries/base/Foreign/Marshal.hs
libraries/base/Foreign/Marshal/Unsafe.hs
libraries/base/GHC/Arr.lhs
libraries/base/GHC/Base.lhs
libraries/base/GHC/Conc.lhs
libraries/base/GHC/Conc/IO.hs
libraries/base/GHC/Conc/Sync.lhs
libraries/base/GHC/Conc/Windows.hs
libraries/base/GHC/Event/Array.hs
libraries/base/GHC/Event/Clock.hsc
libraries/base/GHC/Event/Control.hs
libraries/base/GHC/Event/EPoll.hsc
libraries/base/GHC/Event/IntMap.hs
libraries/base/GHC/Event/Internal.hs
libraries/base/GHC/Event/KQueue.hsc
libraries/base/GHC/Event/Manager.hs
libraries/base/GHC/Event/PSQ.hs
libraries/base/GHC/Event/Poll.hsc
libraries/base/GHC/Event/Thread.hs
libraries/base/GHC/Event/Unique.hs
libraries/base/GHC/Exts.hs
libraries/base/GHC/Fingerprint.hs
libraries/base/GHC/Fingerprint.hs-boot
libraries/base/GHC/Fingerprint/Type.hs
libraries/base/GHC/ForeignPtr.hs
libraries/base/GHC/IO.hs
libraries/base/GHC/IO.hs-boot
libraries/base/GHC/IO/FD.hs
libraries/base/GHC/IOArray.hs
libraries/base/GHC/IOBase.hs
libraries/base/GHC/IORef.hs
libraries/base/GHC/MVar.hs
libraries/base/GHC/Pack.lhs
libraries/base/GHC/Ptr.lhs
libraries/base/GHC/ST.lhs
libraries/base/GHC/STRef.lhs
libraries/base/GHC/Stable.lhs
libraries/base/GHC/Stats.hsc
libraries/base/GHC/Weak.lhs
libraries/base/System/IO/Unsafe.hs
libraries/base/Unsafe/Coerce.hs

index 0508b6e..305e88f 100644 (file)
@@ -1,6 +1,8 @@
-{-# LANGUAGE CPP, SafeImports #-}
+{-# LANGUAGE CPP #-}
 #if sh_SAFE_DEFAULT
 {-# LANGUAGE Safe #-}
+#else
+{-# LANGUAGE Unsafe #-}
 #endif
 
 -----------------------------------------------------------------------------
@@ -29,7 +31,7 @@ module Control.Monad.ST (
 #endif
     ) where
 
-import safe Control.Monad.ST.Safe
+import Control.Monad.ST.Safe
 
 #if !sh_SAFE_DEFAULT
 import qualified Control.Monad.ST.Unsafe as U
index ca768b4..8095ae2 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index d1ec5b9..e976ad5 100644 (file)
@@ -1,6 +1,8 @@
-{-# LANGUAGE CPP, SafeImports #-}
+{-# LANGUAGE CPP #-}
 #if sh_SAFE_DEFAULT
 {-# LANGUAGE Safe #-}
+#else
+{-# LANGUAGE Unsafe #-}
 #endif
 
 -----------------------------------------------------------------------------
@@ -28,7 +30,7 @@ module Control.Monad.ST.Lazy (
 #endif
     ) where
 
-import safe Control.Monad.ST.Lazy.Safe
+import Control.Monad.ST.Lazy.Safe
 #if !sh_SAFE_DEFAULT
 import qualified Control.Monad.ST.Lazy.Unsafe as U
 
index 82c4974..f311eb8 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, MagicHash, UnboxedTuples, Rank2Types #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index 1ccdbbf..d462828 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.ST.Lazy.Unsafe
index 1b63034..df5c121 100644 (file)
@@ -1,6 +1,8 @@
 {-# LANGUAGE CPP #-}
 #if sh_SAFE_DEFAULT
 {-# LANGUAGE Safe #-}
+#else
+{-# LANGUAGE Unsafe #-}
 #endif
 -----------------------------------------------------------------------------
 -- |
index 1a224d0..6d730b0 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.ST.Unsafe
index 3eae5fb..976c707 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
 module Data.Typeable (Typeable, mkTyConApp, cast) where
index 70b468e..16b303d 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Typeable.Internal
index d640e58..f314abe 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude, MagicHash #-}
 module Data.Typeable.Internal (
     Typeable(typeOf),
index ebacb6c..728b938 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, ForeignFunctionInterface #-}
 
 -----------------------------------------------------------------------------
index e6280b6..5896b1e 100644 (file)
@@ -1,5 +1,7 @@
 #if sh_SAFE_DEFAULT
 {-# LANGUAGE Trustworthy #-}
+#else
+{-# LANGUAGE Unsafe #-}
 #endif
 {-# LANGUAGE NoImplicitPrelude #-}
 
index 0199fe7..43d3dbd 100644 (file)
@@ -1,6 +1,8 @@
-{-# LANGUAGE SafeImports, CPP, NoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 #if sh_SAFE_DEFAULT
 {-# LANGUAGE Trustworthy #-}
+#else
+{-# LANGUAGE Unsafe #-}
 #endif
 {-# OPTIONS_HADDOCK hide #-}
 
@@ -28,7 +30,7 @@ module Foreign.ForeignPtr (
 #endif
     ) where
 
-import safe Foreign.ForeignPtr.Safe
+import Foreign.ForeignPtr.Safe
 
 #if !sh_SAFE_DEFAULT
 import Foreign.Ptr ( Ptr )
index 6ce615f..a1a321c 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index 8980ab9..7cc9a25 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Trustworthy #-}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
index 4768f2d..cb0ef41 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
index e7d17bc..ee05fd4 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Trustworthy #-}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
index 9ef2090..0b3d918 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, NoBangPatterns, MagicHash, UnboxedTuples #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
index 48a4d46..e062a36 100644 (file)
@@ -62,6 +62,7 @@ GHC.Float       Classes: Floating, RealFloat
 Other Prelude modules are much easier with fewer complex dependencies.
 
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
index de96b2c..40ea539 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 {-# OPTIONS_HADDOCK not-home #-}
index 83a8a1c..dc205cc 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , MagicHash
index effca6a..521277d 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
index 49a9184..be28bc6 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples, ForeignFunctionInterface,
              DeriveDataTypeable #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
index 011580c..1424144 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, NoImplicitPrelude #-}
 
 module GHC.Event.Array
index 98cda23..f306a67 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, ForeignFunctionInterface #-}
 
 module GHC.Event.Clock (getCurrentTime) where
index b05ac35..b86694e 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , ForeignFunctionInterface
            , NoImplicitPrelude
index 3a7e11b..922ebf6 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
index e324026..e853779 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, MagicHash, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
index 00209fc..e529e83 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE ExistentialQuantification, NoImplicitPrelude #-}
 
 module GHC.Event.Internal
index 5a37248..a10c390 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
index 055d0c7..1714104 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE BangPatterns
            , CPP
            , ExistentialQuantification
index 8c285bf..4e098e4 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE BangPatterns, NoImplicitPrelude #-}
 
 -- Copyright (c) 2008, Ralf Hinze
index ce6a9de..fb90682 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
index 42bf541..7649319 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE BangPatterns, ForeignFunctionInterface, NoImplicitPrelude #-}
 
 module GHC.Event.Thread
index 66b799c..6432519 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE BangPatterns, GeneralizedNewtypeDeriving, NoImplicitPrelude #-}
 module GHC.Event.Unique
     (
index 67b4a97..e40807c 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE MagicHash, UnboxedTuples, DeriveDataTypeable #-}
 
 -----------------------------------------------------------------------------
index 01a4c26..1a05e52 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude
            , BangPatterns
            , ForeignFunctionInterface
index 35fd354..36833b8 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 module GHC.Fingerprint (
         fingerprintString,
index a0ca075..1730317 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 -- ----------------------------------------------------------------------------
 -- 
index dbf6c2c..f55491b 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
index ada5b53..345b68d 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude
            , BangPatterns
            , RankNTypes
index 8bd5265..c797460 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
 module GHC.IO where
index 282c215..070161e 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
index 0b43c8b..e052deb 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
index 5f44ab9..cf05c78 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index 6efb77f..f6b2b66 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, MagicHash #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
index e6d960e..dc9f73d 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
index 14ac670..79708cb 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index e7e0b1f..3a4f3e8 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude, MagicHash #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index 4e27fb2..5983e94 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples, Rank2Types #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
index 4e5952a..bd4a348 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index 10675f7..a07b0aa 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE NoImplicitPrelude
            , MagicHash
            , UnboxedTuples
index 3f12137..9755f2b 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Safe #-}
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 {-# LANGUAGE RecordWildCards #-}
index 3de4655..a3e2115 100644 (file)
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
index 3dd018f..b420662 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
index 421cdd0..5cf004b 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude, MagicHash #-}
 
 -----------------------------------------------------------------------------