Update base for latest Safe Haskell.
authorDavid Terei <davidterei@gmail.com>
Wed, 26 Oct 2011 03:43:23 +0000 (20:43 -0700)
committerDavid Terei <davidterei@gmail.com>
Wed, 26 Oct 2011 04:40:50 +0000 (21:40 -0700)
130 files changed:
Control/Monad/Group.hs
Control/Monad/Instances.hs
Control/Monad/ST.hs
Control/Monad/ST/Lazy.hs
Control/Monad/ST/Lazy/Imp.hs
Control/Monad/ST/Lazy/Unsafe.hs
Control/Monad/ST/Strict.hs
Control/Monad/ST/Unsafe.hs
Control/Monad/Zip.hs
Data/Bits.hs
Data/Bool.hs
Data/Char.hs
Data/Complex.hs
Data/Data.hs
Data/Dynamic.hs
Data/Eq.hs
Data/Fixed.hs
Data/Foldable.hs
Data/Function.hs
Data/Functor.hs
Data/HashTable.hs
Data/IORef.hs
Data/Int.hs
Data/Ix.hs
Data/List.hs
Data/Maybe.hs
Data/Monoid.hs
Data/Ord.hs
Data/Ratio.hs
Data/STRef.hs
Data/STRef/Lazy.hs
Data/STRef/Strict.hs
Data/String.hs
Data/Traversable.hs
Data/Tuple.hs
Data/Typeable/Internal.hs
Data/Typeable/Internal.hs-boot
Data/Word.hs
Debug/Trace.hs
Foreign.hs
Foreign/C.hs
Foreign/C/Error.hs
Foreign/C/String.hs
Foreign/C/Types.hs
Foreign/ForeignPtr.hs
Foreign/ForeignPtr/Imp.hs
Foreign/Marshal/Alloc.hs
Foreign/Marshal/Array.hs
Foreign/Marshal/Error.hs
Foreign/Marshal/Pool.hs
Foreign/Marshal/Utils.hs
Foreign/Ptr.hs
Foreign/StablePtr.hs
Foreign/Storable.hs
GHC/Conc/IO.hs
GHC/Conc/Windows.hs
GHC/Constants.hs
GHC/Desugar.hs
GHC/Enum.lhs
GHC/Event.hs
GHC/Event/Array.hs
GHC/Event/Clock.hsc
GHC/Event/Control.hs
GHC/Event/EPoll.hsc
GHC/Event/IntMap.hs
GHC/Event/KQueue.hsc
GHC/Event/Manager.hs
GHC/Event/PSQ.hs
GHC/Event/Poll.hsc
GHC/Event/Thread.hs
GHC/Event/Unique.hs
GHC/Exception.lhs
GHC/Fingerprint.hs
GHC/Fingerprint/Type.hs
GHC/Float/ConversionUtils.hs
GHC/Float/RealFracMethods.hs
GHC/Foreign.hs
GHC/Handle.hs
GHC/IO.hs
GHC/IO.hs-boot
GHC/IO/Buffer.hs
GHC/IO/BufferedIO.hs
GHC/IO/Device.hs
GHC/IO/Encoding.hs
GHC/IO/Encoding.hs-boot
GHC/IO/Encoding/CodePage.hs
GHC/IO/Encoding/Failure.hs
GHC/IO/Encoding/Iconv.hs
GHC/IO/Encoding/Latin1.hs
GHC/IO/Encoding/Types.hs
GHC/IO/Encoding/UTF16.hs
GHC/IO/Encoding/UTF32.hs
GHC/IO/Encoding/UTF8.hs
GHC/IO/Exception.hs
GHC/IO/Exception.hs-boot
GHC/IO/FD.hs
GHC/IO/Handle.hs
GHC/IO/Handle.hs-boot
GHC/IO/Handle/FD.hs-boot
GHC/IO/Handle/Internals.hs
GHC/IO/Handle/Text.hs
GHC/IO/Handle/Types.hs
GHC/IO/IOMode.hs
GHC/IOArray.hs
GHC/IOBase.hs
GHC/IORef.hs
GHC/Int.hs
GHC/PArr.hs
GHC/Unicode.hs-boot
GHC/Word.hs
System/CPUTime.hsc
System/Console/GetOpt.hs
System/Environment.hs
System/Exit.hs
System/IO.hs
System/IO/Error.hs
System/Info.hs
System/Mem.hs
System/Mem/StableName.hs
System/Mem/Weak.hs
System/Posix/Internals.hs
System/Posix/Internals.hs-boot
System/Timeout.hs
Text/ParserCombinators/ReadP.hs
Text/ParserCombinators/ReadPrec.hs
Text/Printf.hs
Text/Read/Lex.hs
Text/Show.hs
Text/Show/Functions.hs
Unsafe/Coerce.hs

index 3516562..a3c36a2 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.Group
@@ -32,3 +33,4 @@ class Monad m => MonadGroup m t where
 instance Ord t => MonadGroup [] t where
     mgroupWith = groupWith
 #endif
