Compare commits
1 Commits
a42d6a5a4f
...
e36ad35d37
Author | SHA1 | Date | |
---|---|---|---|
e36ad35d37 |
@ -402,7 +402,7 @@ render state
|
||||
[ HH.div [ HP.classes [C.container, C.has_text_centered] ]
|
||||
[ HH.p [ HP.classes [C.subtitle] ]
|
||||
[ HH.strong_ [ HH.u_ [ HH.text "net libre" ]]
|
||||
, HH.text ": providing free domains since 2013!"
|
||||
, HH.text ": providing free domains since 2015!"
|
||||
]
|
||||
]
|
||||
]
|
||||
|
@ -298,7 +298,7 @@ default_empty_rr :: ResourceRecord
|
||||
default_empty_rr = default_rr_A
|
||||
|
||||
default_qualifier_str = "hard_fail" :: String
|
||||
default_caa = { flag: 0, tag: CAA.Issue, value: "letsencrypt.org" } :: CAA.CAA
|
||||
default_caa = { flag: 0, tag: CAA.Issue, value: "" } :: CAA.CAA
|
||||
|
||||
initialState :: Input -> State
|
||||
initialState domain =
|
||||
@ -476,9 +476,6 @@ render state
|
||||
, Bulma.selection_field'' "tagCAA" "Tag" CAA_tag (A.zip CAA.tags_txt CAA.tags_raw)
|
||||
CAA.Issue
|
||||
(Just (fromMaybe default_caa state._currentRR.caa).tag)
|
||||
, HH.div [HP.classes [C.notification, C.is_warning]]
|
||||
[ Bulma.p "⚠️ CAA entries aren't thoroughly verified, yet. Also, do not put quotes."
|
||||
]
|
||||
, Bulma.box_input "valueCAA" "Value" "" (updateForm Field_CAA_value)
|
||||
(fromMaybe default_caa state._currentRR.caa).value
|
||||
]
|
||||
@ -887,13 +884,7 @@ handleAction = case _ of
|
||||
|
||||
CAA_tag v -> do
|
||||
state <- H.get
|
||||
let new_tag = fromMaybe CAA.Issue $ CAA.tags A.!! v
|
||||
new_value = case new_tag of
|
||||
CAA.Issue -> "letsencrypt.org"
|
||||
CAA.ContactEmail -> "contact@example.com"
|
||||
CAA.ContactPhone -> "0203040506"
|
||||
_ -> ""
|
||||
new_caa = (fromMaybe default_caa state._currentRR.caa) { tag = new_tag, value = new_value }
|
||||
let new_caa = (fromMaybe default_caa state._currentRR.caa) { tag = fromMaybe CAA.Issue $ CAA.tags A.!! v }
|
||||
H.modify_ _ { _currentRR { caa = Just new_caa } }
|
||||
|
||||
SRV_Protocol v -> H.modify_ _ { _currentRR { protocol = RR.srv_protocols A.!! v } }
|
||||
|
Loading…
Reference in New Issue
Block a user