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"
 --