close the dupped terminal fd on release_terminal
Ignore-this: 17f737f325c59e43f6fc24c9f629fb65
darcs-hash:20100814002535-f0a0d-60758a32424ca7fe1f2ebbf76af2ba962de8533e.gz
commitdd0b3f01fa54b3e63a55bd298237936a74cd0c98
authorcoreyoconnor <coreyoconnor@gmail.com>
dateFri 13 Aug 2010, 17:25 (16 years ago)
parentdbc218c
src/Graphics/Vty/Terminal/TerminfoBased.hs+1
@@ -137,6 +137,7 @@ instance Terminal Term where
137137 release_terminal t = do
138138 liftIO $ marshall_cap_to_terminal t set_default_attr []
139139 liftIO $ marshall_cap_to_terminal t cnorm []
140+ liftIO $ closeFd $ term_fd t
140141 return ()
141142
142143 reserve_display t = do