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