diff options
Diffstat (limited to 'src/Erebos/Storage.hs')
| -rw-r--r-- | src/Erebos/Storage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |