Add explicit Safe Haskell annotations

Blaze/ByteString/Builder.hs

@@ -1,5 +1,7 @@
 {-# LANGUAGE CPP, BangPatterns          #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Trustworthy #-}
+#endif
 
 ------------------------------------------------------------------------------
 -- |

Blaze/ByteString/Builder/ByteString.hs

@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Trustworthy #-}
+#endif
+
 ------------------------------------------------------------------------------
 -- |
 -- Module:      Blaze.ByteString.Builder.ByteString
@@ -33,24 +38,14 @@ module Blaze.ByteString.Builder.ByteString
 
     ) where
 
+import Blaze.ByteString.Builder.Internal.Write (writeByteString)
 
-import Blaze.ByteString.Builder.Internal.Write ( Write, exactWrite )
-import Foreign
 import qualified Data.ByteString.Builder       as B
 import qualified Data.ByteString.Builder.Extra as B
 import qualified Data.ByteString               as S
-import qualified Data.ByteString.Internal      as S
 import qualified Data.ByteString.Lazy          as L
 
 
--- | Write a strict 'S.ByteString' to a buffer.
-writeByteString :: S.ByteString -> Write
-writeByteString bs = exactWrite l io
-  where
-  (fptr, o, l) = S.toForeignPtr bs
-  io pf = withForeignPtr fptr $ \p -> copyBytes pf (p `plusPtr` o) l
-{-# INLINE writeByteString #-}
-
 -- | Create a 'B.Builder' denoting the same sequence of bytes as a strict
 -- 'S.ByteString'.
 -- The 'B.Builder' inserts large 'S.ByteString's directly, but copies small ones

Blaze/ByteString/Builder/Char/Utf8.hs

@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Safe #-}
+#endif
+
 ------------------------------------------------------------------------------
 -- |
 -- Module:      Blaze.ByteString.Builder.Char.Utf8

Blaze/ByteString/Builder/Char8.hs

@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Safe #-}
+#endif
+
 ------------------------------------------------------------------------------
 -- |
 -- Module:      Blaze.ByteString.Builder.Char8

Blaze/ByteString/Builder/Compat/Write.hs

@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Trustworthy #-}
+#endif
+
 ------------------------------------------------------------------------------
 -- |
 -- Module:      Blaze.ByteString.Builder.Compat.Write

Blaze/ByteString/Builder/HTTP.hs

@@ -1,4 +1,7 @@
 {-# LANGUAGE BangPatterns, CPP, MagicHash, OverloadedStrings #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Trustworthy #-}
+#endif
 ------------------------------------------------------------------------------
 -- |
 -- Module:      Blaze.ByteString.Builder.HTTP

Blaze/ByteString/Builder/Html/Utf8.hs

@@ -2,6 +2,9 @@
 #if __GLASGOW_HASKELL__ >= 704
 {-# OPTIONS_GHC -fsimpl-tick-factor=40000 #-}
 #endif
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Safe #-}
+#endif
 
 ------------------------------------------------------------------------------
 -- |

Blaze/ByteString/Builder/Int.hs

@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Safe #-}
+#endif
+
 ------------------------------------------------------------------------------
 -- |
 -- Module:      Blaze.ByteString.Builder.Int

Blaze/ByteString/Builder/Internal/Write.hs

@@ -1,4 +1,7 @@
 {-# LANGUAGE CPP, BangPatterns #-}
+#if __GLASGOW_HASKELL__ >= 704
+{-# LANGUAGE Unsafe #-}
+#endif
 
 -- |
 -- Module      : Blaze.ByteString.Builder.Internal.Poke
@@ -45,13 +48,15 @@ module Blaze.ByteString.Builder.Internal.Write (
   , fromStorable
   , fromStorables
 
+  , writeByteString
   ) where
 
 import Foreign
 
 import Control.Monad
 
 import Data.ByteString.Builder.Internal
+import Data.ByteString.Internal as S
 
 #if !MIN_VERSION_base(4,8,0)
 import Data.Monoid
@@ -286,3 +291,11 @@ fromStorable = fromWriteSingleton writeStorable
 -- provided externally.
 fromStorables :: Storable a => [a] -> Builder
 fromStorables = fromWriteList writeStorable
+
+-- | Write a strict 'S.ByteString' to a buffer.
+writeByteString :: S.ByteString -> Write
+writeByteString bs = exactWrite l io
+  where
+  (fptr, o, l) = S.toForeignPtr bs
+  io pf = withForeignPtr fptr $ \p -> copyBytes pf (p `plusPtr` o) l
+{-# INLINE writeByteString #-}

Blaze/ByteString/Builder/Word.hs

@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 702
+{-# LANGUAGE Safe #-}
+#endif
+
 ------------------------------------------------------------------------------
 -- |
 -- Module:      Blaze.ByteString.Builder.Word

CHANGES

@@ -1,3 +1,6 @@
+* 0.4.1.0
+  - Add Safe Haskell pragmas
+
 * 0.4.0.2
   - Fixed warnings on GHC 7.10,  courtesy of Mikhail Glushenkov.
 

blaze-builder.cabal

@@ -1,5 +1,5 @@
 Name:                blaze-builder
-Version:             0.4.0.2
+Version:             0.4.1.0
 Synopsis:            Efficient buffered output.
 
 Description: