update status messages throughtout solution.

SmoulderingBeachBall/InternalServices.fs

@@ -15,7 +15,8 @@
         let validateDirectory filePath =
             let path = Path.GetDirectoryName filePath
             match (Directory.Exists path) with
-            | false -> invalidArg "filePath" "Unable to save to the specified location because it does not exist."
+            | false ->
+                invalidArg "filePath" "[ERROR] Unable to save to the specified location because it could not be found."
             | true -> ()
 
     module Drawing =

SmoulderingBeachBallCLI/ConsoleCommands.fs

@@ -11,7 +11,7 @@
 
         let showEndOfCommandMessage = "[INFO.] Execution completed."
 
-        let test () = "Smouldering Beach Ball CLI seems to be working."
+        let test () = "[SUCCESS] Smouldering Beach Ball CLI seems to be working."
 
         let exit () = Environment.Exit (Environment.ExitCode)
 

SmoulderingBeachBallCLI/Validation.fs

@@ -26,7 +26,7 @@
             colourList 
             |> Map.find (colour.ToLower())
         | false ->
-            invalidArg "Colour" "The colour specifed is invalid."
+            invalidArg "Colour" "[ERROR] The colour specifed is invalid."
             // "Please use the ListAvailableColours command for a list"?
 
     let parsePath (path: string) =