mkBorderDemo :: (T.Text, BS.BorderStyle) -> Widget
mkBorderDemo (styleName, sty) =
    withBorderStyle sty $
    B.borderWithLabel "label" $
    vLimit 5 $
    C.vCenter $
    txt $ "  " <> styleName <> " style  "
mkBorderDemo :: (T.Text, BS.BorderStyle) -> Widget
mkBorderDemo (styleName, sty) =
    withBorderStyle sty $
    B.borderWithLabel "label" $
    vLimit 5 $
    C.vCenter $
    txt $ "  " <> styleName <> " style  "
mkBorderDemo (styleName, sty) =
    withBorderStyle sty $
    B.borderWithLabel "label" $
    vLimit 5 $
    C.vCenter $
    txt $ "  " <> styleName <> " style  "