Fix Hackage distro upload?

This commit is contained in:
Michael Snoyman 2014-11-25 06:56:08 +02:00
parent bd3bfe55d5
commit cf1a24a6e6

View File

@ -111,6 +111,7 @@ main = withManager defaultManagerSettings $ \m -> do
{ requestHeaders = [("Content-Type", "text/csv")]
, requestBody = RequestBodyLBS lbs
, checkStatus = \_ _ _ -> Nothing
, method = "POST"
}
httpLbs req m >>= print