isLeft is in base-4.7.x, this is cleaner than CPP

1 files changed, 1 insertions, 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