S.Docs: added instance ToSample ()
commit69041cc39e2c8040561a7b2e33d603ebaf3798d6
authorSönke Hahn <soenke.hahn@zalora.com>
dateThu 13 Nov 2014, 15:11 (12 years ago)
parent82ff0a6
src/Servant/Docs.hs+3
@@ -322,6 +322,9 @@ class HasDocs layout where
322322class ToJSON a => ToSample a where
323323 toSample :: Proxy a -> Maybe ByteString
324324
325+instance ToSample () where
326+ toSample Proxy = Just $ encode ()
327+
325328-- | The class that helps us automatically get documentation
326329-- for GET parameters.
327330--