diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 19:09:38 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 19:09:38 +1000 |
| commit | bb80ba1f9c02be0f99690ca392644ae4404aecc7 (patch) | |
| tree | 0f53ac6781abd28df9a428f1ced62f18252f92c0 /src/stv.adb | |
| parent | 8b6cc411cceb51b26579f8fcf94424b4842ef0bf (diff) | |
String output of Time/Durations now neater
Diffstat (limited to 'src/stv.adb')
| -rw-r--r-- | src/stv.adb | 6 |
1 files changed, 3 insertions, 3 deletions
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); |