From 489d0fdb788cbcadfe88ee9e75bfcb68d7a3c08b Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Fri, 19 Nov 2021 19:28:46 -0500
Subject: [PATCH] linting of readURL function

I disagree with the use of `<$>` in place of `.`, but not enough to fight hlint on it.
---
 src/Network/Gemini/Capsule/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Network/Gemini/Capsule/Internal.hs b/src/Network/Gemini/Capsule/Internal.hs
index 982487f..735be99 100644
--- a/src/Network/Gemini/Capsule/Internal.hs
+++ b/src/Network/Gemini/Capsule/Internal.hs
@@ -54,7 +54,7 @@ readURL
   -- ^ the connection
   -> IO (Maybe GemURL)
 readURL conn =
-  strFromConn inBufSize conn >>= return . \case
+  strFromConn inBufSize conn >>= return <$> \case
     Nothing  -> Nothing
     Just str -> decodeGemURL str