withGetopt: export WITHGETOPT_ORIG_ARGS
This commit is contained in:
parent
a15736cbb0
commit
27d37b2299
@ -1,5 +1,5 @@
|
|||||||
with import <stockholm/lib>;
|
with import <stockholm/lib>;
|
||||||
{ utillinux, writeDash }:
|
{ coreutils, quote, utillinux, writeDash }:
|
||||||
|
|
||||||
opt-spec: cmd-spec: let
|
opt-spec: cmd-spec: let
|
||||||
|
|
||||||
@ -43,6 +43,9 @@ in writeDash wrapper-name ''
|
|||||||
unset ${opt.varname}
|
unset ${opt.varname}
|
||||||
'') opts)}
|
'') opts)}
|
||||||
|
|
||||||
|
WITHGETOPT_ORIG_ARGS=$(${quote}/bin/quote "$@")
|
||||||
|
export WITHGETOPT_ORIG_ARGS
|
||||||
|
|
||||||
args=$(${utillinux}/bin/getopt \
|
args=$(${utillinux}/bin/getopt \
|
||||||
-l ${shell.escape
|
-l ${shell.escape
|
||||||
(concatMapStringsSep ","
|
(concatMapStringsSep ","
|
||||||
|
Loading…
Reference in New Issue
Block a user