BorderDemo: nit

jtdaugherty · Aug 15, 2023 · f1e57e6 · f1e57e6
1 parent 417571b
commit f1e57e6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/programs/BorderDemo.hs b/programs/BorderDemo.hs
@@ -72,8 +72,8 @@ mkBorderDemo (styleName, sty) =
 titleAttr :: A.AttrName
 titleAttr = A.attrName "title"
 
-borderMappings :: [(A.AttrName, V.Attr)]
-borderMappings =
+attrs :: [(A.AttrName, V.Attr)]
+attrs =
     [ (B.borderAttr,         V.yellow `on` V.black)
     , (B.vBorderAttr,        fg V.cyan)
     , (B.hBorderAttr,        fg V.magenta)
@@ -82,7 +82,7 @@ borderMappings =
 
 colorDemo :: Widget ()
 colorDemo =
-    updateAttrMap (A.applyAttrMappings borderMappings) $
+    updateAttrMap (A.applyAttrMappings attrs) $
     B.borderWithLabel (withAttr titleAttr $ str "title") $
     hLimit 20 $
     vLimit 5 $