eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

S.Docs: added instance ToSample ()

Browse source
This commit is contained in:
Sönke Hahn 2014-11-13 15:11:32 +08:00
parent 82ff0a6ad7
commit 69041cc39e
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Servant/Docs.hs
View file

@ -322,6 +322,9 @@ class HasDocs layout where
class ToJSON a => ToSample a where class ToJSON a => ToSample a where
toSample :: Proxy a -> Maybe ByteString toSample :: Proxy a -> Maybe ByteString
instance ToSample () where
toSample Proxy = Just $ encode ()
-- | The class that helps us automatically get documentation -- | The class that helps us automatically get documentation
-- for GET parameters. -- for GET parameters.
-- --