option -f-binary (for testing ghc7)

1 files changed, 8 insertions, 8 deletions

diff --git a/lib/Data/Packed/Matrix.hs b/lib/Data/Packed/Matrix.hs
index de2300a..2922cbe 100644
--- a/lib/Data/Packed/Matrix.hs
+++ b/lib/Data/Packed/Matrix.hs
@@ -2,16 +2,16 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE CPP #-}
 
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Packed.Matrix
 -- Copyright   :  (c) Alberto Ruiz 2007-10
--- License     :  GPL-style
+-- License     :  GPL
 --
 -- Maintainer  :  Alberto Ruiz <aruiz@um.es>
 -- Stability   :  provisional
--- Portability :  portable
 --
 -- A Matrix representation suitable for numerical computations using LAPACK and GSL.
 --
@@ -43,16 +43,14 @@ import Data.Packed.Internal
 import qualified Data.Packed.ST as ST
 import Data.List(transpose,intersperse)
 import Data.Array
+import Foreign.Storable
+
+-------------------------------------------------------------------
 
+#ifdef BINARY
 
 import Data.Binary
-import Foreign.Storable
 import Control.Monad(replicateM)
---import Control.Arrow((***))
---import GHC.Float(double2Float,float2Double)
-
-
--------------------------------------------------------------------
 
 instance (Binary a, Element a, Storable a) => Binary (Matrix a) where
     put m = do
@@ -67,6 +65,8 @@ instance (Binary a, Element a, Storable a) => Binary (Matrix a) where
           xs <- replicateM r $ replicateM c get
           return $ fromLists xs
 
+#endif
+
 -------------------------------------------------------------------
 
 instance (Show a, Element a) => (Show (Matrix a)) where