[commit: packages/binary] master: Fix AMP and Safe Haskell related warnings in GHC 7.10. (7524d87)
git at git.haskell.org
git at git.haskell.org
Wed Dec 16 09:42:27 UTC 2015
Repository : ssh://git@git.haskell.org/binary
On branch : master
Link : http://git.haskell.org/packages/binary.git/commitdiff/7524d87040395793375c8752ef2ae4314d8d69f5
>---------------------------------------------------------------
commit 7524d87040395793375c8752ef2ae4314d8d69f5
Author: Mathieu Boespflug <m at tweag.io>
Date: Sat Jun 6 23:30:05 2015 +0200
Fix AMP and Safe Haskell related warnings in GHC 7.10.
>---------------------------------------------------------------
7524d87040395793375c8752ef2ae4314d8d69f5
src/Data/Binary/Builder/Base.hs | 1 +
src/Data/Binary/Builder/Internal.hs | 2 +-
src/Data/Binary/Generic.hs | 1 +
src/Data/Binary/Get.hs | 2 --
src/Data/Binary/Put.hs | 1 +
5 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/Data/Binary/Builder/Base.hs b/src/Data/Binary/Builder/Base.hs
index 897aa2b..c4f0790 100644
--- a/src/Data/Binary/Builder/Base.hs
+++ b/src/Data/Binary/Builder/Base.hs
@@ -87,6 +87,7 @@ import GHC.Word (Word32(..),Word16(..),Word64(..))
import GHC.Word (uncheckedShiftRL64#)
# endif
#endif
+import Prelude -- Silence AMP warning.
------------------------------------------------------------------------
diff --git a/src/Data/Binary/Builder/Internal.hs b/src/Data/Binary/Builder/Internal.hs
index c9d2fbf..2a28539 100644
--- a/src/Data/Binary/Builder/Internal.hs
+++ b/src/Data/Binary/Builder/Internal.hs
@@ -1,6 +1,6 @@
{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ >= 701
-{-# LANGUAGE Trustworthy #-}
+{-# LANGUAGE Safe #-}
#endif
-----------------------------------------------------------------------------
-- |
diff --git a/src/Data/Binary/Generic.hs b/src/Data/Binary/Generic.hs
index a2eb6ea..e1a3a1c 100644
--- a/src/Data/Binary/Generic.hs
+++ b/src/Data/Binary/Generic.hs
@@ -26,6 +26,7 @@ import Data.Binary.Put
import Data.Bits
import Data.Word
import GHC.Generics
+import Prelude -- Silence AMP warning.
-- Type without constructors
instance GBinary V1 where
diff --git a/src/Data/Binary/Get.hs b/src/Data/Binary/Get.hs
index afff081..0541efb 100644
--- a/src/Data/Binary/Get.hs
+++ b/src/Data/Binary/Get.hs
@@ -203,8 +203,6 @@ import qualified Data.ByteString.Unsafe as B
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Lazy.Internal as L
-import Control.Applicative
-
import Data.Binary.Get.Internal hiding ( Decoder(..), runGetIncremental )
import qualified Data.Binary.Get.Internal as I
diff --git a/src/Data/Binary/Put.hs b/src/Data/Binary/Put.hs
index 38a1b31..004c15a 100644
--- a/src/Data/Binary/Put.hs
+++ b/src/Data/Binary/Put.hs
@@ -62,6 +62,7 @@ import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
import Control.Applicative
+import Prelude -- Silence AMP warning.
------------------------------------------------------------------------
More information about the ghc-commits
mailing list