diff --git a/src/PC/Helpers.elm b/src/PC/Helpers.elm index 41d09eb..63b1b8b 100644 --- a/src/PC/Helpers.elm +++ b/src/PC/Helpers.elm @@ -9,12 +9,21 @@ import Http exposing (..) -- Please note that only 0 are added. The number will not be shortend! addLeadingZero : Int -> Int -> String addLeadingZero number length = - let - num_str = String.fromInt number - in - (String.fromList <| List.repeat (length - String.length num_str) '0' - ) - ++ num_str + if number >= 0 then + let + num_str = String.fromInt number + in + (String.fromList <| List.repeat (length - String.length num_str) '0' + ) + ++ num_str + else + let + num_str = String.fromInt <| 0-number + in + "-" ++ + (String.fromList <| List.repeat (length - String.length num_str) '0' + ) + ++ num_str -- Get the value at a given position in a List.