diff options
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); |