diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-27 21:48:40 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-27 21:48:40 +0100 |
| commit | c536547d742cde13042792e60f28893578adc331 (patch) | |
| tree | 37c899ecf83b8d839caa6bb02abf3e69ba28d0e6 /src/Erebos/Storage | |
| parent | 0bfa9e3d79f0b6760346258672b61721bbdbf9ef (diff) | |
| parent | 63e1b79f48e31da10e93169444c3426b631247b2 (diff) | |
Merge branch 'release-0.1'
Diffstat (limited to 'src/Erebos/Storage')
| -rw-r--r-- | src/Erebos/Storage/Disk.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Storage/Disk.hs b/src/Erebos/Storage/Disk.hs index 01821f7..370c584 100644 --- a/src/Erebos/Storage/Disk.hs +++ b/src/Erebos/Storage/Disk.hs @@ -94,7 +94,7 @@ instance StorageBackend DiskStorage where True -> return ilist False -> do void $ watchDir manager (headTypePath dirPath 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 backendLoadHead st tid ihid >>= \case Just dgst -> do (_, _, iwl) <- readMVar dirWatchers |