From 71142b08d4f78d6ed2dfb335f7fa3c0312595743 Mon Sep 17 00:00:00 2001 From: Alp Mestanogullari Date: Sun, 4 Jan 2015 16:44:23 +0100 Subject: [PATCH] fix build error --- src/Servant/Docs.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Servant/Docs.hs b/src/Servant/Docs.hs index 26f794c5..c1f4aa92 100644 --- a/src/Servant/Docs.hs +++ b/src/Servant/Docs.hs @@ -351,10 +351,10 @@ class ToJSON a => ToSample a where toSamples = maybe [] (return . ("",)) s where s = toSample :: Maybe a -sampleByteString :: ToSample a => Proxy a -> Maybe ByteString +sampleByteString :: forall a. ToSample a => Proxy a -> Maybe ByteString sampleByteString Proxy = fmap encodePretty (toSample :: Maybe a) -sampleByteStrings :: ToSample a => Proxy a -> [(Text, ByteString)] +sampleByteStrings :: forall a. ToSample a => Proxy a -> [(Text, ByteString)] sampleByteStrings Proxy = samples & traverse._2 %~ encodePretty where samples = toSamples :: [(Text, a)]