From b4a75feca0a0316a41ebc6570ea4cfad361b11c5 Mon Sep 17 00:00:00 2001 From: Philippe PITTOLI Date: Wed, 24 Apr 2024 23:14:58 +0200 Subject: [PATCH] Zone page: one fewer exclamation point. --- src/App/Page/Zone.purs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/App/Page/Zone.purs b/src/App/Page/Zone.purs index 59f430e..911af3e 100644 --- a/src/App/Page/Zone.purs +++ b/src/App/Page/Zone.purs @@ -1154,8 +1154,8 @@ render_resources records show_token_or_btn rr = case rr.rrtype of - "A" -> Bulma.btn_ (C.is_small) "🏁​ Ask for a token!" (NewToken rr.rrid) - "AAAA" -> Bulma.btn_ (C.is_small) "🏁​ Ask for a token!" (NewToken rr.rrid) + "A" -> Bulma.btn_ (C.is_small) "🏁​ Ask for a token" (NewToken rr.rrid) + "AAAA" -> Bulma.btn_ (C.is_small) "🏁​ Ask for a token" (NewToken rr.rrid) _ -> HH.text "" fancy_qualifier_display :: RR.Qualifier -> String