servant/servant-foreign/src/Servant/Foreign/Inflections.hs

55 lines
1.6 KiB
Haskell
Raw Normal View History

{-# LANGUAGE OverloadedStrings #-}
2016-02-17 22:47:30 +01:00
module Servant.Foreign.Inflections
( concatCase
, snakeCase
, camelCase
-- lenses
, concatCaseL
, snakeCaseL
, camelCaseL
) where
2018-06-29 21:08:26 +02:00
import Control.Lens hiding
(cons)
import qualified Data.Char as C
import Data.Text hiding
(map)
import Prelude hiding
(head, tail)
2016-02-17 22:47:30 +01:00
import Servant.Foreign.Internal
-- | Simply concat each part of the FunctionName together.
--
-- @[ "get", "documents", "by", "id" ] → "getdocumentsbyid"@
concatCase :: FunctionName -> Text
concatCase = view concatCaseL
2016-02-17 22:47:30 +01:00
concatCaseL :: Getter FunctionName Text
concatCaseL = _FunctionName . to mconcat
-- | Use the snake_case convention.
-- Each part is separated by a single underscore character.
--
-- @[ "get", "documents", "by", "id" ] → "get_documents_by_id"@
snakeCase :: FunctionName -> Text
snakeCase = view snakeCaseL
2016-02-17 22:47:30 +01:00
snakeCaseL :: Getter FunctionName Text
snakeCaseL = _FunctionName . to (intercalate "_")
-- | Use the camelCase convention.
-- The first part is lower case, every other part starts with an upper case character.
--
-- @[ "get", "documents", "by", "id" ] → "getDocumentsById"@
camelCase :: FunctionName -> Text
camelCase = view camelCaseL
2016-02-17 22:47:30 +01:00
camelCaseL :: Getter FunctionName Text
camelCaseL = _FunctionName . to convert
2016-02-17 22:47:30 +01:00
where
convert [] = ""
convert (p:ps) = mconcat $ p : map capitalize ps
capitalize "" = ""
capitalize name = C.toUpper (head name) `cons` tail name