From 34bdb1436c716431c2fae58908e440fc506878b2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 27 Sep 2013 19:58:48 -0400
Subject: 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)
---
 Logs/Transitions.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Logs')

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
-- 
cgit v1.2.3