[ fix ] Use right reflection constructor name for unambiguing with

src/TTImp/Reflect.idr

@@ -633,7 +633,7 @@ mutual
         = do fc' <- reflect fc defs lhs env tfc
              ns' <- reflect fc defs lhs env ns
              t' <- reflect fc defs lhs env t
-             appCon fc defs (reflectionttimp "WithUnambigNames") [fc', ns', t']
+             appCon fc defs (reflectionttimp "IWithUnambigNames") [fc', ns', t']
 
   export
   Reflect IFieldUpdate where

tests/Main.idr

@@ -215,6 +215,7 @@ idrisTests = MkTestPool "Misc" [] Nothing
        "reflection001", "reflection002", "reflection003", "reflection004",
        "reflection005", "reflection006", "reflection007", "reflection008",
        "reflection009", "reflection010", "reflection011", "reflection012",
+       "reflection013",
        -- The 'with' rule
        "with001", "with002", "with004", "with005", "with006",
        -- with-disambiguation

tests/idris2/reflection013/WithUnambig.idr

@@ -0,0 +1,12 @@
+import Language.Reflection
+
+x : TTImp
+x = `(with Prelude.Nil [])
+
+%language ElabReflection
+
+x' : Elab (List Nat)
+x' = check x
+
+l : List Nat
+l = 1 :: %runElab x'

tests/idris2/reflection013/expected

@@ -0,0 +1 @@
+1/1: Building WithUnambig (WithUnambig.idr)

tests/idris2/reflection013/run

@@ -0,0 +1,4 @@
+rm -rf build
+
+$1 --no-color --console-width 0 --no-banner --check WithUnambig.idr
+