typeable/inflections-hs
1
0
Fork 0
mirror of https://github.com/typeable/inflections-hs.git synced 2024-10-26 08:08:21 +03:00
Code Issues Packages Projects Releases Wiki Activity

Accept empty input

Browse Source
This commit is contained in:
Justin Leitgeb 2014-03-01 09:34:29 -05:00
parent e379e7ea41
commit 7e4ddb4508
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/Inflections/Parse/CamelCase.hs
View File

@ -17,6 +17,6 @@ word = do
parser :: P.Stream s m Char => [String] -> P.ParsecT s u m [Word]
parser acronyms = do
ws <- P.many1 $ P.choice [ acronym acronyms, word ]
ws <- P.many $ P.choice [ acronym acronyms, word ]
P.eof
return ws

1
Text/Inflections/Underscore.hs
View File

@ -8,7 +8,6 @@ import Data.Char (toLower)
import Data.List (intercalate)
underscore :: String -> Either ParseError String
underscore s = underscoreCustom [] s