Fix docs for ToSamples

servant-docs/src/Servant/Docs.hs

@@ -78,7 +78,7 @@
 -- >                   "Get the greeting message selected language. Default is en."
 -- >                   Normal
 -- >
--- > instance ToSample Greet Greet where
+-- > instance ToSample Greet where
 -- >   toSample _ = Just $ Greet "Hello, haskeller!"
 -- >
 -- >   toSamples _ =

servant-docs/src/Servant/Docs/Internal.hs

@@ -394,7 +394,7 @@ class HasDocs layout where
 -- > instance FromJSON Greet
 -- > instance ToJSON Greet
 -- >
--- > instance ToSample Greet Greet where
+-- > instance ToSample Greet where
 -- >   toSamples _ = singleSample g
 -- >
 -- >     where g = Greet "Hello, haskeller!"