Using the new Xmobar.configFromArgs

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Top.hs b/src/Top.hs
index 8a74ad5..5366268 100644
--- a/src/Top.hs
+++ b/src/Top.hs
@@ -23,7 +23,7 @@ dynNetwork p = DynNetwork (p <~> ["-t", "↑ <tx> ↓ <rx>"
 
 config p = (baseConfig p) {
   position = TopSize C 100 defaultHeight
-  , textOffset = 16
+  , textOffset = defaultHeight - 8
   , commands = [ Run (topProc p)
                , Run (wireless p)
                , Run (multiCPU p)
@@ -41,4 +41,5 @@ config p = (baseConfig p) {
 }
 
 main :: IO ()
-main = palette >>= xmobar . config
+main =
+  palette >>= configFromArgs . config >>= xmobar