fix: avoid coercion in macro

mhuisi · mhuisi · commit b0efab6f62d1 · 2022-08-04T19:09:41.000+02:00
diff --git a/Cli/Basic.lean b/Cli/Basic.lean
@@ -1039,7 +1039,7 @@ section Macro
     let mut shortName := quote (none : Option String)
     let mut longName := flagName1
     if let some flagName2 := flagName2 then
-      shortName := expandIdentLiterally flagName1
+      shortName ← `(some $(expandIdentLiterally flagName1))
       longName := flagName2
     let unitType : Term ← `(Unit)
     let type :=
