# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1521864145 14400
# Node ID e315df5ba6060df7eb887946f79718bc36e8747e
# Parent  20b1949e2d4bf52c1cea0339a25c54699f84668a
Fix dumb typo

diff -r 20b1949e2d4b -r e315df5ba606 src/robots/git-commands.lisp
--- a/src/robots/git-commands.lisp	Fri Mar 23 23:36:08 2018 -0400
+++ b/src/robots/git-commands.lisp	Sat Mar 24 00:02:25 2018 -0400
@@ -169,7 +169,7 @@
   ("-" :. letter [noun shellify string-upcase]))
 
 (define-string long-option%
-  !(let ((noun (shellify noun)))
+  !(let ((noun (shellify (noun))))
      $("--" :. !noun :. "=<" :. !noun :. ">"))
   ("--" :. action-verb)
   ("--" :. extremum)