Может кто-нибудь показать мне пример использования packDirRecur из Codec.Archive.Zip

Question

main :: IO ()
main = do
    createArchive (Path "outPath.zip") (packDirRecur Store mkEntrySelector   (Path "/home/Documents/test"))

С этим кодом выдается следующая ошибка:

src/Main.hs:39:60:
Couldn't match type ‘Path.Abs’ with ‘Path.Rel’
Expected type: Path Path.Abs Path.File -> ZipArchive EntrySelector
  Actual type: Path Path.Rel Path.File -> ZipArchive EntrySelector
In the second argument of ‘packDirRecur’, namely ‘mkEntrySelector’
In the second argument of ‘createArchive’, namely
  ‘(packDirRecur
      Store mkEntrySelector (Path "/home/Documents/test"))’

Как мне получить mkEntrySelector для генерации абсолютного пути?