option -f-binary (for testing ghc7)

1 files changed, 10 insertions, 5 deletions

diff --git a/lib/Data/Packed/Vector.hs b/lib/Data/Packed/Vector.hs
index 8b1e813..f90f8e4 100644
--- a/lib/Data/Packed/Vector.hs
+++ b/lib/Data/Packed/Vector.hs
@@ -1,13 +1,13 @@
 {-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE CPP #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Packed.Vector
--- Copyright   :  (c) Alberto Ruiz 2007
--- License     :  GPL-style
+-- Copyright   :  (c) Alberto Ruiz 2007-10
+-- License     :  GPL
 --
 -- Maintainer  :  Alberto Ruiz <aruiz@um.es>
 -- Stability   :  provisional
--- Portability :  portable
 --
 -- 1D arrays suitable for numeric computations using external libraries.
 --
@@ -26,12 +26,15 @@ module Data.Packed.Vector (
 ) where
 
 import Data.Packed.Internal.Vector
-import Data.Binary
 import Foreign.Storable
-import Control.Monad(replicateM)
 
 -------------------------------------------------------------------
 
+#ifdef BINARY
+
+import Data.Binary
+import Control.Monad(replicateM)
+
 -- a 64K cache, with a Double taking 13 bytes in Bytestring,
 -- implies a chunk size of 5041
 chunk :: Int
@@ -60,6 +63,8 @@ instance (Binary a, Storable a) => Binary (Vector a) where
           vs <- mapM getVector $ chunks d
           return $! join vs
 
+#endif
+
 -------------------------------------------------------------------
 
 {- | creates a Vector of the specified length using the supplied function to