From f7d63badc742d07dc95f4f6dfe19f1e52bd2ccab Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Mon, 11 Jul 2016 14:51:08 +0300 Subject: [PATCH] =?UTF-8?q?Minor=20improvement=20in=20docs=20for=20?= =?UTF-8?q?=E2=80=98toCamelCased=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Text/Inflections.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Text/Inflections.hs b/Text/Inflections.hs index 401da2f..6c7e814 100644 --- a/Text/Inflections.hs +++ b/Text/Inflections.hs @@ -147,7 +147,10 @@ toDashed = liftM dasherize . handleEither . parseCamelCase [] -- "FooBarBazz" -- >>> toCamelCased False "foo_bar_bazz" -- "fooBarBazz" -toCamelCased :: MonadThrow m => Bool -> Text -> m Text +toCamelCased :: MonadThrow m + => Bool -- ^ Capitalize the first character + -> Text -- ^ Input + -> m Text -- ^ Ouput toCamelCased t = liftM (camelizeCustom t) . handleEither . parseSnakeCase [] {-# INLINE toCamelCased #-}