Rename Wrapped to Naked

Author: Gaël Deest

servant-server/src/Servant/Server/Internal.hs

@@ -292,21 +292,21 @@ 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 :: *
   type ExtractedValue orig wrapped :: *
 
   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)