Commit b90772d3 authored by Michael Siegel's avatar Michael Siegel 👔
Browse files

Use `Simple_Name` instead of `Base_Name` to set `Invocation_Name` constant

parent 2ff76756
......@@ -28,7 +28,7 @@ with Ada.Text_IO; use Ada.Text_IO;
procedure Mote is
Program_Name : constant String := "mote";
Invocation_Name : constant String := Base_Name(Command_Name);
Invocation_Name : constant String := Simple_Name(Command_Name);
Program_Version : constant String := "0.28.1";
procedure Show_Help is
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment