Don't reexport Data.Word (#225)

Author: konsumlamm

benchmarks/Benchmark.hs

@@ -5,6 +5,7 @@ import qualified Data.ByteString.Lazy as L
 import Data.Binary
 import Data.Binary.Put
 import Data.Binary.Get
+import Data.Word
 
 import Control.Exception
 import System.CPUTime

benchmarks/Get.hs

@@ -7,6 +7,7 @@ import qualified Data.ByteString.Lazy as L
 import Data.Bits
 import Data.Char (ord)
 import Data.List (foldl')
+import Data.Word
 import Test.Tasty.Bench
 
 import Control.Applicative

benchmarks/Put.hs

@@ -5,15 +5,14 @@ import Control.Exception (evaluate)
 import qualified Data.ByteString as S
 import qualified Data.ByteString.Char8 as C
 import qualified Data.ByteString.Lazy as L
-import Data.Monoid
+import Data.Word
 import Test.Tasty.Bench
 
 import GHC.Generics
 
 import Data.Binary
 import Data.Binary.Put
 import Data.ByteString.Builder as BB
-import Prelude -- Silence Monoid import warning.
 
 main :: IO ()
 main = do

changelog.md

@@ -1,6 +1,11 @@
 binary
 ======
 
+binary-0.9.0.0
+--------------
+
+- Don't reexport `Data.Word` from `Data.Binary`
+
 binary-0.8.9.2
 --------------
 
@@ -170,7 +175,7 @@ binary-0.7.1.0
 --------------
 
 - Add `lookAheadE :: Get (Either a b) -> Get (Either a b)`.
-- Add MonadPlus instance for Get. 
+- Add MonadPlus instance for Get.
 
 
 binary-0.7.0.1

src/Data/Binary.hs

@@ -67,12 +67,8 @@ module Data.Binary (
     , decodeFile                -- :: Binary a => FilePath -> IO a
     , decodeFileOrFail
 
-    , module Data.Word -- useful
-
     ) where
 
-import Data.Word
-
 import Data.Binary.Class
 import Data.Binary.Put
 import Data.Binary.Get

tests/File.hs

@@ -13,6 +13,7 @@ import           Distribution.Simple.Utils (withTempDirectory)
 import           Distribution.Verbosity    (silent)
 
 import           Data.Binary
+import           Data.Word
 
 data Foo = Bar !Word32 !Word32 !Word32 deriving (Eq, Show)
 
@@ -38,6 +39,6 @@ readWriteTest = TestCase $ do
     exampleData @=? content
 
 main :: IO ()
-main = do 
+main = do
   _ <- runTestTT readWriteTest
-  return ()
+  return ()

tests/QC.hs

@@ -22,6 +22,7 @@ import           Data.ByteString.Short                (ShortByteString)
 import           Data.Int
 import           Data.Ratio
 import           Data.Typeable
+import           Data.Word
 import           System.IO.Unsafe
 
 import           Data.Orphans ()