diff options
Diffstat (limited to 'tools/magrathea/mg.scm')
-rw-r--r-- | tools/magrathea/mg.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tools/magrathea/mg.scm b/tools/magrathea/mg.scm index cbbcfc69dd57..ab8e5bb77e02 100644 --- a/tools/magrathea/mg.scm +++ b/tools/magrathea/mg.scm @@ -39,6 +39,7 @@ commands: build - build a target shell - enter a shell with the target's build dependencies path - print source folder for the target + repl - start a nix repl in the repository root run - build a target and execute its output file all feedback on b.tvl.fyi @@ -289,6 +290,9 @@ if you meant to pass these arguments to nix, please separate them with (guarantee-success (parse-target arg)))] [other (print "not yet implemented")])) +(define (repl args) + (process-execute "nix" (append (list "repl" "--show-trace" (repository-root)) args))) + (define (execute-run t #!optional cmd-args) (fprintf (current-error-port) "[mg] building target ~A~%" t) (let* ((expr (nix-expr-for t)) @@ -352,6 +356,7 @@ if you meant to pass these arguments to nix, please separate them with [("build" . _) (build (cdr args))] [("shell" . _) (shell (cdr args))] [("path" . _) (path (cdr args))] + [("repl" . _) (repl (cdr args))] [("run" . _) (run (cdr args))] [other (begin (print "unknown command: mg " args) (print usage))])) |