Document non-lower-case showTextData alternative

fizruk#82
tysonzero · Sep 24, 2018 · bc9cca3 · bc9cca3
1 parent 1beba5a
commit bc9cca3
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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"
 --