使用Haskell捕获输入和直接输出到台式机？

Question

我有一个程序，可以有效地将键上的键随机重新映射，因此每个程序都对应于与通常产生的不同输出。

我的问题是，我仅捕获输入程序运行的终端的键，同样仅输出到同一终端。我想实现的目标是捕获和转换桌面上的所有击键，并在程序运行时输出最初输入的转换键。

这是我的主要循环。

main = do                                                                                           
  hSetBuffering stdin NoBuffering                                                                   
  hSetEcho stdout False
                                                                             
  s <- shuffle keys                                                                                 
  displayKeys s                                                                                     
  putStrLn ""                                                                                       
                                                                                                    
  let                                                                                               
    typeLoop = do                                                                                   
      c <- getChar                                                                                  
      let shuf_tuples = zip keys s                                                                  
          new_key     = reMap c shuf_tuples                                                         
                                                                                                    
      putChar $ fromMaybe ' ' new_key                                                               
                                                                                                    
      typeLoop                                                                                      
                                                                                                    
  typeLoop

该程序旨在作为键入安全信息（例如密码）的原型，因此在解决方案和现有实施中都可以进行安全考虑。

我正在使用Ubuntu 20.04，并且更喜欢需要包装最少的解决方案（如果可能的话）。也不会介意完全便携式解决方案，因为它可能会帮助其他人。如果我能提出另一个偏好：我正在学习HASKELL，即使它牺牲了可移植性，也会赞成一种“从头开始”的方法。