Minor cosmetic corrections

Text/Inflections/Camelize.hs

@@ -47,5 +47,5 @@ camelizeCustom
   -> Text   -- ^ The camelized 'Text'
 camelizeCustom _ []     = ""
 camelizeCustom c (x:xs) = T.concat $
-  (mapWord (if c then T.toTitle else T.toLower) x) : (mapWord T.toTitle <$> xs)
+  mapWord (if c then T.toTitle else T.toLower) x : (mapWord T.toTitle <$> xs)
 {-# INLINE camelizeCustom #-}

Text/Inflections/Parameterize.hs

@@ -38,7 +38,7 @@ parameterizeCustom :: Transliterations -> Text -> Text
 parameterizeCustom m txt = (T.intercalate "-" . T.words) (T.unfoldr f ("", txt))
   where
     f ("", t) = uncurry g <$> T.uncons t
-    f ((x:xs), t) = Just (x, (xs, t))
+    f (x:xs, t) = Just (x, (xs, t))
     g x xs
       | (isAscii x && isAlphaNum x) || x == '_' = (toLower x, ("", xs))
       | isPunctuation x = (' ', ("", xs))

Text/Inflections/Transliterate.hs

@@ -45,7 +45,7 @@ transliterateCustom
 transliterateCustom replacement m txt = T.unfoldr f ("", txt)
   where
     f ("", t) = uncurry g <$> T.uncons t
-    f ((x:xs), t) = Just (x, (xs, t))
+    f (x:xs, t) = Just (x, (xs, t))
     g x xs =
       if isAscii x
         then (x, ("", xs))