Fixed toString method

Signed-off-by: Skyball2000 <thomas3654william@gmail.com>
main
Yan Wittmann 2022-11-08 11:45:35 +01:00 committed by Skyball2000
parent b575fc1b50
commit 2bdb2c19ef
1 changed files with 2 additions and 2 deletions

View File

@ -40,8 +40,8 @@ gt date1 date2 =
-- 1 Punkt:
toString : Date -> String
toString (a,b,c) = (if a < 10 then "0" ++ String.fromInt(a) else String.fromInt(a))
++ (if b < 10 then "0" ++ String.fromInt(b) else String.fromInt(b))
toString (a,b,c) = (if a < 10 then "0" ++ String.fromInt(a) else String.fromInt(a)) ++ "."
++ (if b < 10 then "0" ++ String.fromInt(b) else String.fromInt(b)) ++ "."
++ (if c < 10 then "000" ++ String.fromInt(c)
else if c < 100 then "00" ++ String.fromInt(c)
else if c < 1000 then "0" ++ String.fromInt(c)