Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 10:21:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

also re-extract if file modified

Browse Source
This commit is contained in:
Keagan McClelland
2021-09-29 13:22:39 -06:00
parent 8871edc1ee
commit 056e04f4e3
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/Lib/PkgRepository.hs
View File

@@ -76,7 +76,8 @@ import Startlude ( ($)
, throwIO
, void
)
import System.FSNotify ( Event(Added)
import System.FSNotify ( ActionPredicate
, Event(..)
, eventPath
, watchTree
, withManager
@@ -189,9 +190,11 @@ watchPkgRepoRoot = do
stop
pure $ tryPutMVar box ()
where
onlyAdded = \case
Added path _ isDir -> not isDir && takeExtension path == ".s9pk"
_ -> False
onlyAdded :: ActionPredicate
onlyAdded (Added path _ isDir) = not isDir && takeExtension path == ".s9pk"
onlyAdded (Modified path _ isDir) = not isDir && takeExtension path == ".s9pk"
onlyAdded _ = False
-- Added path _ isDir -> not isDir && takeExtension path == ".s9pk"
getManifest :: (MonadResource m, MonadReader r m, Has PkgRepo r)
=> PkgId