DMARC: fix DMARC update.
This commit is contained in:
		
							parent
							
								
									f29265fe8b
								
							
						
					
					
						commit
						9cba4f7daf
					
				
					 1 changed files with 2 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -650,7 +650,8 @@ handleAction = case _ of
 | 
			
		|||
      Just rr -> do
 | 
			
		||||
        H.modify_ _ { _currentRR = rr }
 | 
			
		||||
        _ <- case rr.rrtype of
 | 
			
		||||
          "DKIM" -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
 | 
			
		||||
          "DKIM"  -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
 | 
			
		||||
          "DMARC" -> H.modify_ _ { dmarc = fromMaybe DMARC.emptyDMARCRR rr.dmarc }
 | 
			
		||||
          _      -> pure unit
 | 
			
		||||
        H.modify_ _ { rr_modal = UpdateRRModal }
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue