refactor add-grid command (applyImageToGrid).

5 years ago · 5daf3725b2
1 changed files with 3 additions and 2 deletions
--- a/DeathSocketCLI/Commands.fs
+++ b/DeathSocketCLI/Commands.fs
@ -59,8 +59,9 @@
        let ``add-grid`` imgPath numRows numColumns pWidth colour newPath =
            try
                printfn "[INFO.] Adding grid to image..."
-                buildSpec imgPath numRows numColumns pWidth colour newPath
-                |> applyBrushSpecGridAsync
+                Brush (buildSpec imgPath numRows numColumns pWidth colour newPath)
+                |> applyImageToGrid
+                //|> applyBrushSpecGridAsync
                |> Async.Start
                showEndOfCommandMessage
            with