summaryrefslogtreecommitdiff
path: root/src/Erebos/Storage/Internal.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2024-06-30 15:59:29 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2024-06-30 15:59:29 +0200
commite4ab9a3270e4c29a556cdcea315a9a01477ed866 (patch)
tree6b9d9fce6335ae68e4a6588f7b4136788063979a /src/Erebos/Storage/Internal.hs
parentfb2f418a6b2b00f5b1f032547bb7e47749a23b80 (diff)
Single INotify instance per Storage object
Diffstat (limited to 'src/Erebos/Storage/Internal.hs')
-rw-r--r--src/Erebos/Storage/Internal.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Storage/Internal.hs b/src/Erebos/Storage/Internal.hs
index 116d7fa..b9cf6dd 100644
--- a/src/Erebos/Storage/Internal.hs
+++ b/src/Erebos/Storage/Internal.hs
@@ -60,7 +60,7 @@ showParentStorage Storage { stParent = Just st } = "@" ++ show st
data StorageBacking c
= StorageDir { dirPath :: FilePath
- , dirWatchers :: MVar ([(HeadTypeID, INotify)], WatchList c)
+ , dirWatchers :: MVar ( Maybe INotify, [ HeadTypeID ], WatchList c )
}
| StorageMemory { memHeads :: MVar [((HeadTypeID, HeadID), Ref' c)]
, memObjs :: MVar (Map RefDigest BL.ByteString)