Union mount in Haskell, with fsnotify - View it on GitHub