{-# 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)