@@ -20,7 +20,7 @@ type ComprehensiveAPI =
20 QueryParams "foo" Int :> GET :<|>
20 QueryParams "foo" Int :> GET :<|>
21 QueryFlag "foo" :> GET :<|>
21 QueryFlag "foo" :> GET :<|>
22-- Raw :<|>
22-- Raw :<|>
23−-- RemoteHost :<|>
23+ RemoteHost :> GET :<|>
24 ReqBody '[JSON] Int :> GET :<|>
24 ReqBody '[JSON] Int :> GET :<|>
25-- Get '[JSON] (Headers '[Header "foo" Int] ()) :<|>
25-- Get '[JSON] (Headers '[Header "foo" Int] ()) :<|>
26 "foo" :> GET :<|>
26 "foo" :> GET :<|>