๐Ÿ“ฆ sleepyfran / duets

๐Ÿ“„ Exit.Command.fs ยท 13 lines
1
2
3
4
5
6
7
8
9
10
11
12
13namespace Duets.Cli.Components.Commands

open Duets.Cli.SceneIndex
open Duets.Cli.Text

[<RequireQualifiedAccess>]
module ExitCommand =
    /// Command which exits the app upon being called.
    let get =
        { Name = "exit"
          Description = Command.exitDescription
          Handler = fun _ -> Scene.Exit ExitMode.SaveGame }