Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-31 04:03:40 +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 aa3e9f3129
commit 765bf7c7b5
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 , throwIO
, void , void
) )
import System.FSNotify ( Event(Added) import System.FSNotify ( ActionPredicate
, Event(..)
, eventPath , eventPath
, watchTree , watchTree
, withManager , withManager
@@ -189,9 +190,11 @@ watchPkgRepoRoot = do
stop stop
pure $ tryPutMVar box () pure $ tryPutMVar box ()
where where
onlyAdded = \case onlyAdded :: ActionPredicate
Added path _ isDir -> not isDir && takeExtension path == ".s9pk" onlyAdded (Added path _ isDir) = not isDir && takeExtension path == ".s9pk"
_ -> False 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) getManifest :: (MonadResource m, MonadReader r m, Has PkgRepo r)
=> PkgId => PkgId