add RemoteHost to ComprehensiveAPI

2016-01-18 11:01:30 +01:00 · 2016-01-18 11:01:30 +01:00 · 290e4ef1ba
commit 290e4ef1ba
parent efd12053af
1 changed files with 1 additions and 1 deletions
--- a/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs
+++ b/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs
@ -20,7 +20,7 @@ type ComprehensiveAPI =
  QueryParams "foo" Int :> GET :<|>
  QueryFlag "foo" :> GET :<|>
 -- Raw :<|>
-- RemoteHost :<|>
+  RemoteHost :> GET :<|>
  ReqBody '[JSON] Int :> GET :<|>
 -- Get '[JSON] (Headers '[Header "foo" Int] ()) :<|>
  "foo" :> GET :<|>