Rename Matrix.createMatrix to Matrix.repeat

TimonVS · May 22, 2019 · b8a5f23 · b8a5f23
1 parent ad90419
commit b8a5f23
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -43,7 +43,7 @@ type alias Model =
 
 init : () -> ( Model, Cmd msg )
 init _ =
-    ( Model (Matrix.createMatrix 50 50 ( Nothing, None )) (Time.millisToPosix 0), Cmd.none )
+    ( Model (Matrix.repeat 50 50 ( Nothing, None )) (Time.millisToPosix 0), Cmd.none )
 
 
 

diff --git a/src/Matrix.elm b/src/Matrix.elm
@@ -1,4 +1,4 @@
-module Matrix exposing (Matrix, Point, createMatrix, mapCells)
+module Matrix exposing (Matrix, Point, mapCells, repeat)
 
 
 type alias Matrix a =
@@ -9,8 +9,8 @@ type alias Point =
     ( Int, Int )
 
 
-createMatrix : Int -> Int -> a -> Matrix a
-createMatrix width height initialValue =
+repeat : Int -> Int -> a -> Matrix a
+repeat width height initialValue =
     List.repeat height (List.repeat width initialValue)
 
 

diff --git a/tests/MainTests.elm b/tests/MainTests.elm
@@ -15,7 +15,7 @@ suite =
                 \_ ->
                     let
                         grid =
-                            Matrix.createMatrix 3 3 ( Nothing, None )
+                            Matrix.repeat 3 3 ( Nothing, None )
                     in
                     incrementCells ( 0, 0 ) grid
                         |> Expect.equal
@@ -27,7 +27,7 @@ suite =
                 \_ ->
                     let
                         grid =
-                            Matrix.createMatrix 3 3 ( Nothing, None )
+                            Matrix.repeat 3 3 ( Nothing, None )
                     in
                     incrementCells ( 0, 0 ) grid
                         |> incrementCells ( 1, 1 )

diff --git a/tests/MatrixTests.elm b/tests/MatrixTests.elm
@@ -1,17 +1,17 @@
 module MatrixTests exposing (suite)
 
 import Expect
-import Matrix exposing (createMatrix)
+import Matrix
 import Test exposing (..)
 
 
 suite : Test
 suite =
     describe "The Matrix module"
-        [ describe "createMatrix"
+        [ describe "Matrix.repeat"
             [ test "create matrix of 3x3" <|
                 \_ ->
-                    createMatrix 3 3 -1
+                    Matrix.repeat 3 3 -1
                         |> Expect.equal
                             [ [ -1, -1, -1 ]
                             , [ -1, -1, -1 ]