From 69041cc39e2c8040561a7b2e33d603ebaf3798d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=B6nke=20Hahn?= Date: Thu, 13 Nov 2014 15:11:32 +0800 Subject: [PATCH] S.Docs: added instance ToSample () --- src/Servant/Docs.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Servant/Docs.hs b/src/Servant/Docs.hs index beeec4ec..5998eef4 100644 --- a/src/Servant/Docs.hs +++ b/src/Servant/Docs.hs @@ -322,6 +322,9 @@ class HasDocs layout where class ToJSON a => ToSample a where toSample :: Proxy a -> Maybe ByteString +instance ToSample () where + toSample Proxy = Just $ encode () + -- | The class that helps us automatically get documentation -- for GET parameters. --