Command.hs

module Mdoc.Data.Command
  ( Command (..)
  ) where

import Mdoc.Prelude

import Mdoc.Data.Synopsis (InlineSynopsis)
import Mdoc.Syntax.Mdoc

data Command = Command
  { index :: Int
  , name :: String
  , synopsis :: InlineSynopsis
  , description :: Maybe Mdoc
  }
  deriving stock (Eq, Generic, Show)
  deriving anyclass (ToJSON)

instance Ord Command where
  compare = comparing (.index)