Throw on non-200 responses

phadej · phadej · commit ae57e5fa482a · 2019-05-30T17:56:35.000+03:00
diff --git a/src/GitHub/Request.hs b/src/GitHub/Request.hs
@@ -331,7 +331,9 @@ parseStatus m (Status sci _) =
 -- Unit
 -------------------------------------------------------------------------------
 
-instance Accept 'MtUnit
+instance Accept 'MtUnit where
+    modifyRequest = Tagged setRequestIgnoreStatus
+
 instance a ~ () => ParseResponse 'MtUnit a where
     parseResponse _ _ = Tagged (return ())
 
@@ -378,7 +380,7 @@ makeHttpRequest auth r = case r of
             $ req
   where
     parseUrl' :: MonadThrow m => Text -> m HTTP.Request
-    parseUrl' = HTTP.parseRequest . T.unpack
+    parseUrl' = HTTP.parseUrlThrow . T.unpack
 
     url :: Paths -> Text
     url paths = maybe "https://api.github.com" id (endpoint =<< auth) <> "/" <> T.intercalate "/" paths
