From 1494ce6185ec9873c2c9d8eb891d11305dbbf843 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Wed, 29 Sep 2021 13:22:39 -0600
Subject: [PATCH] also re-extract if file modified

---
 src/Lib/PkgRepository.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/Lib/PkgRepository.hs b/src/Lib/PkgRepository.hs
index bdbf646..81cae20 100644
--- a/src/Lib/PkgRepository.hs
+++ b/src/Lib/PkgRepository.hs
@@ -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