git.iko.soy/servant
on master help sign in
fix build error
commit71142b08d4f78d6ed2dfb335f7fa3c0312595743 authorAlp Mestanogullari <alpmestan@gmail.com> dateSun 4 Jan 2015, 16:44 (12 years ago) parent0edde41
1 file changed+2−2
compare with master
unifiedsplit
src/Servant/Docs.hs+2−2
src/Servant/Docs.hs+2−2
@@ -351,10 +351,10 @@ class ToJSON a => ToSample a where
351351 toSamples = maybe [] (return . ("",)) s
352352 where s = toSample :: Maybe a
353353
354−sampleByteString :: ToSample a => Proxy a -> Maybe ByteString
354+sampleByteString :: forall a. ToSample a => Proxy a -> Maybe ByteString
355355sampleByteString Proxy = fmap encodePretty (toSample :: Maybe a)
356356
357−sampleByteStrings :: ToSample a => Proxy a -> [(Text, ByteString)]
357+sampleByteStrings :: forall a. ToSample a => Proxy a -> [(Text, ByteString)]
358358sampleByteStrings Proxy = samples & traverse._2 %~ encodePretty
359359
360360 where samples = toSamples :: [(Text, a)]