query term size before start scanning

This works around an issue causing the pager to hang when there is input
before the terminal size could be determined.  The root cause has yet to
be found.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/main.hs b/src/main.hs
index 816aa7c..4b78f49 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -247,14 +247,14 @@ main = do
 
             installHandlers signalHandlers
 
+            winchHandler i putEvent
+
             threadIds <- mapM forkIO
                 [
                   forever $
                     scan i >>= putEvent . EScan
                 ]
 
-            winchHandler i putEvent
-
             result <- run o getEvent q1
 
             mapM_ killThread threadIds