diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index 14fafd6..2501a08 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -778,13 +778,11 @@ render_resources records , HH.td_ [ Bulma.p rr.name] , HH.td_ [ Bulma.p $ show rr.ttl ] , HH.td_ [ Bulma.p rr.target ] - , if rr.readonly - then HH.td_ [ Bulma.btn_readonly ] - else HH.td_ [ Bulma.btn_modify (CreateUpdateRRModal rr.rrid) ] - , if rr.readonly - then HH.td_ [ Bulma.btn_readonly ] - else HH.td_ [ Bulma.btn_delete (DeleteRRModal rr.rrid) ] - ] + ] <> if rr.readonly + then [ HH.td_ [ Bulma.btn_readonly ] ] + else [ HH.td_ [ Bulma.btn_modify (CreateUpdateRRModal rr.rrid) ] + , HH.td_ [ Bulma.btn_delete (DeleteRRModal rr.rrid) ] + ] baseRecords :: Array String baseRecords = [ "A", "AAAA", "CNAME", "TXT", "NS" ] diff --git a/src/Bulma.purs b/src/Bulma.purs index d5fa869..8c679f1 100644 --- a/src/Bulma.purs +++ b/src/Bulma.purs @@ -76,7 +76,6 @@ simple_table_header_ro , HH.th_ [ HH.text "TTL" ] , HH.th_ [ HH.text "Target" ] , HH.th_ [ HH.text "" ] - , HH.th_ [ HH.text "" ] ] ]