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 #-}