nextEvent: stop trying to refresh on a resize event (fixes segfault on refresh with normal cursor positioning mode)
commitac1517da21177e6ef74dfff6c945ede1bd1df48f
authorJonathan Daugherty <cygnus@foobox.com>
dateTue 11 Oct 2016, 10:49 (10 years ago)
parent25b0340
src/Graphics/Vty.hs+1−2
@@ -158,8 +158,7 @@ intMkVty input out = do
158158
159159 let gkey = do k <- atomically $ readTChan $ _eventChannel input
160160 case k of
161− (EvResize _ _) -> innerRefresh
162− >> displayBounds out
161+ (EvResize _ _) -> displayBounds out
163162 >>= return . (\(w,h)-> EvResize w h)
164163 _ -> return k
165164