diff --git a/servant-server/src/Servant/Server/Internal.hs b/servant-server/src/Servant/Server/Internal.hs
index ad44c125d..56da9d3f0 100644
--- a/servant-server/src/Servant/Server/Internal.hs
+++ b/servant-server/src/Servant/Server/Internal.hs
@@ -292,11 +292,11 @@ noContentRouter method status action = leafRouter route'
                     env request respond $ \ _output ->
                       Route $ responseLBS status [] ""
 
-newtype Wrapped a = Wrapped a
+newtype Naked a = Naked a
 
 type family Wrap a where
   Wrap (Headers x a) = Headers x a
-  Wrap a = Wrapped a
+  Wrap a = Naked a
 
 class ExtractHeadersResponse orig wrapped where
   type HandlerResponse orig wrapped :: *
@@ -304,9 +304,9 @@ class ExtractHeadersResponse orig wrapped where
 
   extractHeadersResponse :: HandlerResponse orig wrapped -> (([(HeaderName, B.ByteString)]), ExtractedValue orig wrapped)
 
-instance ExtractHeadersResponse a (Wrapped a) where
-  type HandlerResponse a (Wrapped a) = a
-  type ExtractedValue a (Wrapped a) = a
+instance ExtractHeadersResponse a (Naked a) where
+  type HandlerResponse a (Naked a) = a
+  type ExtractedValue a (Naked a) = a
 
   extractHeadersResponse :: a -> (([(HeaderName, B.ByteString)]), a)
   extractHeadersResponse x = ([], x)