Fixed buttons not being displayed properly in Safari (#5)
commit3af33a79d97dd1e51e45b8ab1e05c8f1fc32d24a
authoriko <ilyakooo0@gmail.com>
dateFri 11 Dec 2020, 12:02 (6 years ago)
parentdd29e95
octopod-frontend/src/Frontend/Utils.hs+1−1
@@ -228,7 +228,7 @@ aButtonClassEnabled cl lbl dDyn = do
228228 True -> "class" =: cl <> "type" =: "button"
229229 False -> "class" =: (cl <> " button--disabled")
230230 <> "type" =: "button" <> "disabled" =: ""
231− (bEl, _) <- elDynAttr' "a" attrDyn $
231+ (bEl, _) <- elDynAttr' "button" attrDyn $
232232 text lbl
233233 return $ domEvent Click bEl
234234
octopod-frontend/src/Page/Deployments.hs+1−1
@@ -111,7 +111,7 @@ deploymentsHeadWidget enabledSearch okUpdEv =
111111 (deleteEl, _) <- elClass' "button" "input__clear-type spot spot--cancel" $
112112 text "Delete"
113113 pure termDyn'
114− (nsEl, _) <- elClass' "a"
114+ (nsEl, _) <- elClass' "button"
115115 "page__action button button--add popup-handler" $ text "New deployment"
116116 pure $ (domEvent Click nsEl, value termDyn)
117117