From bc9cca3f02beb1ebab563244607470e57d136294 Mon Sep 17 00:00:00 2001 From: Daniel Smith Date: Mon, 24 Sep 2018 19:25:32 -0400 Subject: [PATCH] Document non-lower-case `showTextData` alternative #82 --- src/Web/Internal/HttpApiData.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Web/Internal/HttpApiData.hs b/src/Web/Internal/HttpApiData.hs index 12e206a..5ccf966 100644 --- a/src/Web/Internal/HttpApiData.hs +++ b/src/Web/Internal/HttpApiData.hs @@ -182,6 +182,8 @@ parseMaybeTextData parse input = -- Convert to URL piece using @'TextShow'@ instance. -- The result is always lower cased. -- +-- If you do not want lower casing try @'T.pack' . 'show'@ +-- -- >>> showTextData True -- "true" -- @@ -204,6 +206,8 @@ showTextData = T.toLower . showt -- Convert to URL piece using @'Show'@ instance. -- The result is always lower cased. -- +-- If you do not want lower casing try @'T.pack' . 'show'@ +-- -- >>> showTextData True -- "true" --