diff --git a/src/App/Page/Zone.purs b/src/App/Page/Zone.purs index 2d3f7f8..284114d 100644 --- a/src/App/Page/Zone.purs +++ b/src/App/Page/Zone.purs @@ -495,7 +495,7 @@ render state ] display_domain_side = (if state._currentRR.name == (state._domain <> ".") then "" else "." <> state._domain) - newtokenbtn = Bulma.btn "🏁​ Ask for a token!" (NewToken state._currentRR.rrid) + newtokenbtn = Bulma.btn (maybe "🏁​ Ask for a token" (\_ -> "🏁​ Ask for a new token") state._currentRR.token) (NewToken state._currentRR.rrid) foot_content x = case state.rr_modal of NewRRModal _ -> [Bulma.btn_add (ValidateRR x)]