module Language.PureScript.Ide.Watcher
( watcher
) where
import Protolude
import Control.Concurrent.STM
import Language.PureScript.Ide.Externs
import Language.PureScript.Ide.State
import Language.PureScript.Ide.Types
import System.FilePath
import System.FSNotify
reloadFile :: TVar IdeState -> Event -> IO ()
reloadFile _ Removed{} = pure ()
reloadFile ref ev = do
let fp = eventPath ev
ef' <- runExceptT (readExternFile fp)
case ef' of
Left _ -> pure ()
Right ef -> do
void $ atomically (insertExternsSTM ref ef *> populateStage3STM ref)
putStrLn ("Reloaded File at: " ++ fp)
watcher :: TVar IdeState -> FilePath -> IO ()
watcher stateVar fp =
withManagerConf (defaultConfig { confDebounce = NoDebounce }) $ \mgr -> do
_ <- watchTree mgr fp
(\ev -> takeFileName (eventPath ev) == "externs.json")
(reloadFile stateVar)
forever (threadDelay 100000)