module Numeric.LAPACK.Matrix.Private where

import qualified Numeric.LAPACK.Matrix.Shape.Private as MatrixShape
import Data.Array.Comfort.Storable (Array)

import qualified Data.Array.Comfort.Shape as Shape


type General height width = Array (MatrixShape.General height width)


type ZeroInt = Shape.ZeroBased Int

zeroInt :: Int -> ZeroInt
zeroInt = Shape.ZeroBased