在Linux上使用Haskell获取前台窗口标题

在Windows下，可以使用以下方法获取前景窗口标题：

在Linux上使用Haskell是否有一种获得前台窗口标题的等效方法？（最好不使用FFI）

使用库：

import Graphics.X11
导入Graphics.X11.Xlib.Extras
main=do
D
import Graphics.X11
import Graphics.X11.Xlib.Extras

main = do
  d <- openDisplay ""
  (w, _) <- getInputFocus d
  s <- fetchName d w
  print s