-- | Parse a fuzzy set.
parseNamedFuzzy :: String -> Either ParseError NamedFuzzy
parseNamedFuzzy = parse (contents getNamedFuzzy) "<stdin>"
parseNamedFuzzy :: String -> Either ParseError NamedFuzzy
parseNamedFuzzy = parse (contents getNamedFuzzy) "<stdin>"
parseNamedFuzzy = parse (contents getNamedFuzzy) "<stdin>"