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

fix build error

Browse source
This commit is contained in:
Alp Mestanogullari 2015-01-04 16:44:23 +01:00
parent 0edde415bd
commit 71142b08d4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Servant/Docs.hs
View file

@ -351,10 +351,10 @@ class ToJSON a => ToSample a where
toSamples = maybe [] (return . ("",)) s toSamples = maybe [] (return . ("",)) s
where s = toSample :: Maybe a 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) 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 sampleByteStrings Proxy = samples & traverse._2 %~ encodePretty
where samples = toSamples :: [(Text, a)] where samples = toSamples :: [(Text, a)]