mirror of
https://github.com/anoma/juvix.git
synced 2024-12-27 01:23:32 +03:00
f916c0a95a
This PR makes changes to make our Anoma client CLI commands compatible with the https://github.com/anoma/anoma/tree/testnet-01 branch. We must now capture the Anoma client node_id on start because some endpoints (e.g mempool submit) require this node id in the request. I'm using [Effectful.Environment](https://hackage.haskell.org/package/effectful-2.5.0.0/docs/Effectful-Environment.html) to interact with environment variables as it avoids use of `IOE`. In a separate PR we should replace all usages of `System.Environment` with `Effectful.Environment` but I've left existing usages of `System.Environment` in place for the time being.
51 lines
1.7 KiB
Haskell
51 lines
1.7 KiB
Haskell
module TopCommand where
|
|
|
|
import Commands.Base hiding (Format)
|
|
import Commands.Clean qualified as Clean
|
|
import Commands.Compile qualified as Compile
|
|
import Commands.Dependencies qualified as Dependencies
|
|
import Commands.Dev qualified as Dev
|
|
import Commands.Doctor qualified as Doctor
|
|
import Commands.Eval qualified as Eval
|
|
import Commands.Format qualified as Format
|
|
import Commands.Html qualified as Html
|
|
import Commands.Init qualified as Init
|
|
import Commands.Isabelle qualified as Isabelle
|
|
import Commands.Markdown qualified as Markdown
|
|
import Commands.Repl qualified as Repl
|
|
import Commands.Typecheck qualified as Typecheck
|
|
import Juvix.Extra.Version
|
|
import System.Environment qualified as E
|
|
import TopCommand.Options
|
|
|
|
showHelpText :: (MonadIO m) => m ()
|
|
showHelpText = do
|
|
let p = prefs showHelpOnEmpty
|
|
progn <- liftIO E.getProgName
|
|
let helpText = parserFailure p descr (ShowHelpText Nothing) []
|
|
(msg, _) = renderFailure helpText progn
|
|
putStrLn (pack msg)
|
|
|
|
runTopCommand ::
|
|
forall r.
|
|
(Members AppEffects r) =>
|
|
TopCommand ->
|
|
Sem r ()
|
|
runTopCommand = \case
|
|
DisplayVersion -> runDisplayVersion
|
|
DisplayNumericVersion -> runDisplayNumericVersion
|
|
DisplayHelp -> showHelpText
|
|
Doctor opts -> runLogIO (Doctor.runCommand opts)
|
|
Isabelle opts -> Isabelle.runCommand opts
|
|
Init opts -> Init.init opts
|
|
Dev opts -> Dev.runCommand opts
|
|
Typecheck opts -> Typecheck.runCommand opts
|
|
Compile opts -> Compile.runCommand opts
|
|
Clean opts -> Clean.runCommand opts
|
|
Eval opts -> Eval.runCommand opts
|
|
Html opts -> Html.runCommand opts
|
|
Markdown opts -> Markdown.runCommand opts
|
|
JuvixRepl opts -> Repl.runCommand opts
|
|
JuvixFormat opts -> Format.runCommand opts
|
|
Dependencies opts -> Dependencies.runCommand opts
|