karchnu
/
halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Delete button for removing domains.

beta
Philippe Pittoli 2023-07-15 18:13:18 +02:00
parent 576e036501
commit 54e7e77c5a
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/App/DomainListInterface.purs
View File

@ -13,7 +13,6 @@ module App.DomainListInterface where
import Prelude (Unit, bind, discard, map, otherwise, pure, ($), (/=), (<<<), (<>))
import CSSClasses as CSSClasses
import Data.Array as A
import Data.ArrayBuffer.Types (ArrayBuffer)
import Data.Either (Either(..))
@ -211,13 +210,13 @@ render { accepted_domains, my_domains, newDomainForm, wsUp, active_modal }
= [ HH.button
[ HP.type_ HP.ButtonSubmit
, HE.onClick \_ -> DeleteDomainModal domain
, HP.classes CSSClasses.button
, HP.classes $ C.button <> C.is_danger
]
[ HH.text "x" ]
[ HH.text "delete" ]
, HH.button
[ HP.type_ HP.ButtonSubmit
, HE.onClick \_ -> EnterDomain domain
, HP.classes CSSClasses.button
, HP.classes C.button
]
[ HH.text domain ]
]