summaryrefslogtreecommitdiff
path: root/src/stv.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/stv.adb')
-rw-r--r--src/stv.adb6
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);