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