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

Simplify encoding code slightly more

Browse source
This commit is contained in:
Thomas Sutton 2015-02-19 13:19:29 +11:00
parent d62c61224b
commit f303f6176a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Servant/Docs.hs
View file

@ -462,7 +462,7 @@ sampleByteStrings
-> [(Text, M.MediaType, ByteString)] -> [(Text, M.MediaType, ByteString)]
sampleByteStrings ctypes@Proxy Proxy = sampleByteStrings ctypes@Proxy Proxy =
let samples = toSamples :: [(Text, a)] let samples = toSamples :: [(Text, a)]
enc (t, s) = (\(m,b) -> (t,m,b)) <$> amr ctypes s enc (t, s) = uncurry (t,,) <$> amr ctypes s
in concatMap enc samples in concatMap enc samples
-- | The class that helps us automatically get documentation -- | The class that helps us automatically get documentation