Fix flipped terminal height/width.

This commit is contained in:
Benjamin Summers 2019-12-19 01:43:01 -08:00
parent f77840c81b
commit 8c6a1ed651

View File

@ -522,7 +522,7 @@ term (tsize, Client{..}) shutdownSTM king enqueueEv =
where
TSize.Window wi hi = tsize
initialEvents = [(initialBlew hi wi), initialHail]
initialEvents = [(initialBlew wi hi), initialHail]
runTerm :: RAcquire e (EffCb e TermEf)
runTerm = do