diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-27 19:58:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-27 19:58:48 -0400 |
| commit | 34bdb1436c716431c2fae58908e440fc506878b2 (patch) | |
| tree | e46d5c1a0392cc008755bcd28455cd1494e6490a /Logs/Transitions.hs | |
| parent | cbf810a421901e76ee2d3e18592fb4d39de851a6 (diff) | |
remove *>=> and >=*> ; use <$$> instead
I forgot I had <$$> hidden away in Utility.Applicative.
It allows doing the same kind of currying as does >=*>
and I found using it made the code more readable for me.
(*>=> was not used)
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 |