git.iko.soy/servant
on master help sign in
Fix docs for ToSamples
f0c2284Nickolay Kudasov
servant-docs/src/Servant/Docs.hs+1−1
compare with master
unifiedsplit
@@ -78,7 +78,7 @@
78-- > "Get the greeting message selected language. Default is en."
78-- > "Get the greeting message selected language. Default is en."
79-- > Normal
79-- > Normal
80-- >
80-- >
81−-- > instance ToSample Greet Greet where
81+-- > instance ToSample Greet where
82-- > toSample _ = Just $ Greet "Hello, haskeller!"
82-- > toSample _ = Just $ Greet "Hello, haskeller!"
83-- >
83-- >
84-- > toSamples _ =
84-- > toSamples _ =
servant-docs/src/Servant/Docs/Internal.hs+1−1
@@ -394,7 +394,7 @@ class HasDocs layout where
394-- > instance FromJSON Greet
394-- > instance FromJSON Greet
395-- > instance ToJSON Greet
395-- > instance ToJSON Greet
396-- >
396-- >
397−-- > instance ToSample Greet Greet where
397+-- > instance ToSample Greet where
398-- > toSamples _ = singleSample g
398-- > toSamples _ = singleSample g
399-- >
399-- >
400-- > where g = Greet "Hello, haskeller!"
400-- > where g = Greet "Hello, haskeller!"