Fix format

This commit is contained in:
Arthur Bernardi Jordão 2024-02-05 16:56:59 -03:00
parent d74b925326
commit 8e760bb6e4
No known key found for this signature in database
GPG Key ID: D3F3D2482162BFCF

View File

@ -6,6 +6,7 @@ module Nri.Ui.Mark.V6 exposing
{-|
### Changes from V5
- Add `skipTagAnimation` for skipping balloon animations
@ -286,7 +287,8 @@ viewMarkedByBalloon config markedWith segments =
(case segments of
first :: remainder ->
first
:: viewJust (viewBalloon config) markedWith.name :: viewJust (\_ -> viewBalloonSpacer config) markedWith.name
:: viewJust (viewBalloon config) markedWith.name
:: viewJust (\_ -> viewBalloonSpacer config) markedWith.name
:: remainder
[] ->
@ -312,7 +314,7 @@ viewMarked tagStyle markedWith segments =
)
]
]
]
]
(case markedWith.name of
Just name ->
viewStartHighlightTag tagStyle markedWith name :: segments
@ -619,4 +621,3 @@ stripMarkdownSyntax markdown =
_ ->
markdown