@@ -12,6 +12,7 @@ import Data.List.NonEmpty as NonEmpty
1212import Data.Maybe (Maybe, fromMaybe, optional)
1313import Data.Unfoldable (class Unfoldable)
1414import Effect (Effect)
15+import Effect.Console (log)
1516import Options.Applicative (Parser, command, execParser, fullDesc, helper, info, long, metavar, progDesc, strOption, subparser, value, (<**>))
1617import Options.Applicative as CA
1718
@@ -24,6 +25,7 @@ main = do
2425 case fromMaybe defaultCommands args of
2526 BuildIndex cfg -> IndexBuilder.run cfg
2627 Search cfg -> Interactive.run cfg
28+ Version -> log "0.0.4"
2729
2830getArgs :: Effect (Maybe Commands)
2931getArgs = execParser opts
@@ -39,6 +41,7 @@ data Commands
3941 , generatedDocs :: String
4042 }
4143 | Search { docsFiles :: Array String }
44+ | Version
4245
4346derive instance genericCommands :: Generic Commands _
4447
@@ -57,6 +60,11 @@ commands = optional $ subparser
5760 ( progDesc "Run the search engine."
5861 )
5962 )
63+ <> command "version"
64+ ( info (pure Version)
65+ ( progDesc "Show purescript-docs-search version."
66+ )
67+ )
6068 )
6169
6270buildIndex :: Parser Commands