git.iko.soy/typeable/servant
on master help sign in
fix build error
71142b0Alp Mestanogullari
src/Servant/Docs.hs+2−2
compare with master
unifiedsplit
@@ -351,10 +351,10 @@ class ToJSON a => ToSample a where
351 toSamples = maybe [] (return . ("",)) s
351 toSamples = maybe [] (return . ("",)) s
352 where s = toSample :: Maybe a
352 where s = toSample :: Maybe a
353
353
354−sampleByteString :: ToSample a => Proxy a -> Maybe ByteString
354+sampleByteString :: forall a. ToSample a => Proxy a -> Maybe ByteString
355sampleByteString Proxy = fmap encodePretty (toSample :: Maybe a)
355sampleByteString Proxy = fmap encodePretty (toSample :: Maybe a)
356
356
357−sampleByteStrings :: ToSample a => Proxy a -> [(Text, ByteString)]
357+sampleByteStrings :: forall a. ToSample a => Proxy a -> [(Text, ByteString)]
358sampleByteStrings Proxy = samples & traverse._2 %~ encodePretty
358sampleByteStrings Proxy = samples & traverse._2 %~ encodePretty
359
359
360 where samples = toSamples :: [(Text, a)]
360 where samples = toSamples :: [(Text, a)]