module Matrix(
Matrix,
mmap
) where

  import qualified Data.Array.Repa as R
  import Data.Array.Repa

  newtype (Source r a) => Matrix r a = Matrix (Array r DIM2 a)

  mmap :: (Source r a) => (a -> b) -> Matrix r a -> Matrix D b
  mmap f (Matrix a) = Matrix (R.map f a)
