From 290e4ef1ba675ae8ea6452fe86c3946fc71a6491 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=B6nke=20Hahn?= <soenkehahn@gmail.com>
Date: Mon, 18 Jan 2016 11:01:30 +0100
Subject: [PATCH] add RemoteHost to ComprehensiveAPI

---
 servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs b/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs
index 465d2885..68c5fbc1 100644
--- 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 :<|>