cairo: box drawing

1 files changed, 14 insertions, 10 deletions

diff --git a/src/Xmobar/Run/Parsers.hs b/src/Xmobar/Run/Parsers.hs
index 982ef71..c0f3104 100644
--- a/src/Xmobar/Run/Parsers.hs
+++ b/src/Xmobar/Run/Parsers.hs
@@ -49,16 +49,20 @@ data BoxBorder = BBTop
                | BBRight
                | BBHBoth
                | BBFull
-                 deriving ( Read, Eq, Show )
-
-data Box = Box BoxBorder BoxOffset CInt String BoxMargins deriving (Eq, Show)
-
-data TextRenderInfo =
-    TextRenderInfo { tColorsString   :: String
-                   , tBgTopOffset    :: Int32
-                   , tBgBottomOffset :: Int32
-                   , tBoxes          :: [Box]
-                   } deriving Show
+                 deriving (Read, Eq, Show)
+
+data Box = Box { bBorder :: BoxBorder
+               , bOffset :: BoxOffset
+               , bWidth :: CInt
+               , bColor :: String
+               , bMargins :: BoxMargins
+               } deriving (Eq, Show)
+
+data TextRenderInfo = TextRenderInfo { tColorsString   :: String
+                                     , tBgTopOffset    :: Int32
+                                     , tBgBottomOffset :: Int32
+                                     , tBoxes          :: [Box]
+                                     } deriving Show
 
 type FontIndex   = Int