summaryrefslogtreecommitdiff
path: root/src/Erebos/Storage/Internal.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2024-06-30 16:41:18 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2024-06-30 16:41:18 +0200
commit47b8396c94af75832d96e4d3b4e0d7001ff70388 (patch)
tree0b601a7fc2747fe74b2b915297bc8c9ba6b5484f /src/Erebos/Storage/Internal.hs
parente4ab9a3270e4c29a556cdcea315a9a01477ed866 (diff)
Replace inotify with multiplatform fsnotify package
Diffstat (limited to 'src/Erebos/Storage/Internal.hs')
-rw-r--r--src/Erebos/Storage/Internal.hs4
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)