From 7ccd4458bddf564f6c177e17ba48170beb2357ae Mon Sep 17 00:00:00 2001 From: Ian McLerran Date: Thu, 1 Feb 2024 10:15:12 -0600 Subject: [PATCH] reduce lines of code --- package/IsoToUtc.roc | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/package/IsoToUtc.roc b/package/IsoToUtc.roc index 2073470..27b74cd 100644 --- a/package/IsoToUtc.roc +++ b/package/IsoToUtc.roc @@ -213,28 +213,23 @@ parseFractionalTime = \wholeBytes, fractionalBytes -> when wholeBytes is [_,_] -> # hh when parseLocalTimeHour wholeBytes is - Ok time -> - frac * nanosPerHour |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok + Ok time -> frac * nanosPerHour |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok Err InvalidTimeFormat -> Err InvalidTimeFormat [_,_,_,_] -> # hhmm when parseLocalTimeMinuteBasic wholeBytes is - Ok time -> - frac * nanosPerMinute |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok + Ok time -> frac * nanosPerMinute |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok Err InvalidTimeFormat -> Err InvalidTimeFormat [_,_,':',_,_] -> # hh:mm when parseLocalTimeMinuteExtended wholeBytes is - Ok time -> - frac * nanosPerMinute |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok + Ok time -> frac * nanosPerMinute |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok Err InvalidTimeFormat -> Err InvalidTimeFormat [_,_,_,_,_,_] -> # hhmmss when parseLocalTimeBasic wholeBytes is - Ok time -> - frac * nanosPerSecond |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok + Ok time -> frac * nanosPerSecond |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok Err InvalidTimeFormat -> Err InvalidTimeFormat [_,_,':',_,_,':',_,_] -> # hh:mm:ss when parseLocalTimeExtended wholeBytes is - Ok time -> - frac * nanosPerSecond |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok + Ok time -> frac * nanosPerSecond |> Num.round |> fromNanosSinceMidnight |> addTimes time |> Ok Err InvalidTimeFormat -> Err InvalidTimeFormat _ -> Err InvalidTimeFormat Err InvalidBytes -> Err InvalidTimeFormat