@@ -410,6 +410,8 @@ watchStaticFilesDerivation root = do
410410 ob <- getObelisk
411411 liftIO $ runHeadlessApp $ do
412412 pb <- getPostBuild
413+ -- TODO: Instead of filtering like this, we should figure out what the derivation
414+ -- actually relies on, or at least use the gitignore
413415 let filterEvents x =
414416 let fn = takeFileName x
415417 dirs = Set.fromList $ splitDirectories x
@@ -430,6 +432,7 @@ watchStaticFilesDerivation root = do
430432 , "dist"
431433 , "dist-newstyle"
432434 , "profile"
435+ , "db"
433436 ]
434437 ignoredExtensions = Set.fromList
435438 [ ".hi"
@@ -443,7 +446,6 @@ watchStaticFilesDerivation root = do
443446 fn `Set.member` ignoredFilenames ||
444447 takeExtension fn `Set.member` ignoredExtensions ||
445448 not (Set.null $ Set.intersection ignoredDirectories dirs)
446−
447449 checkForChanges <- batchOccurrences 0.25 =<< watchDirectoryTree
448450 -- On macOS, use the polling backend due to https://github.com/luite/hfsevents/issues/13
449451 (defaultConfig { confUsePolling = SysInfo.os == "darwin", confPollInterval = 250000 })