diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-27 21:19:54 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-27 21:19:54 +0100 |
| commit | 63e1b79f48e31da10e93169444c3426b631247b2 (patch) | |
| tree | 39d9faeaa894725744166628bd4ba59e89b01796 | |
| parent | 82b82ce6417b23916466acaa83cac28c9d58dc4c (diff) | |
Build with fsnotify-0.3
Present in Debian bookworm.
| -rw-r--r-- | erebos.cabal | 2 | ||||
| -rw-r--r-- | 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 |