Delete button for removing domains.
parent
576e036501
commit
54e7e77c5a
|
@ -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 ]
|
||||
]
|
||||
|
|
Loading…
Reference in New Issue