From 63e1b79f48e31da10e93169444c3426b631247b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 27 Mar 2025 21:19:54 +0100
Subject: Build with fsnotify-0.3

Present in Debian bookworm.
---
 erebos.cabal          | 2 +-
 src/Erebos/Storage.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/erebos.cabal b/erebos.cabal
index e72c0a0..15f19ed 100644
--- a/erebos.cabal
+++ b/erebos.cabal
@@ -148,7 +148,7 @@ library
         deepseq >= 1.4 && <1.6,
         directory >= 1.3 && <1.4,
         filepath >=1.4 && <1.6,
-        fsnotify ^>= { 0.4 },
+        fsnotify ^>= { 0.3, 0.4 },
         hashable ^>= { 1.3, 1.4, 1.5 },
         hashtables ^>= { 1.2, 1.3, 1.4 },
         iproute >=1.7.12 && <1.8,
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