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

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