diff --git a/src/Network/Gemini/Capsule/Internal.hs b/src/Network/Gemini/Capsule/Internal.hs
index 8f14cf7..982487f 100644
--- a/src/Network/Gemini/Capsule/Internal.hs
+++ b/src/Network/Gemini/Capsule/Internal.hs
@@ -54,9 +54,9 @@ readURL
   -- ^ the connection
   -> IO (Maybe GemURL)
 readURL conn =
-  strFromConn inBufSize conn >>= \case
-    Nothing  -> return Nothing
-    Just str -> return $ decodeGemURL str
+  strFromConn inBufSize conn >>= return . \case
+    Nothing  -> Nothing
+    Just str -> decodeGemURL str
 
 -- | Sends a 'GemResponse' to a 'Connection'
 sendResponse