From fbff2b6e4681b75b54a918baec9c49ba8f110d75 Mon Sep 17 00:00:00 2001
From: Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>
Date: Fri, 1 Aug 2014 20:46:56 +0200
Subject: isLeft is in base-4.7.x, this is cleaner than CPP

---
 src/Network/BitTorrent/DHT/Query.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index d4710ecf..f7657490 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -127,17 +127,13 @@ findNodeQ key NodeInfo {..} = do
   NodeFound closest <- FindNode (toNodeId key) <@> nodeAddr
   return $ Right closest
 
-isLeft :: Either a b -> Bool
-isLeft (Right _) = False
-isLeft (Left  _) = True
-
 getPeersQ :: Address ip => InfoHash -> Iteration ip PeerAddr
 getPeersQ topic NodeInfo {..} = do
   GotPeers {..} <- GetPeers topic <@> nodeAddr
   let dist = distance (toNodeId topic) nodeId
   $(logInfoS) "getPeersQ" $ T.pack
          $ "distance: " <> render (pretty dist) <> " , result: "
-        <> if isLeft peers then "NODES" else "PEERS"
+        <> case peers of { Left _ -> "NODES"; Right _ -> "PEERS" }
   return peers
 
 announceQ :: Address ip => InfoHash -> PortNumber -> Iteration ip NodeAddr
-- 
cgit v1.2.3