From b615519e1429726f4569fc5bdc8fea9fc5bd83a4 Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Thu, 13 Sep 2018 22:02:58 +0100 Subject: [PATCH] add list-colours command. --- DeathSocketCLI/Commands.fs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/DeathSocketCLI/Commands.fs b/DeathSocketCLI/Commands.fs index 2d4e9a7..bf7a6cb 100644 --- a/DeathSocketCLI/Commands.fs +++ b/DeathSocketCLI/Commands.fs @@ -6,7 +6,7 @@ open Validation open System.IO - let showEndOfCommandMessage = "[INFO.] Execution completed." + let showEndOfCommandMessage = "[INFO.] Task completed." let test () = "Death Socket is working." @@ -20,4 +20,10 @@ with | :? FileNotFoundException as ex -> "[ERROR] No file was found at " + ex.FileName | :? ArgumentException as ex -> "[ERROR] Invalid argument: " + ex.Message - | _ as ex -> ex.Message \ No newline at end of file + | _ as ex -> ex.Message + + let ``list-colours`` () = + printfn "[INFO.] Listing available colours..." + for item in colourList do + printfn "%s" item.Key + showEndOfCommandMessage \ No newline at end of file