[ derive ] Log used order using argument names too

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

@@ -42,7 +42,12 @@ namespace NonObligatoryExts
   [LeastEffort] {default False simplificationHack : Bool} -> ConstructorDerivator where
     consGenExpr sig con givs fuel = do
 
-      let niit : NamesInfoInTypes = %search    -- I don't why it won't be found without this
+      -- Prepare local search context
+      let _ : NamesInfoInTypes = %search    -- I don't why it won't be found without this
+      let _ : ({0 f : _} -> Foldable f => Interpolation $ f _) = WithNames {con}
+
+      -- Log all arguments' position and their names (if they have some)
+      logPoint {level=15} "least-effort" [sig, con] "- con args: \{List.allFins con.args.length}"
 
       -------------------------------------------------------------
       -- Prepare intermediate data and functions using this data --
@@ -199,7 +204,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: \{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 ---
 ----------------------------------------------