Simplified map SVG

src/Views/Map.elm

@@ -1,29 +1,24 @@
 module Views.Map exposing (..)
 
 import GLOBALS exposing (backgroundColor, playAreaSize)
-import Svg exposing (Svg, g, path)
+import Svg exposing (Svg, g, path, rect)
-import Svg.Attributes exposing (d, fill)
+import Svg.Attributes exposing (d, fill, x, y, width, height)
 import Svg.Path exposing (pathToString, lineTo, subpath, startAt, closed)
 
 
 render : Svg msg
 render =
     let
-        ( width, height ) =
+        ( areaWidth, areaHeight ) =
             playAreaSize
     in
         g []
-            [ path
+            [ rect
-                [ d <|
+                [ fill backgroundColor
-                    pathToString
+                , width (toString areaWidth)
-                        [ subpath (startAt ( 0, 0 ))
+                , height (toString areaHeight)
-                            closed
+                , x (toString 0)
-                            [ lineTo ( width, 0 )
+                , y (toString 0)
-                            , lineTo ( width, height )
-                            , lineTo ( 0, height )
-                            ]
-                        ]
-                , fill backgroundColor
                 ]
                 []
             ]