Fix field name consistency

Author: paf31

LICENSE

@@ -1,6 +1,6 @@
 The MIT License (MIT)
 
-Copyright (c) 2014-17 Phil Freeman and other contributors
+Copyright (c) 2014-18 Phil Freeman and other contributors
 
 Permission is hereby granted, free of charge, to any person obtaining a copy of
 this software and associated documentation files (the "Software"), to deal in

generated-docs/Graphics/Canvas.md

@@ -38,7 +38,7 @@ Opaque object for drawing elements and things to the canvas.
 #### `Arc`
 
 ``` purescript
-type Arc = { x :: Number, y :: Number, r :: Number, start :: Number, end :: Number }
+type Arc = { x :: Number, y :: Number, radius :: Number, start :: Number, end :: Number }
 ```
 
 A type representing an arc object:
@@ -124,7 +124,7 @@ Enumerates the different types of line join
 #### `Rectangle`
 
 ``` purescript
-type Rectangle = { x :: Number, y :: Number, w :: Number, h :: Number }
+type Rectangle = { x :: Number, y :: Number, width :: Number, height :: Number }
 ```
 
 A type representing a rectangle object:

src/Graphics/Canvas.js

@@ -230,39 +230,39 @@ exports.closePath = function(ctx) {
 exports.arc = function(ctx) {
     return function(a) {
         return function() {
-            ctx.arc(a.x, a.y, a.r, a.start, a.end);
+            ctx.arc(a.x, a.y, a.radius, a.start, a.end);
         };
     };
 };
 
 exports.rect = function(ctx) {
     return function(r) {
         return function() {
-            ctx.rect(r.x, r.y, r.w, r.h);
+            ctx.rect(r.x, r.y, r.width, r.height);
         };
     };
 };
 
 exports.fillRect = function(ctx) {
     return function(r) {
         return function() {
-            ctx.fillRect(r.x, r.y, r.w, r.h);
+            ctx.fillRect(r.x, r.y, r.width, r.height);
         };
     };
 };
 
 exports.strokeRect = function(ctx) {
     return function(r) {
         return function() {
-            ctx.strokeRect(r.x, r.y, r.w, r.h);
+            ctx.strokeRect(r.x, r.y, r.width, r.height);
         };
     };
 };
 
 exports.clearRect = function(ctx) {
     return function(r) {
         return function() {
-            ctx.clearRect(r.x, r.y, r.w, r.h);
+            ctx.clearRect(r.x, r.y, r.width, r.height);
         };
     };
 };
@@ -307,14 +307,6 @@ exports.setTransform = function(ctx) {
     };
 };
 
-exports.clearRect = function(ctx) {
-    return function(r) {
-        return function() {
-            ctx.clearRect(r.x, r.y, r.w, r.h);
-        };
-    };
-};
-
 exports.textAlignImpl = function(ctx) {
     return function() {
         return ctx.textAlign;

src/Graphics/Canvas.purs

@@ -153,11 +153,12 @@ tryLoadImage
   -> Effect Unit
 tryLoadImage path k = tryLoadImageImpl path (k Nothing) (k <<< Just)
 
-foreign import getCanvasElementByIdImpl ::
-  forall r. Fn3 String
-                    (CanvasElement -> r)
-                    r
-                    (Effect r)
+foreign import getCanvasElementByIdImpl
+  :: forall r
+   . Fn3 String
+         (CanvasElement -> r)
+         r
+         (Effect r)
 
 -- | Get a canvas element by ID, or `Nothing` if the element does not exist.
 getCanvasElementById :: String -> Effect (Maybe CanvasElement)
@@ -409,7 +410,7 @@ fillPath ctx path = do
 type Arc =
   { x :: Number
   , y :: Number
-  , r :: Number
+  , radius :: Number
   , start :: Number
   , end   :: Number
   }
@@ -424,8 +425,8 @@ foreign import arc :: Context2D -> Arc -> Effect Unit
 type Rectangle =
   { x :: Number
   , y :: Number
-  , w :: Number
-  , h :: Number
+  , width :: Number
+  , height :: Number
   }
 
 -- | Render a rectangle.