change the column count variable to row count in createHorizontalLines.

Apply the applyGrid (async) name change to the CLI and Test Centre.

DeathSocket/ImageServices.fs

@@ -21,7 +21,7 @@
         let graphics = Graphics.FromImage img
         let pen = new Pen (spec.colour, width = spec.penWidth)
         let horizontalLines =
-            createHorizontalLines (img.Size.Width) (img.Size.Height) (spec.columns)
+            createHorizontalLines (img.Size.Width) (img.Size.Height) (spec.rows)
         let verticalLines = createVerticalLines (img.Size.Width) (img.Size.Height) (spec.columns)
         for line in horizontalLines do graphics.DrawLines (pen, line)
         for line in verticalLines do graphics.DrawLines (pen, line)

DeathSocketCLI/Commands.fs

@@ -38,7 +38,7 @@
             try
                 printfn "[INFO.] Adding default grid to image..."
                 buildDefaultSpec imgPath newPath
-                |> applyGrid
+                |> applyGridAsync
                 |> Async.RunSynchronously
                 showEndOfCommandMessage
             with
@@ -57,7 +57,7 @@
             try
                 printfn "[INFO.] Adding grid to image..."
                 buildSpec imgPath numRows numColumns pWidth colour newPath
-                |> applyGrid
+                |> applyGridAsync
                 |> Async.RunSynchronously
                 showEndOfCommandMessage
             with

TestCentre/LibraryTests.fs

@@ -85,7 +85,7 @@
                   penWidth = float32 1
                   rows = 10
                   columns = 10 }
-            applyGrid spec
+            applyGridAsync spec
             |> Async.RunSynchronously
             (File.Exists sPath) = true