Handle X events asynchronously

1 files changed, 2 insertions, 1 deletions

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