[ derive ] Log used order using argument names too

src/Deriving/DepTyCheck/Gen/Core/ConsDerive.idr

@@ -44,6 +44,8 @@ namespace NonObligatoryExts
 
       let niit : NamesInfoInTypes = %search    -- I don't why it won't be found without this
 
+      logPoint {level=15} "least-effort" [sig, con] "- con args: \{interpolate @{WithNames} $ List.allFins con.args.length}"
+
       -------------------------------------------------------------
       -- Prepare intermediate data and functions using this data --
       -------------------------------------------------------------
@@ -199,7 +201,7 @@ namespace NonObligatoryExts
       let allOrders = List.nub $ nub <$> allOrders
 
       for_ allOrders $ \order =>
-        logPoint {level=10} "least-effort.order" [sig, con] "- one of used final orders: \{show order}"
+        logPoint {level=10} "least-effort" [sig, con] "- used final order: \{interpolate @{WithNames} order}"
 
       --------------------------
       -- Producing the result --

src/Deriving/DepTyCheck/Util/Reflection.idr

@@ -56,6 +56,16 @@ SingleLogPosition Con where
     let fullName' = unpack fullName
     maybe fullName (pack . flip drop fullName' . S . finToNat) $ findLastIndex (== '.') fullName'
 
+export
+[WithName] {con : Con} -> Interpolation (Fin con.args.length) where
+  interpolate i = case name $ index' con.args i of
+    Just (UN n) => "#\{show i} (\{show n})"
+    _           => "#\{show i}"
+
+export
+[WithNames] {con : Con} -> Foldable f => Interpolation (f $ Fin con.args.length) where
+  interpolate = ("[" ++) . (++ "]") . joinBy ", " . map (interpolate @{WithName}) . toList
+
 ----------------------------------------------
 --- Compiler-based `TTImp` transformations ---
 ----------------------------------------------