Haskell使用System.FilePath.Find进行通配

Question

如何列出与模式./d*/*/*.xml匹配的所有文件和目录？我更愿意重用现有的解决方案，如System.FilePath.Find而不是自己的解决方案。

这种天真的解决方案不起作用：

find always (filePath ~~? "./d*/*/*.xml") "."