diff --git a/BrittleFish/ConsoleCommands.fs b/BrittleFish/ConsoleCommands.fs index 47474a7..efcd816 100644 --- a/BrittleFish/ConsoleCommands.fs +++ b/BrittleFish/ConsoleCommands.fs @@ -1,4 +1,27 @@ namespace Commands module ConsoleCommands = - let Test() = "The console is working" + + open System + open Console.Waterworks + open Console.Waterworks.Attributes + + [] + [] + [] + [ test">] + let test() = "The console is working" + + [] + [] + [] + [ exit">] + let exit() = System.Environment.Exit(Environment.ExitCode) + + [] + [] + [] + [ help">] + let help() = + let liaison = CW_Liaison() + liaison.RequestHelpDocumentation("Commands") diff --git a/BrittleFish/Program.fs b/BrittleFish/Program.fs index b195d56..af44061 100644 --- a/BrittleFish/Program.fs +++ b/BrittleFish/Program.fs @@ -1,10 +1,7 @@ open Console.Waterworks -// Learn more about F# at http://fsharp.org -// See the 'F# Tutorial' project for more help. - [] let main argv = let liaison = CW_Liaison() liaison.Run("Commands", true) - 0 // return an integer exit code + 0