diff --git a/src/Nri/Ui/Carousel/V2.elm b/src/Nri/Ui/Carousel/V2.elm index 10a16096..e504df9d 100644 --- a/src/Nri/Ui/Carousel/V2.elm +++ b/src/Nri/Ui/Carousel/V2.elm @@ -137,23 +137,22 @@ Returns: -} viewWithTabControls : - { cfg - | selected : id - , slides : - List - { id : id - , idString : String - , name : String - , visibleLabelId : Maybe String - , slideHtml : Html msg - , tabControlHtml : Html Never - } - , tabControlStyles : Bool -> List Style - , tabControlListStyles : List Style - , role : Role - , name : String - , visibleLabelId : Maybe String - , focusAndSelect : { select : id, focus : Maybe String } -> msg + { selected : id + , slides : + List + { id : id + , idString : String + , name : String + , visibleLabelId : Maybe String + , slideHtml : Html msg + , tabControlHtml : Html Never + } + , tabControlStyles : Bool -> List Style + , tabControlListStyles : List Style + , role : Role + , name : String + , visibleLabelId : Maybe String + , focusAndSelect : { select : id, focus : Maybe String } -> msg } -> { controls : Html msg @@ -227,7 +226,16 @@ viewWithCombinedControls : viewWithCombinedControls config = let { controls, slides, containerAttributes } = - viewWithTabControls config + viewWithTabControls + { selected = config.selected + , slides = config.slides + , tabControlStyles = config.tabControlStyles + , tabControlListStyles = config.tabControlListStyles + , role = config.role + , name = config.name + , visibleLabelId = config.visibleLabelId + , focusAndSelect = config.focusAndSelect + } { viewPreviousButton, viewNextButton } = case findPreviousAndNextSlides .id config of diff --git a/tests/Spec/Nri/Ui/Carousel.elm b/tests/Spec/Nri/Ui/Carousel.elm index c94faa83..9e96c271 100644 --- a/tests/Spec/Nri/Ui/Carousel.elm +++ b/tests/Spec/Nri/Ui/Carousel.elm @@ -278,7 +278,6 @@ viewWithTabControlsSpec = VisibleLabel -> Just "carousel-label" , focusAndSelect = FocusAndSelect - , announceAndSelect = AnnounceAndSelect } |> (\{ controls, slides, containerAttributes } -> section containerAttributes [ slides, controls ]