1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index 713b162..9c213e0 100644
--- a/lib/Phi/X11.hs
+++ b/lib/Phi/X11.hs
@@ -179,7 +179,7 @@ runPhi xconfig config widget = do
     forever $ do
       available <- messageAvailable phi
       repaint <- gets phiRepaint
-      when (not available && repaint) $ liftIO $ threadDelay 30000
+      when (not available && repaint) $ liftIO $ threadDelay 20000
       
       available <- messageAvailable phi
       when (not available && repaint) $ do
@@ -189,6 +189,7 @@ runPhi xconfig config widget = do
       message <- receiveMessage phi
       handleMessage message
       
+      
       case (fromMessage message) of
         Just Shutdown ->
           modify $ \state -> state { phiShutdown = True }