jlamothe/gemcap
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor refactor of readURL

This commit is contained in:
Jonathan Lamothe 2021-11-19 11:03:51 -05:00
parent 5c83bf3123
commit dfad007b60
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Network/Gemini/Capsule/Internal.hs
View File

@ -54,9 +54,9 @@ readURL
-- ^ the connection -- ^ the connection
-> IO (Maybe GemURL) -> IO (Maybe GemURL)
readURL conn = readURL conn =
strFromConn inBufSize conn >>= \case strFromConn inBufSize conn >>= return . \case
Nothing -> return Nothing Nothing -> Nothing
Just str -> return $ decodeGemURL str Just str -> decodeGemURL str
-- | Sends a 'GemResponse' to a 'Connection' -- | Sends a 'GemResponse' to a 'Connection'
sendResponse sendResponse