diff options
Diffstat (limited to 'Logs/Transitions.hs')
| -rw-r--r-- | Logs/Transitions.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/Transitions.hs b/Logs/Transitions.hs index 6e5dc0dc9..64e9d3344 100644 --- a/Logs/Transitions.hs +++ b/Logs/Transitions.hs @@ -71,7 +71,7 @@ parseTransitionLine s = TransitionLine <$> pdate ds <*> readish ts ws = words s ts = Prelude.head ws ds = unwords $ Prelude.tail ws - pdate = parseTime defaultTimeLocale "%s%Qs" >=*> utcTimeToPOSIXSeconds + pdate = utcTimeToPOSIXSeconds <$$> parseTime defaultTimeLocale "%s%Qs" combineTransitions :: [Transitions] -> Transitions combineTransitions = S.unions |