Commit 370d9087 authored by Will Thompson's avatar Will Thompson

details: silence hlint complaning about a redundant 'do'

This isn't the change hlint proposed, but it eliminates binding and
immediately deconstructing 's_'.
parent 735b0d56
Pipeline #11437 passed with stages
in 3 minutes and 34 seconds
......@@ -113,15 +113,13 @@ detailsViewGetTop = toWidget . detailsGrid
setOptionalRow :: OptionalRow
-> Maybe String
-> IO ()
setOptionalRow (caption, label) s_ = do
case s_ of
Just s -> do
labelSetText label s
widgetShow label
widgetShow caption
Nothing -> do
widgetHide label
widgetHide caption
setOptionalRow (caption, label) (Just s) = do
labelSetText label s
widgetShow label
widgetShow caption
setOptionalRow (caption, label) Nothing = do
widgetHide label
widgetHide caption
detailsViewUpdate :: DetailsView
-> Detailed Message
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment