diff --git a/servant-docs/src/Servant/Docs.hs b/servant-docs/src/Servant/Docs.hs index 5fe2c1ed..ac908c96 100644 --- a/servant-docs/src/Servant/Docs.hs +++ b/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 _ = diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index 8cb9a2db..f02d8ac5 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/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!"