diff options
Diffstat (limited to 'Logs/Transitions.hs')
| -rw-r--r-- | Logs/Transitions.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Logs/Transitions.hs b/Logs/Transitions.hs index 64e9d3344..15ea32401 100644 --- a/Logs/Transitions.hs +++ b/Logs/Transitions.hs @@ -53,7 +53,7 @@ showTransitions = unlines . map showTransitionLine . S.elems parseTransitions :: String -> Maybe Transitions parseTransitions = check . map parseTransitionLine . lines where - check l + check l | all isJust l = Just $ S.fromList $ catMaybes l | otherwise = Nothing @@ -68,8 +68,8 @@ showTransitionLine (TransitionLine ts t) = unwords [show t, show ts] parseTransitionLine :: String -> Maybe TransitionLine parseTransitionLine s = TransitionLine <$> pdate ds <*> readish ts where - ws = words s - ts = Prelude.head ws + ws = words s + ts = Prelude.head ws ds = unwords $ Prelude.tail ws pdate = utcTimeToPOSIXSeconds <$$> parseTime defaultTimeLocale "%s%Qs" |