+
index 0cc1c53..3849e3b 100644 (file)
@@ -2,6 +2,7 @@
 {-# OPTIONS_NHC98 --prelude #-}
 -- This module deliberately declares orphan instances:
 {-# OPTIONS_GHC -fno-warn-orphans #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.Instances
@@ -37,3 +38,4 @@ instance Monad (Either e) where
         return = Right
         Left  l >>= _ = Left l
         Right r >>= k = k r
+
index 305e88f..ca0ceb2 100644 (file)
@@ -1,9 +1,4 @@
-{-# LANGUAGE CPP #-}
-#if sh_SAFE_DEFAULT
-{-# LANGUAGE Safe #-}
-#else
 {-# LANGUAGE Unsafe #-}
-#endif
 
 -----------------------------------------------------------------------------
 -- |
 -----------------------------------------------------------------------------
 
 module Control.Monad.ST (
-          module Control.Monad.ST.Safe
-#if !sh_SAFE_DEFAULT
+        -- * The 'ST' Monad
+        ST,             -- abstract, instance of Functor, Monad, Typeable.
+        runST,          -- :: (forall s. ST s a) -> a
+        fixST,          -- :: (a -> ST s a) -> ST s a
+
+        -- * Converting 'ST' to 'IO'
+        RealWorld,              -- abstract
+        stToIO,                 -- :: ST RealWorld a -> IO a
+
         -- * Unsafe Functions
-        , unsafeInterleaveST
-        , unsafeIOToST
-        , unsafeSTToIO
-#endif
+        unsafeInterleaveST,
+        unsafeIOToST,
+        unsafeSTToIO
     ) where
 
 import Control.Monad.ST.Safe
-
-#if !sh_SAFE_DEFAULT
 import qualified Control.Monad.ST.Unsafe as U
 
 {-# DEPRECATED unsafeInterleaveST, unsafeIOToST, unsafeSTToIO
@@ -51,5 +50,4 @@ unsafeIOToST = U.unsafeIOToST
 {-# INLINE unsafeSTToIO #-}
 unsafeSTToIO :: ST s a -> IO a
 unsafeSTToIO = U.unsafeSTToIO
-#endif
 
index e976ad5..400addd 100644 (file)
@@ -1,9 +1,4 @@
-{-# LANGUAGE CPP #-}
-#if sh_SAFE_DEFAULT
-{-# LANGUAGE Safe #-}
-#else
 {-# LANGUAGE Unsafe #-}
-#endif
 
 -----------------------------------------------------------------------------
 -- |
 -----------------------------------------------------------------------------
 
 module Control.Monad.ST.Lazy (
-          module Control.Monad.ST.Lazy.Safe
-#if !sh_SAFE_DEFAULT
+        -- * The 'ST' monad
+        ST,
+        runST,
+        fixST,
+
+        -- * Converting between strict and lazy 'ST'
+        strictToLazyST, lazyToStrictST,
+
+        -- * Converting 'ST' To 'IO'
+        RealWorld,
+        stToIO,
+
         -- * Unsafe Functions
-        , unsafeInterleaveST
-        , unsafeIOToST
-#endif
+        unsafeInterleaveST,
+        unsafeIOToST
     ) where
 
 import Control.Monad.ST.Lazy.Safe
-#if !sh_SAFE_DEFAULT
 import qualified Control.Monad.ST.Lazy.Unsafe as U
 
 {-# DEPRECATED unsafeInterleaveST, unsafeIOToST
@@ -45,5 +48,4 @@ unsafeInterleaveST = U.unsafeInterleaveST
 {-# INLINE unsafeIOToST #-}
 unsafeIOToST :: IO a -> ST s a
 unsafeIOToST = U.unsafeIOToST
-#endif
 
index f311eb8..280723c 100644 (file)
@@ -160,4 +160,3 @@ unsafeInterleaveST = strictToLazyST . ST.unsafeInterleaveST . lazyToStrictST
 unsafeIOToST :: IO a -> ST s a
 unsafeIOToST = strictToLazyST . ST.unsafeIOToST
 
-
index d462828..4a1b8c7 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Unsafe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.ST.Lazy.Unsafe
index df5c121..4e474d9 100644 (file)
@@ -1,9 +1,3 @@
-{-# LANGUAGE CPP #-}
-#if sh_SAFE_DEFAULT
-{-# LANGUAGE Safe #-}
-#else
-{-# LANGUAGE Unsafe #-}
-#endif
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.ST.Strict
@@ -22,9 +16,5 @@ module Control.Monad.ST.Strict (
         module Control.Monad.ST
   ) where
 
-#if sh_SAFE_DEFAULT
-import safe Control.Monad.ST
-#else
 import Control.Monad.ST
-#endif
 
index 6d730b0..9fa4b73 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Unsafe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.ST.Unsafe
index bbc04ec..824e373 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Safe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Monad.Zip
@@ -51,3 +52,4 @@ instance MonadZip [] where
     mzip     = zip
     mzipWith = zipWith
     munzip   = unzip
+
index 22a6e41..b145854 100644 (file)
@@ -380,5 +380,4 @@ own to enable constant folding; for example 'shift':
            10000000 -> ww_sOb
          }
 -} 
-     
 
index 8d80ec8..1f53177 100644 (file)
@@ -39,3 +39,4 @@ import Prelude
   , otherwise
   )
 #endif
+
index f45f369..e1afc44 100644 (file)
@@ -209,3 +209,4 @@ isSeparator c = case generalCategory c of
 toTitle :: Char -> Char
 toTitle = toUpper
 #endif
+
index b456055..d78a6c9 100644 (file)
@@ -205,3 +205,4 @@ instance  (RealFloat a) => Floating (Complex a) where
     asinh z        =  log (z + sqrt (1+z*z))
     acosh z        =  log (z + (z+1) * sqrt ((z-1)/(z+1)))
     atanh z        =  0.5 * log ((1.0+z) / (1.0-z))
+
index 5de1eaf..cd40167 100644 (file)
@@ -23,7 +23,6 @@
 -- For more information, please visit the new
 -- SYB wiki: <http://www.cs.uu.nl/wiki/bin/view/GenericProgramming/SYB>.
 --
---
 -----------------------------------------------------------------------------
 
 module Data.Data (
index b3f9350..11501b8 100644 (file)
@@ -168,3 +168,4 @@ dynApp f x = case dynApply f x of
 
 dynTypeRep :: Dynamic -> TypeRep
 dynTypeRep (Dynamic tr _) = tr 
+
index 9386d60..0c45c78 100644 (file)
@@ -22,3 +22,4 @@ module Data.Eq (
 #if __GLASGOW_HASKELL__
 import GHC.Base
 #endif
+
index b1d7113..81e7c03 100644 (file)
@@ -1,10 +1,10 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP #-}
 {-# OPTIONS -Wall -fno-warn-unused-binds #-}
-
 #ifndef __NHC__
 {-# LANGUAGE DeriveDataTypeable #-}
 #endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Fixed
@@ -246,3 +246,4 @@ instance HasResolution E12 where
     resolution _ = 1000000000000
 -- | resolution of 10^-12 = .000000000001
 type Pico = Fixed E12
+
index a925fca..01ef297 100644 (file)
@@ -18,6 +18,8 @@
 -- functor.  To avoid ambiguity, either import those modules hiding
 -- these names or qualify uses of these function names with an alias
 -- for this module.
+--
+-----------------------------------------------------------------------------
 
 module Data.Foldable (
     -- * Folds
@@ -320,3 +322,4 @@ notElem x = not . elem x
 -- 'Nothing' if there is no such element.
 find :: Foldable t => (a -> Bool) -> t a -> Maybe a
 find p = listToMaybe . concatMap (\ x -> if p x then [x] else [])
+
index ef6d9cf..54eabbb 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Safe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Function
@@ -10,6 +11,8 @@
 -- Portability :  portable
 --
 -- Simple combinators working solely on and with functions.
+--
+-----------------------------------------------------------------------------
 
 module Data.Function
   ( -- * "Prelude" re-exports
@@ -82,3 +85,4 @@ fix f = let x = f x in x
 
 on :: (b -> b -> c) -> (a -> b) -> a -> a -> c
 (.*.) `on` f = \x y -> f x .*. f y
+
index 2369cdb..416768e 100644 (file)
@@ -33,3 +33,4 @@ infixl 4 <$>
 -- | An infix synonym for 'fmap'.
 (<$>) :: Functor f => (a -> b) -> f a -> f b
 (<$>) = fmap
+
index 9fe7899..b594863 100644 (file)
@@ -531,3 +531,4 @@ longestChain = mapReduce id (maximumBy lengthCmp)
         lengthCmp []   []    = EQ
         lengthCmp []   _     = LT
         lengthCmp _    []    = GT
+
index 13eb9c9..1a3ddfd 100644 (file)
@@ -138,3 +138,4 @@ atomicModifyIORef r f =
   'IORef' operations.
 
 -}
+
index 1ff37bd..084bb0e 100644 (file)
@@ -65,3 +65,4 @@ import NHC.SizedTypes (Int8, Int16, Int32, Int64)       -- instances of Bits
   count to the width of the type, for example @1 \<\< 32
   == 1@ in some C implementations.
 -}
+
index f1edf00..fdfc33a 100644 (file)
@@ -16,6 +16,7 @@
 -- (see the array package).
 -- 
 -----------------------------------------------------------------------------
+
 module Data.Ix
     (
     -- * The 'Ix' class
index 4f76c83..4edd9eb 100644 (file)
@@ -1105,3 +1105,4 @@ errorEmptyList fun =
   error ("Prelude." ++ fun ++ ": empty list")
 
 #endif /* !__GLASGOW_HASKELL__ */
+
index a405bb4..1350402 100644 (file)
@@ -149,3 +149,4 @@ mapMaybe f (x:xs) =
   Just r  -> r:rs
 
 #endif /* else not __NHC__ */
+
index beac4f7..228e254 100644 (file)
@@ -14,6 +14,7 @@
 --
 -- A class for monoids (types with an associative binary operation that
 -- has an identity) with various general-purpose instances.
+--
 -----------------------------------------------------------------------------
 
 module Data.Monoid (
@@ -276,3 +277,4 @@ prop_mconcatLast x =
         where listLastToMaybe [] = Nothing
               listLastToMaybe lst = Just (last lst)
 -- -}
+
index 250e797..8180df2 100644 (file)
@@ -34,3 +34,4 @@ import GHC.Base
 -- >   ... sortBy (comparing fst) ...
 comparing :: (Ord a) => (b -> a) -> b -> b -> Ordering
 comparing p x y = compare (p x) (p y)
+
index 766fe41..d3d29c8 100644 (file)
@@ -95,3 +95,4 @@ approxRational rat eps  =  simplest (rat-eps) (rat+eps)
                                            n''        =  numerator nd''
                                            d''        =  denominator nd''
 #endif
+
index 851a20f..c628bb6 100644 (file)
@@ -42,3 +42,4 @@ INSTANCE_TYPEABLE2(STRef,stRefTc,"STRef")
 -- |Mutate the contents of an 'STRef'
 modifySTRef :: STRef s a -> (a -> a) -> ST s ()
 modifySTRef ref f = writeSTRef ref . f =<< readSTRef ref
+
index ccc1905..7c9a74e 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Safe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.STRef.Lazy
@@ -12,6 +13,7 @@
 -- Mutable references in the lazy ST monad.
 --
 -----------------------------------------------------------------------------
+
 module Data.STRef.Lazy (
         -- * STRefs
         ST.STRef,       -- abstract, instance Eq
@@ -30,7 +32,8 @@ readSTRef   :: ST.STRef s a -> ST s a
 writeSTRef  :: ST.STRef s a -> a -> ST s ()
 modifySTRef :: ST.STRef s a -> (a -> a) -> ST s ()
 
-newSTRef   = strictToLazyST . ST.newSTRef
-readSTRef  = strictToLazyST . ST.readSTRef
-writeSTRef r a = strictToLazyST (ST.writeSTRef r a)
+newSTRef        = strictToLazyST . ST.newSTRef
+readSTRef       = strictToLazyST . ST.readSTRef
+writeSTRef  r a = strictToLazyST (ST.writeSTRef r a)
 modifySTRef r f = strictToLazyST (ST.modifySTRef r f)
+
index 202df73..ead6683 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Safe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.STRef.Strict
@@ -18,3 +19,4 @@ module Data.STRef.Strict (
   ) where
 
 import Data.STRef
+
index 27d61d5..0124f13 100644 (file)
@@ -41,3 +41,4 @@ class IsString a where
 instance IsString [Char] where
     fromString xs = xs
 #endif
+
index 96ea010..75356ec 100644 (file)
@@ -29,6 +29,8 @@
 -- functions of the same names from lists to any 'Traversable' functor.
 -- To avoid ambiguity, either import the "Prelude" hiding these names
 -- or qualify uses of these function names with an alias for this module.
+--
+-----------------------------------------------------------------------------
 
 module Data.Traversable (
     Traversable(..),
@@ -194,3 +196,4 @@ instance Functor Id where
 instance Applicative Id where
     pure = Id
     Id f <*> Id x = Id (f x)
+
index 0029fb9..30f93c5 100644 (file)
@@ -2,6 +2,7 @@
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 -- XXX -fno-warn-unused-imports needed for the GHC.Tuple import below. Sigh.
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Tuple
index 16b303d..93218a8 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Unsafe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Typeable.Internal
index f314abe..c83c77e 100644 (file)
@@ -1,5 +1,6 @@
 {-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP, NoImplicitPrelude, MagicHash #-}
+
 module Data.Typeable.Internal (
     Typeable(typeOf),
     TypeRep,
index 1540999..84a4d07 100644 (file)
@@ -68,3 +68,4 @@ type Word = Word32
   truncate the shift count to the width of the type, for example @1 \<\<
   32 == 1@ in some C implementations. 
 -}
+
index 728b938..8242b15 100644 (file)
@@ -71,3 +71,4 @@ Like 'trace', but uses 'show' on the argument to convert it to a 'String'.
 -}
 traceShow :: (Show a) => a -> b -> b
 traceShow = trace . show
+
index 5896b1e..fc32835 100644 (file)
@@ -1,8 +1,4 @@
-#if sh_SAFE_DEFAULT
-{-# LANGUAGE Trustworthy #-}
-#else
 {-# LANGUAGE Unsafe #-}
-#endif
 {-# LANGUAGE NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
@@ -30,7 +26,6 @@ module Foreign
         , module Foreign.Storable
         , module Foreign.Marshal
 
-#if !sh_SAFE_DEFAULT
         -- * Unsafe Functions
 
         -- | 'unsafePerformIO' is exported here for backwards
@@ -38,7 +33,6 @@ module Foreign
         -- the FFI, use 'unsafeLocalState'.  For other uses, see
         -- 'System.IO.Unsafe.unsafePerformIO'.
         , unsafePerformIO
-#endif
         ) where
 
 import Data.Bits
@@ -50,7 +44,6 @@ import Foreign.StablePtr
 import Foreign.Storable
 import Foreign.Marshal
 
-#if !sh_SAFE_DEFAULT
 import GHC.IO (IO)
 import qualified System.IO.Unsafe (unsafePerformIO)
 
@@ -59,5 +52,4 @@ import qualified System.IO.Unsafe (unsafePerformIO)
 {-# INLINE unsafePerformIO #-}
 unsafePerformIO :: IO a -> a
 unsafePerformIO = System.IO.Unsafe.unsafePerformIO
-#endif
 
index 2e925cc..83ab6b8 100644 (file)
@@ -24,3 +24,4 @@ module Foreign.C
 import Foreign.C.Types
 import Foreign.C.String
 import Foreign.C.Error
+
index 76ebe27..020f08e 100644 (file)
@@ -616,3 +616,4 @@ errnoToIOError loc errno maybeHdl maybeName = unsafePerformIO $ do
 #endif
 
 foreign import ccall unsafe "string.h" strerror :: Errno -> IO (Ptr CChar)
+
index 09dd27a..7582752 100644 (file)
@@ -541,3 +541,4 @@ castCharToCWchar :: Char -> CWchar
 castCharToCWchar ch = fromIntegral (ord ch)
 
 #endif /* !mingw32_HOST_OS */
+
index fb53b52..9da95a9 100644 (file)
@@ -331,3 +331,4 @@ INSTANCE_BITS(CIntMax)
 INSTANCE_BITS(CUIntMax)
 
 #endif
+
index 43d3dbd..5288ce7 100644 (file)
@@ -1,9 +1,5 @@
-{-# LANGUAGE CPP, NoImplicitPrelude #-}
-#if sh_SAFE_DEFAULT
-{-# LANGUAGE Trustworthy #-}
-#else
 {-# LANGUAGE Unsafe #-}
-#endif
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 -----------------------------------------------------------------------------
 -----------------------------------------------------------------------------
 
 module Foreign.ForeignPtr ( 
-          module Foreign.ForeignPtr.Safe
-#if !sh_SAFE_DEFAULT
+        -- * Finalised data pointers
+          ForeignPtr
+        , FinalizerPtr
+#if defined(__HUGS__) || defined(__GLASGOW_HASKELL__)
+        , FinalizerEnvPtr
+#endif
+        -- ** Basic operations
+        , newForeignPtr
+        , newForeignPtr_
+        , addForeignPtrFinalizer
+#if defined(__HUGS__) || defined(__GLASGOW_HASKELL__)
+        , newForeignPtrEnv
+        , addForeignPtrFinalizerEnv
+#endif
+        , withForeignPtr
+
+#ifdef __GLASGOW_HASKELL__
+        , finalizeForeignPtr
+#endif
+
+        -- ** Low-level operations
+        , touchForeignPtr
+        , castForeignPtr
+
+        -- ** Allocating managed memory
+        , mallocForeignPtr
+        , mallocForeignPtrBytes
+        , mallocForeignPtrArray
+        , mallocForeignPtrArray0
         -- ** Unsafe low-level operations
         , unsafeForeignPtrToPtr
-#endif
     ) where
 
 import Foreign.ForeignPtr.Safe
 
-#if !sh_SAFE_DEFAULT
 import Foreign.Ptr ( Ptr )
 import qualified Foreign.ForeignPtr.Unsafe as U
 
@@ -40,5 +61,4 @@ import qualified Foreign.ForeignPtr.Unsafe as U
 {-# INLINE unsafeForeignPtrToPtr #-}
 unsafeForeignPtrToPtr :: ForeignPtr a -> Ptr a
 unsafeForeignPtrToPtr = U.unsafeForeignPtrToPtr
-#endif
 
index a1a321c..336f032 100644 (file)
@@ -179,3 +179,4 @@ mallocForeignPtrArray  = doMalloc undefined
 -- the block of memory was allocated by 'Foreign.Marshal.Alloc.malloc'.
 mallocForeignPtrArray0      :: Storable a => Int -> IO (ForeignPtr a)
 mallocForeignPtrArray0 size  = mallocForeignPtrArray (size + 1)
+
index e404580..515af4a 100644 (file)
@@ -245,3 +245,4 @@ foreign import ccall unsafe "stdlib.h free"    _free    :: Ptr a -> IO ()
 -- used as a finalizer (cf 'Foreign.ForeignPtr.ForeignPtr') for storage
 -- allocated with 'malloc', 'mallocBytes', 'realloc' or 'reallocBytes'.
 foreign import ccall unsafe "stdlib.h &free" finalizerFree :: FinalizerPtr a
+
index e284ec4..04825aa 100644 (file)
@@ -277,3 +277,4 @@ advancePtr  = doAdvance undefined
   where
     doAdvance             :: Storable a' => a' -> Ptr a' -> Int -> Ptr a'
     doAdvance dummy ptr i  = ptr `plusPtr` (i * sizeOf dummy)
+
index 9e3ad3b..5fe9a7e 100644 (file)
@@ -83,3 +83,4 @@ throwIfNull  = throwIf (== nullPtr) . const
 --
 void     :: IO a -> IO ()
 void act  = act >> return ()
+
index 8ca160d..6953c0b 100644 (file)
@@ -209,3 +209,4 @@ pooledNewArray0 pool marker vals = do
    ptr <- pooledMallocArray0 pool (length vals)
    pokeArray0 marker ptr vals
    return ptr
+
index 7fec1bf..c9e1fd6 100644 (file)
@@ -178,3 +178,4 @@ moveBytes dest src size  = do _ <- memmove dest src (fromIntegral size)
 --
 foreign import ccall unsafe "string.h" memcpy  :: Ptr a -> Ptr a -> CSize -> IO (Ptr a)
 foreign import ccall unsafe "string.h" memmove :: Ptr a -> Ptr a -> CSize -> IO (Ptr a)
+
index d6588f5..56a3692 100644 (file)
@@ -162,3 +162,4 @@ foreign import ccall unsafe "__hscore_from_intptr"
 
 # endif /* !__GLASGOW_HASKELL__ */
 #endif /* !__NHC_ */
+
index 68b2056..d0b6625 100644 (file)
@@ -61,3 +61,4 @@ import NHC.FFI
 -- guarantee provided is that if they are passed back to Haskell land, the
 -- function 'deRefStablePtr' will be able to reconstruct the
 -- Haskell value referred to by the stable pointer.
+
index 62c1151..9ba6bb9 100644 (file)
@@ -284,3 +284,4 @@ pokeFingerprint p0 (Fingerprint high low) = do
       pokeW64 (castPtr p0) 8 high
       pokeW64 (castPtr p0 `plusPtr` 8) 8 low
 #endif
+
index dc205cc..64a479e 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , MagicHash
index be28bc6..6ea147c 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples, ForeignFunctionInterface,
              DeriveDataTypeable #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
@@ -324,3 +324,4 @@ foreign import ccall unsafe "sendIOManagerEvent" -- in the RTS (ThrIOManager.c)
 
 foreign import stdcall "WaitForSingleObject"
    c_WaitForSingleObject :: HANDLE -> DWORD -> IO DWORD
+
index 99abba5..ca63184 100644 (file)
@@ -9,3 +9,4 @@ import Prelude
 #include "../../../compiler/stage1/ghc_boot_platform.h"
 
 #include "../../../includes/HaskellConstants.hs"
+
index 3d1d740..6a5562f 100644 (file)
@@ -41,3 +41,4 @@ data AnnotationWrapper = forall a. (Data a) => AnnotationWrapper a
 
 toAnnotationWrapper :: (Data a) => a -> AnnotationWrapper
 toAnnotationWrapper what = AnnotationWrapper what
+
index f99e208..b3491f2 100644 (file)
@@ -2,6 +2,7 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Enum
index 850e036..fd421dd 100644 (file)
@@ -1,8 +1,13 @@
 {-# LANGUAGE Trustworthy #-}
+
+-- ----------------------------------------------------------------------------
 -- | This module provides scalable event notification for file
 -- descriptors and timeouts.
 --
 -- This module should be considered GHC internal.
+--
+-- ----------------------------------------------------------------------------
+
 module GHC.Event
     ( -- * Types
       EventManager
@@ -40,3 +45,4 @@ module GHC.Event
 
 import GHC.Event.Manager
 import GHC.Event.Thread (getSystemEventManager)
+
index 1424144..5b811ef 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, NoImplicitPrelude #-}
 
 module GHC.Event.Array
@@ -312,3 +312,4 @@ foreign import ccall unsafe "string.h memcpy"
 
 foreign import ccall unsafe "string.h memmove"
     memmove :: Ptr a -> Ptr a -> CSize -> IO (Ptr a)
+
index f306a67..ac44805 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, ForeignFunctionInterface #-}
 
 module GHC.Event.Clock (getCurrentTime) where
@@ -47,3 +47,4 @@ instance Storable CTimeval where
 
 foreign import ccall unsafe "sys/time.h gettimeofday" gettimeofday
     :: Ptr CTimeval -> Ptr () -> IO CInt
+
index b86694e..ab0636b 100644 (file)
@@ -213,3 +213,4 @@ foreign import ccall "setIOManagerControlFd"
 
 foreign import ccall "setIOManagerWakeupFd"
    c_setIOManagerWakeupFd :: CInt -> IO ()
+
index 922ebf6..dafb68f 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
@@ -6,8 +6,9 @@
            , BangPatterns
   #-}
 
---
--- | A binding to the epoll I/O event notification facility
+-----------------------------------------------------------------------------
+-- |
+-- A binding to the epoll I/O event notification facility
 --
 -- epoll is a variant of poll that can be used either as an edge-triggered or
 -- a level-triggered interface and scales well to large numbers of watched file
@@ -15,6 +16,8 @@
 --
 -- epoll decouples monitor an fd from the process of registering it.
 --
+-----------------------------------------------------------------------------
+
 module GHC.Event.EPoll
     (
       new
@@ -205,3 +208,4 @@ foreign import ccall safe "sys/epoll.h epoll_wait"
     c_epoll_wait :: CInt -> Ptr Event -> CInt -> CInt -> IO CInt
 
 #endif /* defined(HAVE_EPOLL) */
+
index e853779..eee0cc5 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP, MagicHash, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
@@ -39,6 +39,7 @@
 -- This means that the operation can become linear in the number of
 -- elements with a maximum of /W/ -- the number of bits in an 'Int'
 -- (32 or 64).
+--
 -----------------------------------------------------------------------------
 
 module GHC.Event.IntMap
@@ -374,3 +375,4 @@ highestBitMask x0
         x4 -> case (x4 .|. shiftRL x4 16) of
          x5 -> case (x5 .|. shiftRL x5 32) of   -- for 64 bit platforms
           x6 -> (x6 `xor` (shiftRL x6 1))
+
index a10c390..68aade3 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
@@ -299,3 +299,4 @@ foreign import ccall safe "kevent"
 #endif
 
 #endif /* defined(HAVE_KQUEUE) */
+
index 1714104..089532c 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE BangPatterns
            , CPP
            , ExistentialQuantification
index 4e098e4..853958b 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE BangPatterns, NoImplicitPrelude #-}
 
 -- Copyright (c) 2008, Ralf Hinze
@@ -482,3 +482,4 @@ seqToList (Sequ x) = x []
 
 instance Show a => Show (Sequ a) where
     showsPrec d a = showsPrec d (seqToList a)
+
index fb90682..e62296b 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
index 7649319..2643950 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE BangPatterns, ForeignFunctionInterface, NoImplicitPrelude #-}
 
 module GHC.Event.Thread
index 6432519..9137450 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE BangPatterns, GeneralizedNewtypeDeriving, NoImplicitPrelude #-}
 module GHC.Event.Unique
     (
@@ -39,3 +39,4 @@ newUnique (US ref) = atomically $ do
   writeTVar ref u'
   return $ Unique u'
 {-# INLINE newUnique #-}
+
index bffc35c..74f8fea 100644 (file)
@@ -6,6 +6,7 @@
            , DeriveDataTypeable
   #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Exception
index 1a05e52..d1b3831 100644 (file)
@@ -1,9 +1,10 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude
            , BangPatterns
            , ForeignFunctionInterface
            , EmptyDataDecls
   #-}
+
 -- ----------------------------------------------------------------------------
 -- 
 --  (c) The University of Glasgow 2006
@@ -74,3 +75,4 @@ foreign import ccall unsafe "MD5Update"
    c_MD5Update :: Ptr MD5Context -> Ptr Word8 -> CInt -> IO ()
 foreign import ccall unsafe "MD5Final"
    c_MD5Final  :: Ptr Word8 -> Ptr MD5Context -> IO ()
+
index 1730317..91d7250 100644 (file)
@@ -18,3 +18,4 @@ import GHC.Word
 
 data Fingerprint = Fingerprint {-# UNPACK #-} !Word64 {-# UNPACK #-} !Word64
   deriving (Eq, Ord)
+
index ddfc4e5..ec2233c 100644 (file)
@@ -2,6 +2,7 @@
 {-# LANGUAGE CPP, MagicHash, UnboxedTuples, NoImplicitPrelude #-}
 {-# OPTIONS_GHC -O2 #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Float.ConversionUtils
@@ -95,3 +96,4 @@ zeroCountArr =
                                 (# _, ba #) -> ba
     in case mkArr realWorld# of
         b -> BA b
+
index 765b0ca..57ec1e8 100644 (file)
@@ -2,6 +2,7 @@
 {-# LANGUAGE CPP, MagicHash, UnboxedTuples, ForeignFunctionInterface,
     NoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Float.RealFracMethods
@@ -340,3 +341,4 @@ foreign import ccall unsafe "rintDouble"
 
 foreign import ccall unsafe "rintFloat"
     c_rintFloat :: Float -> Float
+
index 904a819..f6f0272 100644 (file)
@@ -255,3 +255,4 @@ tryFillBufferAndCall encoder null_terminate from0 to_p to_sz_bytes act = do
               InputUnderflow  -> recover encoder from' to' >>= go (iteration + 1) -- These conditions are equally bad
               InvalidSequence -> recover encoder from' to' >>= go (iteration + 1) -- since the input was truncated/invalid
               OutputUnderflow -> return Nothing -- Oops, out of buffer during decoding: ask the caller for more
+
index 8cc81f8..bb744a0 100644 (file)
@@ -1,5 +1,6 @@
 {-# LANGUAGE Trustworthy #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Handle
@@ -15,7 +16,6 @@
 -----------------------------------------------------------------------------
 
 -- #hide
-
 module GHC.Handle {-# DEPRECATED "use GHC.IO.Handle instead" #-} (
   withHandle, withHandle', withHandle_,
   wantWritableHandle, wantReadableHandle, wantSeekableHandle,
index 345b68d..f30f768 100644 (file)
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -7,6 +7,7 @@
   #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.IO
@@ -471,3 +472,4 @@ a `finally` sequel =
 --
 evaluate :: a -> IO a
 evaluate a = IO $ \s -> seq# a s -- NB. see #2273, #5129
+
index c797460..fb0dd96 100644 (file)
@@ -6,3 +6,4 @@ module GHC.IO where
 import GHC.Types
 
 failIO :: [Char] -> IO a
+
index 456b1e1..8f677f0 100644 (file)
@@ -288,3 +288,4 @@ checkBuffer buf@Buffer{ bufState = state, bufL=r, bufR=w, bufSize=size } = do
 check :: Buffer a -> Bool -> IO ()
 check _   True  = return ()
 check buf False = error ("buffer invariant violation: " ++ summaryBuffer buf)
+
index 7690fc7..ef78d90 100644 (file)
@@ -124,3 +124,4 @@ writeBufNonBlocking dev bbuf = do
   res <- withBuffer bbuf $ \ptr ->
             IODevice.writeNonBlocking dev (ptr `plusPtr` bufL bbuf) bytes
   return (res, bufferAdjustL res bbuf)
+
index 903c041..f3f330b 100644 (file)
@@ -176,3 +176,4 @@ data SeekMode
   | SeekFromEnd         -- ^ the position of @hdl@ is set to offset @i@
                         -- from the end of the file.
     deriving (Eq, Ord, Ix, Enum, Read, Show)
+
index 4f8d6b1..8d98d94 100644 (file)
@@ -200,3 +200,4 @@ latin1_encode input output = fmap (\(_why,input',output') -> (input',output')) $
 latin1_decode :: Buffer Word8 -> CharBuffer -> IO (Buffer Word8, CharBuffer)
 latin1_decode input output = fmap (\(_why,input',output') -> (input',output')) $ Latin1.latin1_decode input output
 --latin1_decode = unsafePerformIO $ do mkTextDecoder Iconv.latin1 >>= return.encode
+
index 48c7825..7dae9c1 100644 (file)
@@ -1,7 +1,9 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude #-}
+
 module GHC.IO.Encoding where
 
 import GHC.IO.Encoding.Types
 
 localeEncoding, fileSystemEncoding, foreignEncoding :: TextEncoding
+
index 724b8ae..0af89d7 100644 (file)
@@ -1,6 +1,7 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP, BangPatterns, ForeignFunctionInterface, NoImplicitPrelude,
              NondecreasingIndentation, MagicHash #-}
+
 module GHC.IO.Encoding.CodePage(
 #if !defined(mingw32_HOST_OS)
  ) where
@@ -168,3 +169,4 @@ indexChar :: ConvArray Char -> Int -> Char
 indexChar (ConvArray p) (I# i) = C# (chr# (indexInt16OffAddr# p i))
 
 #endif
+
index 8cee4b3..6cd475a 100644 (file)
@@ -1,5 +1,6 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude, PatternGuards #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.IO.Encoding.Failure
@@ -212,3 +213,4 @@ ioe_encodingError :: IO a
 ioe_encodingError = ioException
     (IOError Nothing InvalidArgument "recoverEncode"
         "invalid character" Nothing Nothing)
+
index f8dfb88..2c3ad14 100644 (file)
@@ -190,3 +190,4 @@ iconvRecode iconv_t
               throwErrno "iconvRecoder"
 
 #endif /* !mingw32_HOST_OS */
+
index 0e3de39..aba66ad 100644 (file)
@@ -150,3 +150,4 @@ latin1_checked_encode
            invalid = done InvalidSequence ir ow
     in
     loop ir0 ow0
+
index d0ff353..6147d01 100644 (file)
@@ -131,3 +131,4 @@ data CodingProgress = InputUnderflow  -- ^ Stopped because the input contains in
                                       -- to output at least one encoded ASCII character, but the input contains
                                       -- an invalid or unrepresentable sequence
                     deriving (Eq, Show)
+
index af3cae0..ca231ca 100644 (file)
@@ -355,3 +355,4 @@ validate2       ::  Word16 -> Word16 -> Bool
 validate2 x1 x2 = x1 >= 0xD800 && x1 <= 0xDBFF &&
                   x2 >= 0xDC00 && x2 <= 0xDFFF
 {-# INLINE validate2 #-}
+
index 815f36c..ce3aa52 100644 (file)
@@ -331,3 +331,4 @@ validate    :: Char -> Bool
 validate c = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF)
    where x1 = ord c
 {-# INLINE validate #-}
+
index df3e67b..0d82113 100644 (file)
@@ -357,3 +357,4 @@ validate4 x1 x2 x3 x4 = validate4_1 ||
                   between x2 0x80 0x8F &&
                   between x3 0x80 0xBF &&
                   between x4 0x80 0xBF
+
index 1c78e11..3f386ce 100644 (file)
@@ -2,6 +2,7 @@
 {-# LANGUAGE NoImplicitPrelude, DeriveDataTypeable, MagicHash #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.IO.Exception
@@ -339,3 +340,4 @@ untangle coded message
           _         -> (loc, "")
         }
     not_bar c = c /= '|'
+
index fa3abe7..3506c1e 100644 (file)
@@ -1,5 +1,6 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude #-}
+
 module GHC.IO.Exception where
 
 import GHC.Base
@@ -11,3 +12,4 @@ instance Exception IOException
 type IOError = IOException
 userError :: String  -> IOError
 unsupportedOperation :: IOError
+
index 070161e..9422ddf 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE Unsafe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
@@ -664,3 +664,4 @@ foreign import ccall unsafe "lockFile"
 foreign import ccall unsafe "unlockFile"
   unlockFile :: CInt -> IO CInt
 #endif
+
index cb6f650..74bf4b6 100644 (file)
@@ -741,3 +741,4 @@ showHandle' filepath is_duplex h =
       where
        def :: Int 
        def = bufSize buf
+
index 935bf5e..02cd1bf 100644 (file)
@@ -7,3 +7,4 @@ import GHC.IO
 import GHC.IO.Handle.Types
 
 hFlush :: Handle -> IO ()
+
index fb8ee97..b592a05 100644 (file)
@@ -1,8 +1,10 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude #-}
+
 module GHC.IO.Handle.FD where
 
 import GHC.IO.Handle.Types
 
 -- used in GHC.Conc, which is below GHC.IO.Handle.FD
 stdout :: Handle
+
index ce59e97..b77de47 100644 (file)
@@ -912,3 +912,4 @@ decodeByteBuf h_@Handle__{..} cbuf = do
 
   writeIORef haByteBuffer bbuf2
   return cbuf'
+
index 86689d7..7162dc2 100644 (file)
@@ -1010,3 +1010,4 @@ illegalBufferSize handle fn sz =
                             InvalidArgument  fn
                             ("illegal buffer size " ++ showsPrec 9 sz [])
                             Nothing Nothing)
+
index 40c557a..ec8f453 100644 (file)
@@ -428,3 +428,4 @@ instance Show Handle where
 
 showHandle :: FilePath -> String -> String
 showHandle file = showString "{handle: " . showString file . showString "}"
+
index b649ac1..42cc9f3 100644 (file)
@@ -1,6 +1,7 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.IO.IOMode
@@ -26,3 +27,4 @@ import GHC.Enum
 -- | See 'System.IO.openFile'
 data IOMode      =  ReadMode | WriteMode | AppendMode | ReadWriteMode
                     deriving (Eq, Ord, Ix, Enum, Read, Show)
+
index e052deb..800b596 100644 (file)
@@ -2,6 +2,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.IOArray
index cf05c78..60fb943 100644 (file)
@@ -16,7 +16,6 @@
 --
 -----------------------------------------------------------------------------
 
-
 module GHC.IOBase {-# DEPRECATED "use GHC.IO instead" #-} (
     IO(..), unIO, failIO, liftIO, bindIO, thenIO, returnIO,
     unsafePerformIO, unsafeInterleaveIO,
@@ -91,3 +90,4 @@ instance Show BlockedIndefinitely where
 
 blockedIndefinitely :: SomeException -- for the RTS
 blockedIndefinitely = toException BlockedIndefinitely
+
index f6b2b66..a0ed082 100644 (file)
@@ -16,6 +16,7 @@
 -- The IORef type
 --
 -----------------------------------------------------------------------------
+
 module GHC.IORef (
         IORef(..),
         newIORef, readIORef, writeIORef, atomicModifyIORef
index d29c10b..f1fa304 100644 (file)
@@ -2,6 +2,7 @@
 {-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, MagicHash,
              StandaloneDeriving #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Int
index ee7eea8..5852625 100644 (file)
@@ -27,3 +27,4 @@ import GHC.Base
 -- NB: This definition *must* be kept in sync with `TysWiredIn.parrTyCon'!
 --
 data [::] e = PArr !Int (Array# e)
+
index 1e01a1c..51bf87d 100644 (file)
@@ -17,3 +17,4 @@ isDigit         :: Char -> Bool
 isOctDigit      :: Char -> Bool
 isHexDigit      :: Char -> Bool
 isAlphaNum      :: Char -> Bool
+
index 6dd308a..42daf07 100644 (file)
@@ -838,3 +838,4 @@ instance Ix Word64 where
 
 instance Read Word64 where
     readsPrec p s = [(fromInteger x, r) | (x, r) <- readsPrec p s]
+
index 61ce09f..0b56329 100644 (file)
@@ -185,3 +185,4 @@ clockTicks =
 foreign import ccall unsafe sysconf :: CInt -> IO CLong
 #endif
 #endif /* __GLASGOW_HASKELL__ */
+
index d5a32f3..1ea0829 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE Safe #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Console.GetOpt
@@ -392,3 +393,4 @@ processing to perform actions of the chosen monad, e.g. printing help or
 version messages, checking that file arguments exist, etc.
 
 -}
+
index e185575..a9413d1 100644 (file)
@@ -336,3 +336,4 @@ divvy str =
     (xs,[])        -> (xs,[]) -- don't barf (like Posix.getEnvironment)
     (name,_:value) -> (name,value)
 #endif  /* __GLASGOW_HASKELL__ */
+
index 9a9ed00..2f63024 100644 (file)
@@ -92,3 +92,4 @@ exitFailure = exitWith (ExitFailure 1)
 -- successfully.
 exitSuccess :: IO a
 exitSuccess = exitWith ExitSuccess
+
index 768d557..9cd96eb 100644 (file)
@@ -634,3 +634,4 @@ foreign import ccall "getpid" c_getpid :: IO Int
 -- It follows that an attempt to write to a file (using 'writeFile', for
 -- example) that was earlier opened by 'readFile' will usually result in
 -- failure with 'System.IO.Error.isAlreadyInUseError'.
+
index 1458d60..b1fb5ff 100644 (file)
@@ -475,3 +475,4 @@ catchIOError = New.catch
 catch :: IO a -> (IOError -> IO a) -> IO a
 catch = New.catch
 #endif /* !__HUGS__ */
+
index 5fc816c..c9f623d 100644 (file)
@@ -67,3 +67,4 @@ compilerVersionRaw = 0  -- ToDo
 #else
 #error Unknown compiler name
 #endif
+
index 67b80cc..8e8a1bc 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Safe #-}
 {-# LANGUAGE CPP #-}
-
 #ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE ForeignFunctionInterface #-}
 #endif
@@ -37,3 +36,4 @@ foreign import ccall {-safe-} "performMajorGC" performGC :: IO ()
 #ifdef __NHC__
 import NHC.IOExtras (performGC)
 #endif
+
index 7d688e9..8b8d690 100644 (file)
@@ -124,3 +124,4 @@ instance Eq (StableName a) where
 
 #include "Typeable.h"
 INSTANCE_TYPEABLE1(StableName,stableNameTc,"StableName")
+
index 8980a51..a2e6f72 100644 (file)
@@ -151,3 +151,4 @@ reachable if:
 
  * It is the value or finalizer of an object whose key is reachable.
 -}
+
index 632e69e..0f94c38 100644 (file)
@@ -578,3 +578,4 @@ foreign import ccall unsafe "__hscore_bufsiz"   dEFAULT_BUFFER_SIZE :: Int
 foreign import ccall unsafe "__hscore_seek_cur" sEEK_CUR :: CInt
 foreign import ccall unsafe "__hscore_seek_set" sEEK_SET :: CInt
 foreign import ccall unsafe "__hscore_seek_end" sEEK_END :: CInt
+
index ff4c4e8..612269b 100644 (file)
@@ -6,3 +6,4 @@ import GHC.IO
 import GHC.Base
 
 puts :: String -> IO ()
+
index d1cbbff..4114852 100644 (file)
@@ -92,3 +92,4 @@ timeout n f
 #else
 timeout n f = fmap Just f
 #endif /* !__GLASGOW_HASKELL__ */
+
index 2bb9363..3424712 100644 (file)
@@ -543,3 +543,4 @@ Here follow the properties:
 >  prop_ReadS r s =
 >    readP_to_S (readS_to_P r) s =~. r s
 -}
+
index 8a200b9..faf53a9 100644 (file)
@@ -162,3 +162,4 @@ readPrec_to_S (P f) n = readP_to_S (f n)
 
 readS_to_Prec :: (Int -> ReadS a) -> ReadPrec a
 readS_to_Prec f = P (\n -> readS_to_P (f n))
+
index 0ef9364..1369cfe 100644 (file)
@@ -328,3 +328,4 @@ fmterr, argerr, baderr :: a
 fmterr = perror "formatting string ended prematurely"
 argerr = perror "argument list ended prematurely"
 baderr = perror "bad argument"
+
index 199aa9b..e4563b6 100644 (file)
@@ -451,3 +451,4 @@ readOctP, readDecP, readHexP :: (Eq a, Num a) => ReadP a
 readOctP = readIntP' 8
 readDecP = readIntP' 10
 readHexP = readIntP' 16
+
index 3662d12..0ee9e50 100644 (file)
@@ -47,3 +47,4 @@ showList__ showx (x:xs) s = '[' : showx x (showl xs)
     showl []     = ']' : s
     showl (y:ys) = ',' : showx y (showl ys)
 #endif
+
index fa202f7..104f953 100644 (file)
@@ -36,3 +36,4 @@ instance (Show a,Show b) => Show (a->b) where
                 where (value,result) = getTypes undefined
                       getTypes x = (x,a x)
 #endif
+
index 5cf004b..72f35b2 100644 (file)
@@ -26,6 +26,8 @@
 --   * In nhc98, the only representation-safe coercions are between Enum
 --     types with the same range (e.g. Int, Int32, Char, Word32),
 --     or between a newtype and the type that it wraps.
+--
+-----------------------------------------------------------------------------
 
 module Unsafe.Coerce (unsafeCoerce) where
 
@@ -42,3 +44,4 @@ import NonStdUnsafeCoerce (unsafeCoerce)
 #if defined(__HUGS__)
 import Hugs.IOExts (unsafeCoerce)
 #endif
+