charCallback            tc win c          = atomically $ writeTQueue tc $ EventChar            win c
charCallback            tc win c          = atomically $ writeTQueue tc $ EventChar            win c
charCallback            tc win c          = atomically $ writeTQueue tc $ EventChar            win c