2 files changed, 5 insertions, 12 deletions

diff --git a/hmatrix.cabal b/hmatrix.cabal
index b9c0e78..049036c 100644
--- a/hmatrix.cabal
+++ b/hmatrix.cabal
@@ -1,5 +1,5 @@
 Name:               hmatrix
-Version:            0.2.0.0
+Version:            0.2.0.1
 License:            GPL
 License-file:       LICENSE
 Author:             Alberto Ruiz
@@ -16,15 +16,16 @@ Category:           Numerical, Math
 tested-with:        GHC ==6.6.1, GHC ==6.8.1, GHC ==6.8.2
 
 cabal-version:      >=1.2
+build-type:         Simple
 
 flag splitBase
     description:    Choose the new smaller, split-up base package.
 
 library
     if flag(splitBase)
-      build-depends:    base >= 3, array
+      build-depends:    base >= 3, array, storable-complex
     else
-      build-depends:    base < 3
+      build-depends:    base < 3, storable-complex
 
     ghc-options:        -O
 
diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs
index 5ac4f5a..baeb5bc 100644
--- a/lib/Data/Packed/Internal/Common.hs
+++ b/lib/Data/Packed/Internal/Common.hs
@@ -22,16 +22,8 @@ import Control.Monad(when)
 import Debug.Trace
 import Foreign.C.String(peekCString)
 import Foreign.C.Types
+import Foreign.Storable.Complex
 
-----------------------------------------------------------------------
-instance (Storable a, RealFloat a) => Storable (Complex a) where    --
-    alignment x = alignment (realPart x)                            --
-    sizeOf x    = 2 * sizeOf (realPart x)                           --
-    peek p = do                                                     --
-        [re,im] <- peekArray 2 (castPtr p)                          --
-        return (re :+ im)                                           --
-    poke p (a :+ b) = pokeArray (castPtr p) [a,b]                   --
-----------------------------------------------------------------------
 
 -- | @debug x = trace (show x) x@
 debug :: (Show a) => a -> a