minor refactor of readURL

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