Some more restructuring, WIP

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Phi.hs b/src/Phi.hs
index cea4ecf..43ceebc 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -1,3 +1,4 @@
+import Phi.Phi
 import Phi.Types
 import Phi.Widget
 import Phi.Panel
@@ -8,7 +9,8 @@ import Data.Monoid
 
 main :: IO ()
 main = do
-  initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom}
+  phi <- initPhi
+  initPhiX phi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelSize = 48 }
     [border border1 [border border3 [], border border3 []], border border2 []]
     where
       border1 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2