~singpolyma/cheogram

25862061a1b4b32b984b570534ab1bd9308d5846 — Stephen Paul Weber a month ago 7f77964
Prevent openBinaryFile: invalid argument (File name too long)
1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +1 -1
@@ 1212,7 1212,7 @@ cacheHTTP jingleStore url =
		if HTTP.getStatusCode response == 200 then
			fmap (fmap (\(fp,_,_,_) -> fp)) $
			Jingle.storeChunks Nothing jingleStore
			(escapeURIString isAlpha (textToString url))
			(reverse $ take 240 $ reverse $ escapeURIString isAlphaNum (textToString url))
			(hush <$> UIO.fromIO (fromMaybe mempty <$> Streams.read body))
		else
			return $ Left $ userError "Response was not 200 OK"