@@ -137,6 +137,7 @@ instance Terminal Term where
137 release_terminal t = do
137 release_terminal t = do
138 liftIO $ marshall_cap_to_terminal t set_default_attr []
138 liftIO $ marshall_cap_to_terminal t set_default_attr []
139 liftIO $ marshall_cap_to_terminal t cnorm []
139 liftIO $ marshall_cap_to_terminal t cnorm []
140+ liftIO $ closeFd $ term_fd t
140 return ()
141 return ()
142 reserve_display t = do
143 reserve_display t = do