orthotope-hmatrix-0.1.1.0: Data/Array/Ranked/MatMul.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Data.Array.Ranked.MatMul(matMul) where
import GHC.Stack
import Data.Array.Convert
import Data.Array.Ranked
import qualified Data.Array.RankedS.MatMul as S
import Numeric.LinearAlgebra as N

matMul :: forall a .
          (HasCallStack, N.Numeric a) =>
          Array 2 a -> Array 2 a -> Array 2 a
matMul x y = convert $ S.matMul (convert x) (convert y)