getNamedFuzzy :: Parser NamedFuzzy
getNamedFuzzy = do
  n <- identifier
  reservedOp "="
  reservedOp "{"
  fs <- getFuzzy
  reservedOp "}"
  return $ NamedFuzzy (T.pack n) fs
getNamedFuzzy :: Parser NamedFuzzy
getNamedFuzzy = do
  n <- identifier
  reservedOp "="
  reservedOp "{"
  fs <- getFuzzy
  reservedOp "}"
  return $ NamedFuzzy (T.pack n) fs
getNamedFuzzy = do
  n <- identifier
  reservedOp "="
  reservedOp "{"
  fs <- getFuzzy
  reservedOp "}"
  return $ NamedFuzzy (T.pack n) fs