From 6013abe87a783f554826317a33300f9588784c51 Mon Sep 17 00:00:00 2001 From: James Cook Date: Mon, 1 Feb 2021 11:53:31 -0400 Subject: [PATCH] fix build on openbsd --- Utility/DirWatcher/Kqueue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/DirWatcher/Kqueue.hs b/Utility/DirWatcher/Kqueue.hs index 4a1c55ae91..0c84f67c19 100644 --- a/Utility/DirWatcher/Kqueue.hs +++ b/Utility/DirWatcher/Kqueue.hs @@ -133,7 +133,7 @@ removeSubDir dirmap dir = do mapM_ Posix.closeFd $ M.keys toremove return rest where - (toremove, rest) = M.partition (dirContains dir . dirName) dirmap + (toremove, rest) = M.partition (dirContains (toRawFilePath dir) . toRawFilePath . dirName) dirmap findDirContents :: DirMap -> FilePath -> [FilePath] findDirContents dirmap dir = concatMap absolutecontents $ search