Remove an unused variable

2018-08-25 10:01:15 +09:00 · 2018-08-25 10:01:15 +09:00 · e50dcbaa63
commit e50dcbaa63
parent 46973b7ccf
1 changed files with 0 additions and 1 deletions
--- 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