module Network.API.Mandrill.Utils where
import Data.Char
modRejectReason :: String -> String
modRejectReason :: String -> String
modRejectReason [] = []
modRejectReason (Char
x:String
xs) = Char -> Char
toLower Char
x Char -> String -> String
forall a. a -> [a] -> [a]
: String -> String
go String
xs
where
go :: String -> String
go [] = []
go (Char
y:String
ys) = case Char -> Bool
isUpper Char
y of
Bool
False -> Char
y Char -> String -> String
forall a. a -> [a] -> [a]
: String -> String
go String
ys
Bool
True -> Char
'-' Char -> String -> String
forall a. a -> [a] -> [a]
: Char -> Char
toLower Char
y Char -> String -> String
forall a. a -> [a] -> [a]
: String -> String
go String
ys