Use Safe Haskell for GHC >= 7.2
authorDavid Terei <davidterei@gmail.com>
Fri, 5 Aug 2011 21:14:36 +0000 (14:14 -0700)
committerDavid Terei <davidterei@gmail.com>
Mon, 8 Aug 2011 20:39:55 +0000 (13:39 -0700)
33 files changed:
Array.hs
Bits.hs
CError.hs
CForeign.hs
CPUTime.hs
CString.hs
CTypes.hs
Char.hs
Complex.hs
Directory.hs
ForeignPtr.hs
IO.hs
Int.hs
Ix.hs
List.hs
Locale.hs
MarshalAlloc.hs
MarshalArray.hs
MarshalError.hs
MarshalUtils.hs
Maybe.hs
Monad.hs
Numeric.hs
Prelude.hs
Ptr.hs
Random.hs
Ratio.hs
StablePtr.hs
Storable.hs
System.hs
Time.hs
Word.hs
haskell98.cabal

index 53cfc1b..71291c5 100644 (file)
--- a/Array.hs
+++ b/Array.hs
@@ -1,3 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
 module Array (
     module Ix,  -- export all of Ix for convenience
     Array, array, listArray, (!), bounds, indices, elems, assocs, 
diff --git a/Bits.hs b/Bits.hs
index c7525ff..7dd5ece 100644 (file)
--- a/Bits.hs
+++ b/Bits.hs
@@ -1,3 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
 module Bits (module Data.Bits) where
 import Data.Bits
 
index 635e3f4..823d4a2 100644 (file)
--- a/CError.hs
+++ b/CError.hs
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
 module CError (module Foreign.C.Error) where
 import Foreign.C.Error
+
index 90e08d9..b1d161f 100644 (file)
@@ -1,2 +1,5 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
 module CForeign ( module Foreign.C ) where
 import Foreign.C
index 9b5ab6f..9d1b580 100644 (file)
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module CPUTime (
     getCPUTime, cpuTimePrecision 
   ) where
index 433dabc..abc8ca8 100644 (file)
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module CString (module Foreign.C.String) where
 import Foreign.C.String
index b7e3f55..d092316 100644 (file)
--- a/CTypes.hs
+++ b/CTypes.hs
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module CTypes (module Foreign.C.Types) where
 import Foreign.C.Types
diff --git a/Char.hs b/Char.hs
index b82c7f0..f322266 100644 (file)
--- a/Char.hs
+++ b/Char.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Char (
     isAscii, isLatin1, isControl, isPrint, isSpace, isUpper, isLower, 
     isAlpha, isDigit, isOctDigit, isHexDigit, isAlphaNum, 
index a4ba08b..87957fd 100644 (file)
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Complex (
     Complex((:+)), realPart, imagPart, conjugate, 
     mkPolar, cis, polar, magnitude, phase 
index 4d1c5f3..aace67a 100644 (file)
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
+
 module Directory (
     Permissions( Permissions, readable, writable, executable, searchable ), 
     createDirectory, removeDirectory, removeFile, 
index d0e70d9..045954b 100644 (file)
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
+
 module ForeignPtr (module Foreign.ForeignPtr) where
 import Foreign.ForeignPtr
diff --git a/IO.hs b/IO.hs
index 4839e51..fe6ff3d 100644 (file)
--- a/IO.hs
+++ b/IO.hs
@@ -1,3 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
 
 {-# OPTIONS_GHC -fno-warn-deprecations #-}
 
diff --git a/Int.hs b/Int.hs
index c27580a..63dd10f 100644 (file)
--- a/Int.hs
+++ b/Int.hs
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Int ( module Data.Int ) where
 import Data.Int
diff --git a/Ix.hs b/Ix.hs
index a83a8db..a172576 100644 (file)
--- a/Ix.hs
+++ b/Ix.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Ix (
     Ix(range, index, inRange), rangeSize
   ) where
diff --git a/List.hs b/List.hs
index 147e283..74285af 100644 (file)
--- a/List.hs
+++ b/List.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module List (
     elemIndex, elemIndices,
     find, findIndex, findIndices,
index d71c355..93fa728 100644 (file)
--- a/Locale.hs
+++ b/Locale.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
+
 module Locale (
     TimeLocale(..), defaultTimeLocale
   ) where
index 7e3873b..2a175df 100644 (file)
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module MarshalAlloc (module Foreign.Marshal.Alloc) where
 import Foreign.Marshal.Alloc
index e5043c1..04d2496 100644 (file)
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module MarshalArray (module Foreign.Marshal.Array) where
 import Foreign.Marshal.Array
index c690fe2..e047125 100644 (file)
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module MarshalError (
        module Foreign.Marshal.Error,
        IOErrorType,
index eb93bff..2a3b9a7 100644 (file)
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module MarshalUtils (module Foreign.Marshal.Utils) where
 import Foreign.Marshal.Utils
index be150fe..0b99a59 100644 (file)
--- a/Maybe.hs
+++ b/Maybe.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Maybe (
     isJust, isNothing,
     fromJust, fromMaybe, listToMaybe, maybeToList,
index 9115f7b..38a2d7d 100644 (file)
--- a/Monad.hs
+++ b/Monad.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Monad (
     MonadPlus(mzero, mplus),
     join, guard, when, unless, ap,
index d25be15..dbc9e26 100644 (file)
@@ -1,3 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
 {-# LANGUAGE PackageImports #-}
 
 module Numeric (
index 75a35b4..4113cc1 100644 (file)
@@ -1,4 +1,7 @@
-{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, PackageImports #-}
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
+{-# LANGUAGE NoImplicitPrelude, BangPatterns, PackageImports #-}
 
 -- |
 -- The Haskell 98 Prelude: a standard module imported by default
diff --git a/Ptr.hs b/Ptr.hs
index 88eff0e..615b26d 100644 (file)
--- a/Ptr.hs
+++ b/Ptr.hs
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Ptr (module Foreign.Ptr) where
 import Foreign.Ptr
index e256a1e..bf9dc07 100644 (file)
--- a/Random.hs
+++ b/Random.hs
@@ -1,4 +1,6 @@
-{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
 
 module Random
         (
index f843d6d..1940b12 100644 (file)
--- a/Ratio.hs
+++ b/Ratio.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Ratio (
     Ratio, Rational, (%), numerator, denominator, approxRational
   ) where
index 64cf49a..f48165d 100644 (file)
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module StablePtr (module Foreign.StablePtr) where
 import Foreign.StablePtr
index 86fdc88..85562f2 100644 (file)
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Storable (module Foreign.Storable) where
 import Foreign.Storable
index 6b1db12..1d5981c 100644 (file)
--- a/System.hs
+++ b/System.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
+
 module System (
     ExitCode(ExitSuccess,ExitFailure),
     getArgs, getProgName, getEnv, system, exitWith, exitFailure
diff --git a/Time.hs b/Time.hs
index 569626d..84738ec 100644 (file)
--- a/Time.hs
+++ b/Time.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Trustworthy #-}
+#endif
+
 module Time (
     ClockTime, 
     Month(January,February,March,April,May,June,
diff --git a/Word.hs b/Word.hs
index e823f88..b036ee2 100644 (file)
--- a/Word.hs
+++ b/Word.hs
@@ -1,2 +1,6 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 module Word ( module Data.Word ) where
 import Data.Word
index 2d4bede..c1e5ac8 100644 (file)
@@ -34,6 +34,7 @@ Library
         MarshalAlloc, MarshalArray, MarshalError, MarshalUtils, Ptr,
         StablePtr, Storable, Word
     exposed: False
+    extensions: CPP
 
 source-repository head
     type:     git