From bb80ba1f9c02be0f99690ca392644ae4404aecc7 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 3 Jul 2017 19:09:38 +1000 Subject: String output of Time/Durations now neater --- src/stv.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/stv.adb') diff --git a/src/stv.adb b/src/stv.adb index 2facffa..c10ec2e 100644 --- a/src/stv.adb +++ b/src/stv.adb @@ -218,7 +218,7 @@ begin Start_Time := Simple_Time.Now; Main_Log := SU.To_Unbounded_String (Output_Dir.all & "/" & "log.txt"); Log_Msg := SU.To_Unbounded_String ("Started election count at " & - Simple_Time.To_String (Start_Time)); + Simple_Time.Image (Start_Time)); Create (Log_File, Append_File, SU.To_String (Main_Log)); Put_Line (Log_File, SU.To_String (Log_Msg)); Close (Log_File); @@ -265,8 +265,8 @@ begin -- Finish up logging Finish_Time := Simple_Time.Now; Log_Msg := SU.To_Unbounded_String - ("Finished election count at " & Simple_Time.To_String (Finish_Time) & ASCII.LF & - Duration'Image (Finish_Time - Start_Time) & " seconds elapsed."); + ("Finished election count at " & Simple_Time.Image (Finish_Time) & ASCII.LF & + Simple_Time.Image (Finish_Time - Start_Time) & " seconds elapsed."); Open (Log_File, Append_File, SU.To_String (Main_Log)); Put_Line (Log_File, SU.To_String (Log_Msg)); Close (Log_File); -- cgit