result :: Parser DAResult
result = (char '\'' >> authResult) <* char '\'' -- backward compatibility
     <|> authResult
  where
    authResult :: Parser DAResult
    authResult = sym2enum resultWords [minBound..maxBound]
result :: Parser DAResult
result = (char '\'' >> authResult) <* char '\'' -- backward compatibility
     <|> authResult
  where
    authResult :: Parser DAResult
    authResult = sym2enum resultWords [minBound..maxBound]
result = (char '\'' >> authResult) <* char '\'' -- backward compatibility
     <|> authResult
  where
    authResult :: Parser DAResult
    authResult = sym2enum resultWords [minBound..maxBound]