mirror of
https://github.com/typeable/inflections-hs.git
synced 2024-10-26 08:08:21 +03:00
Accept empty input
This commit is contained in:
parent
e379e7ea41
commit
7e4ddb4508
@ -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
|
||||
|
@ -8,7 +8,6 @@ import Data.Char (toLower)
|
||||
import Data.List (intercalate)
|
||||
|
||||
|
||||
|
||||
underscore :: String -> Either ParseError String
|
||||
underscore s = underscoreCustom [] s
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user