@@ -158,8 +158,7 @@ intMkVty input out = do
159 let gkey = do k <- atomically $ readTChan $ _eventChannel input
159 let gkey = do k <- atomically $ readTChan $ _eventChannel input
160 case k of
160 case k of
161− (EvResize _ _) -> innerRefresh
162− >> displayBounds out
161+ (EvResize _ _) -> displayBounds out
163 >>= return . (\(w,h)-> EvResize w h)
162 >>= return . (\(w,h)-> EvResize w h)
164 _ -> return k
163 _ -> return k