From e50dcbaa63121770f4bdeccd9093b58f7ad77ccd Mon Sep 17 00:00:00 2001
From: Tim Emiola <adetokunbo@users.noreply.github.com>
Date: Sat, 25 Aug 2018 10:01:15 +0900
Subject: [PATCH] Remove an unused variable

---
 servant-docs/src/Servant/Docs/Internal.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs
index 452176c5..9bf5bf12 100644
--- a/servant-docs/src/Servant/Docs/Internal.hs
+++ b/servant-docs/src/Servant/Docs/Internal.hs
@@ -866,7 +866,6 @@ instance {-# OVERLAPPABLE #-}
           t = Proxy :: Proxy '[ct]
           method' = reflectMethod (Proxy :: Proxy method)
           status = fromInteger $ natVal (Proxy :: Proxy status)
-          p = Proxy :: Proxy a
 
 instance {-# OVERLAPPING #-}
         (ToSample a, AllMimeRender (ct ': cts) a, KnownNat status