Fill in the empty window when 'process' fails.

I broke this in fd5b7c5756710f98567a7dd0ab2df2031422b22f

1 files changed, 1 insertions, 1 deletions

diff --git a/Bustle.hs b/Bustle.hs
index 35a035d..f892c30 100644
--- a/Bustle.hs
+++ b/Bustle.hs
@@ -186,8 +186,8 @@ loadLogWith act f = do
   where llw' = do
           input <- etio show $ readFile f
           log <- toET (("Parse error " ++) . show) $ readLog input
-          misc <- lift act
           shapes <- toET id $ process (upgrade log)
+          misc <- lift act
           lift (displayLog misc f shapes)