From 63e1b79f48e31da10e93169444c3426b631247b2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 27 Mar 2025 21:19:54 +0100 Subject: Build with fsnotify-0.3 Present in Debian bookworm. --- src/Erebos/Storage.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Erebos/Storage.hs b/src/Erebos/Storage.hs index 61bb2fa..c1e9664 100644 --- a/src/Erebos/Storage.hs +++ b/src/Erebos/Storage.hs @@ -567,7 +567,7 @@ watchHeadRaw st tid hid sel cb = do True -> return ilist False -> do void $ watchDir manager (headTypePath spath tid) (const True) $ \case - Added { eventPath = fpath } | Just ihid <- HeadID <$> U.fromString (takeFileName fpath) -> do + ev@Added {} | Just ihid <- HeadID <$> U.fromString (takeFileName (eventPath ev)) -> do loadHeadRaw st tid ihid >>= \case Just ref -> do (_, _, iwl) <- readMVar mvar -- cgit v1.2.3