From 5b5f5304063b92b6b72f17dc9442fc473dfcba5a Mon Sep 17 00:00:00 2001 From: Alp Mestanogullari Date: Mon, 24 Nov 2014 16:22:55 +0100 Subject: [PATCH] fix Docs haddocks --- src/Servant/Docs.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/Servant/Docs.hs b/src/Servant/Docs.hs index 527fc1b8..b7c7703e 100644 --- a/src/Servant/Docs.hs +++ b/src/Servant/Docs.hs @@ -34,7 +34,6 @@ -- > import Data.Proxy -- > import Data.Text -- > import Servant --- > import Servant.Docs -- > -- > -- our type for a Greeting message -- > data Greet = Greet { _msg :: Text } @@ -46,7 +45,7 @@ -- > -- > -- we provide a sample value for the 'Greet' type -- > instance ToSample Greet where --- > toSample Proxy = Just (encode g) +-- > toSample = Just g -- > -- > where g = Greet "Hello, haskeller!" -- > @@ -97,7 +96,7 @@ module Servant.Docs , Action, captures, params, rqbody, response, defAction , single - , -- * Useful modules when defining your own instances + , -- * Useful modules when defining your doc printers module Control.Lens , module Data.Monoid ) where @@ -313,7 +312,7 @@ class HasDocs layout where -- > instance ToJSON Greet -- > -- > instance ToSample Greet where --- > toSample Proxy = Just (encode g) +-- > toSample = Just g -- > -- > where g = Greet "Hello, haskeller!" class ToJSON a => ToSample a where