separation ok

1 files changed, 2 insertions, 12 deletions

diff --git a/packages/hmatrix/src/Numeric/Container.hs b/packages/hmatrix/src/Numeric/Container.hs
index ff649b7..3a8dd94 100644
--- a/packages/hmatrix/src/Numeric/Container.hs
+++ b/packages/hmatrix/src/Numeric/Container.hs
@@ -30,7 +30,7 @@ module Numeric.Container (
     -- * Basic functions
     module Data.Packed,
     konst, build,
-    constant, linspace,
+    linspace,
     diag, ident,
     ctrans,
     -- * Generic operations
@@ -64,8 +64,7 @@ module Numeric.Container (
     fscanfVector, fprintfVector, freadVector, fwriteVector,
 ) where
 
-import Data.Packed
-import Data.Packed.Internal(constantD)
+import Data.Packed hiding (stepD, stepF, condD, condF, conjugateC, conjugateQ)
 import Numeric.ContainerBoot
 import Numeric.Chain
 import Numeric.IO
@@ -75,15 +74,6 @@ import Numeric.Random
 
 ------------------------------------------------------------------
 
-{- | creates a vector with a given number of equal components:
-
-@> constant 2 7
-7 |> [2.0,2.0,2.0,2.0,2.0,2.0,2.0]@
--}
-constant :: Element a => a -> Int -> Vector a
--- constant x n = runSTVector (newVector x n)
-constant = constantD-- about 2x faster
-
 {- | Creates a real vector containing a range of values:
 
 >>> linspace 5 (-3,7::Double)