Rename Matrix.mapCells to Matrix.map

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

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -5,7 +5,7 @@ import Fibonacci exposing (isFibonacci, isFibonacciSequence, isNextFibonacci)
 import Html exposing (Html, button, div, table, td, text, tr)
 import Html.Attributes exposing (class, style)
 import Html.Events exposing (onClick)
-import Matrix exposing (Matrix, Point, mapCells)
+import Matrix exposing (Matrix, Point)
 import Maybe
 import Task
 import Time
@@ -104,7 +104,7 @@ type Msg
 
 incrementCells : Point -> Grid -> Grid
 incrementCells ( x, y ) matrix =
-    mapCells
+    Matrix.map
         (\cell ( colIndex, rowIndex ) ->
             case cell of
                 ( Just value, flag ) ->
@@ -147,7 +147,7 @@ lightUpFibonacciSequences grid =
 
 resetFlags : Grid -> Grid
 resetFlags matrix =
-    mapCells
+    Matrix.map
         (\( value, flag ) _ ->
             case ( value, flag ) of
                 ( _, LightUpGreen ) ->

diff --git a/src/Matrix.elm b/src/Matrix.elm
@@ -1,4 +1,4 @@
-module Matrix exposing (Matrix, Point, mapCells, repeat)
+module Matrix exposing (Matrix, Point, map, repeat)
 
 
 type alias Matrix a =
@@ -14,8 +14,8 @@ repeat width height initialValue =
     List.repeat height (List.repeat width initialValue)
 
 
-mapCells : (a -> Point -> a) -> Matrix a -> Matrix a
-mapCells fn matrix =
+map : (a -> Point -> a) -> Matrix a -> Matrix a
+map fn m =
     List.indexedMap
         (\rowIndex row ->
             List.indexedMap
@@ -24,4 +24,4 @@ mapCells fn matrix =
                 )
                 row
         )
-        matrix
+        m