Add toEncodedUrlPiece

fizruk · Feb 7, 2017 · a10979b · a10979b
1 parent f55c9db
commit a10979b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/http-api-data.cabal b/http-api-data.cabal
@@ -41,6 +41,7 @@ library
                    , bytestring
                    , containers
                    , hashable
+                   , http-types
                    , text               >= 0.5
                    , time
                    , time-locale-compat >=0.1.1.0 && <0.2

diff --git a/src/Web/Internal/HttpApiData.hs b/src/Web/Internal/HttpApiData.hs
@@ -55,6 +55,9 @@ import qualified Data.UUID.Types as UUID
 
 import Data.Typeable (Typeable)
 import Data.Data (Data)
+import qualified Data.ByteString.Builder as BS
+import qualified Network.HTTP.Types as H
+
 
 -- $setup
 -- >>> data BasicAuthToken = BasicAuthToken Text deriving (Show)
@@ -70,6 +73,10 @@ class ToHttpApiData a where
   toUrlPiece :: a -> Text
   toUrlPiece = toQueryParam
 
+  -- | Convert to a URL path piece, making sure to encode any special chars
+  toEncodedUrlPiece :: a -> BS.Builder
+  toEncodedUrlPiece = H.encodePathSegmentsRelative . (:[]) . toUrlPiece
+
   -- | Convert to HTTP header value.
   toHeader :: a -> ByteString
   toHeader = encodeUtf8 . toUrlPiece