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