diff --git a/hblas.cabal b/hblas.cabal
--- a/hblas.cabal
+++ b/hblas.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.3.1.1
+version:             0.3.2.1
 
 -- A short (one-line) description of the package.
 synopsis:            Human friendly BLAS and Lapack bindings for Haskell.
@@ -63,7 +63,7 @@
 cabal-version:       >=1.10
 category:            Math
 
-build-type:          Custom
+build-type:          Simple
 
 
 extra-source-files:
@@ -117,7 +117,7 @@
    --    -Wall  no wall for now
   -- Other library packages from which modules are imported.
   build-depends:
-        base             >= 4.6    &&  < 4.8,
+        base             >= 4.6    &&  < 4.9,
         storable-complex >= 0.2.0  &&  < 0.3.0,
         primitive        >= 0.5    &&  < 0.6,
         vector
diff --git a/src/Numerical/HBLAS/BLAS.hs b/src/Numerical/HBLAS/BLAS.hs
--- a/src/Numerical/HBLAS/BLAS.hs
+++ b/src/Numerical/HBLAS/BLAS.hs
@@ -78,22 +78,8 @@
 import Numerical.HBLAS.UtilsFFI
 import Numerical.HBLAS.BLAS.FFI
 import Numerical.HBLAS.BLAS.Internal
-import Numerical.HBLAS.MatrixTypes
 import Control.Monad.Primitive
 import Data.Complex
-
-
-
-type GemmFun el orient s m = Transpose ->Transpose ->  el -> el  -> MDenseMatrix s orient el
-  ->   MDenseMatrix s orient el  ->  MDenseMatrix s orient el -> m ()
-
-type GemvFun el orient s m = Transpose -> el -> el
-  -> MDenseMatrix s orient el -> MDenseVector s Direct el -> MDenseVector s Direct el -> m ()
-
-
-type TrsvFun el orient s m =
-      MatUpLo -> Transpose -> MatDiag
-   -> MDenseMatrix s orient el -> MDenseVector s Direct el -> m ()
 
 
 
diff --git a/src/Numerical/HBLAS/BLAS/Internal.hs b/src/Numerical/HBLAS/BLAS/Internal.hs
--- a/src/Numerical/HBLAS/BLAS/Internal.hs
+++ b/src/Numerical/HBLAS/BLAS/Internal.hs
@@ -1,7 +1,11 @@
 {-# LANGUAGE BangPatterns , RankNTypes, GADTs, DataKinds #-}
 
 module Numerical.HBLAS.BLAS.Internal(
-    gemmAbstraction
+    GemmFun
+    ,GemvFun
+    ,TrsvFun 
+
+    ,gemmAbstraction
     ,gemvAbstraction
     ,trsvAbstraction
     ) where
diff --git a/src/Numerical/HBLAS/Lapack.lhs b/src/Numerical/HBLAS/Lapack.lhs
--- a/src/Numerical/HBLAS/Lapack.lhs
+++ b/src/Numerical/HBLAS/Lapack.lhs
@@ -2,12 +2,12 @@
 module  Numerical.HBLAS.Lapack where
 
 
-import Numerical.HBLAS.UtilsFFI
-import Numerical.HBLAS.Lapack.FFI
-import Numerical.HBLAS.MatrixTypes
-import Control.Monad.Primitive
-import Data.Complex
-import qualified Data.Vector.Storable.Mutable as SM
+--import Numerical.HBLAS.UtilsFFI
+--import Numerical.HBLAS.Lapack.FFI
+--import Numerical.HBLAS.MatrixTypes
+--import Control.Monad.Primitive
+--import Data.Complex
+--import qualified Data.Vector.Storable.Mutable as SM
 
 
 \end{code}