From f303f6176a4648f8803c4e4145f186cf50e100df Mon Sep 17 00:00:00 2001
From: Thomas Sutton <me@thomas-sutton.id.au>
Date: Thu, 19 Feb 2015 13:19:29 +1100
Subject: [PATCH] Simplify encoding code slightly more

---
 src/Servant/Docs.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Servant/Docs.hs b/src/Servant/Docs.hs
index 2e32001f..d49ce877 100644
--- a/src/Servant/Docs.hs
+++ b/src/Servant/Docs.hs
@@ -462,7 +462,7 @@ sampleByteStrings
     -> [(Text, M.MediaType, ByteString)]
 sampleByteStrings ctypes@Proxy Proxy =
     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
 
 -- | The class that helps us automatically get documentation