apply some suggestions from elm-review

This commit is contained in:
Juan Edi 2021-05-20 19:08:52 -03:00
parent 17afb72655
commit c760a6bc7e

View File

@ -95,7 +95,6 @@ import Nri.Ui.ClickableSvg.V2 as ClickableSvg
import Nri.Ui.Colors.V1 as Colors
import Nri.Ui.Fonts.V1 as Fonts
import Nri.Ui.Html.Attributes.V2 as ExtraAttributes
import Nri.Ui.Svg.V1 as Svg
import Nri.Ui.UiIcon.V1 as UiIcon
import String.Extra
@ -558,7 +557,7 @@ viewTooltip_ { trigger, id } tooltip =
]
]
[ trigger
([ if tooltip.isOpen then
((if tooltip.isOpen then
case tooltip.purpose of
PrimaryLabel ->
Aria.labeledBy id
@ -572,8 +571,8 @@ viewTooltip_ { trigger, id } tooltip =
-- invalid and jumping to a reference would not work, so we
-- skip labels and descriptions if the tooltip is closed.
Attributes.property "data-closed-tooltip" Encode.null
]
++ buttonEvents
)
:: buttonEvents
++ tooltip.triggerAttributes
)
, hoverBridge tooltip
@ -589,7 +588,7 @@ viewTooltip_ { trigger, id } tooltip =
{-| This is a "bridge" for the cursor to move from trigger content to tooltip, so the user can click on links, etc.
-}
hoverBridge : Tooltip msg -> Html msg
hoverBridge { isOpen, direction, alignment } =
hoverBridge { isOpen, direction } =
let
bridgeLength =
tailSize + 5
@ -808,14 +807,6 @@ viewCloseTooltipOverlay msg =
[]
tooltipContainerStyles : List Style
tooltipContainerStyles =
[ Css.display Css.inlineBlock
, Css.textAlign Css.left
, Css.position Css.relative
]
-- TAILS