diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2024-06-30 16:41:18 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-06-30 16:41:18 +0200 |
commit | 47b8396c94af75832d96e4d3b4e0d7001ff70388 (patch) | |
tree | 0b601a7fc2747fe74b2b915297bc8c9ba6b5484f /src/Erebos/Storage/Internal.hs | |
parent | e4ab9a3270e4c29a556cdcea315a9a01477ed866 (diff) |
Replace inotify with multiplatform fsnotify package
Diffstat (limited to 'src/Erebos/Storage/Internal.hs')
-rw-r--r-- | src/Erebos/Storage/Internal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Erebos/Storage/Internal.hs b/src/Erebos/Storage/Internal.hs index b9cf6dd..d419a5e 100644 --- a/src/Erebos/Storage/Internal.hs +++ b/src/Erebos/Storage/Internal.hs @@ -31,8 +31,8 @@ import Data.UUID (UUID) import Foreign.Storable (peek) import System.Directory +import System.FSNotify (WatchManager) import System.FilePath -import System.INotify (INotify) import System.IO import System.IO.Error import System.IO.Unsafe (unsafePerformIO) @@ -60,7 +60,7 @@ showParentStorage Storage { stParent = Just st } = "@" ++ show st data StorageBacking c = StorageDir { dirPath :: FilePath - , dirWatchers :: MVar ( Maybe INotify, [ HeadTypeID ], WatchList c ) + , dirWatchers :: MVar ( Maybe WatchManager, [ HeadTypeID ], WatchList c ) } | StorageMemory { memHeads :: MVar [((HeadTypeID, HeadID), Ref' c)] , memObjs :: MVar (Map RefDigest BL.ByteString) |