DMARC: a small fix for consistency policy selection.
This commit is contained in:
		
							parent
							
								
									9cba4f7daf
								
							
						
					
					
						commit
						1beab72cde
					
				
					 2 changed files with 6 additions and 14 deletions
				
			
		| 
						 | 
				
			
			@ -559,9 +559,9 @@ render state
 | 
			
		|||
 | 
			
		||||
          , Bulma.hr
 | 
			
		||||
          , Bulma.div_content [Bulma.explanation Explanations.dmarc_adkim]
 | 
			
		||||
          , Bulma.selection_field "idDMARCadkim" "Consistency Policy for DKIM" DMARC_adkim DMARC.consistency_policies_txt_dkim (maybe "-" show state.dmarc.adkim)
 | 
			
		||||
          , Bulma.selection_field "idDMARCadkim" "Consistency Policy for DKIM" DMARC_adkim DMARC.consistency_policies_txt (maybe "-" show state.dmarc.adkim)
 | 
			
		||||
          , Bulma.div_content [Bulma.explanation Explanations.dmarc_aspf]
 | 
			
		||||
          , Bulma.selection_field "idDMARCaspf" "Consistency Policy for SPF"   DMARC_aspf  DMARC.consistency_policies_txt_spf  (maybe "-" show state.dmarc.aspf)
 | 
			
		||||
          , Bulma.selection_field "idDMARCaspf" "Consistency Policy for SPF"   DMARC_aspf  DMARC.consistency_policies_txt  (maybe "-" show state.dmarc.aspf)
 | 
			
		||||
 | 
			
		||||
          , Bulma.hr
 | 
			
		||||
          , Bulma.div_content [Bulma.explanation Explanations.dmarc_pct]
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -164,21 +164,13 @@ data ConsistencyPolicy
 | 
			
		|||
consistency_policies :: Array ConsistencyPolicy
 | 
			
		||||
consistency_policies = [Strict, Relaxed]
 | 
			
		||||
 | 
			
		||||
consistency_policies_txt_spf :: Array String
 | 
			
		||||
consistency_policies_txt_spf
 | 
			
		||||
consistency_policies_txt :: Array String
 | 
			
		||||
consistency_policies_txt
 | 
			
		||||
  = [ "Do not provide policy advice"
 | 
			
		||||
    , "Strict: identical domains"
 | 
			
		||||
    , "Relaxed: same organizational domain"
 | 
			
		||||
    , "Strict"
 | 
			
		||||
    , "Relaxed"
 | 
			
		||||
    ]
 | 
			
		||||
 | 
			
		||||
consistency_policies_txt_dkim :: Array String
 | 
			
		||||
consistency_policies_txt_dkim
 | 
			
		||||
  = [ "Do not provide policy advice"
 | 
			
		||||
    , "Strict: same domain"
 | 
			
		||||
    , "Relaxed: same organizational domain"
 | 
			
		||||
    ]
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
-- | Codec for just encoding a single value of type `ConsistencyPolicy`.
 | 
			
		||||
codecConsistencyPolicy :: CA.JsonCodec ConsistencyPolicy
 | 
			
		||||
codecConsistencyPolicy
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue