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 Language.PureScript.Ide.Util
import System.FilePath
import System.FSNotify
reloadFile :: TVar IdeState -> Event -> IO ()
reloadFile _ Removed{} = pure ()
reloadFile ref ev = do
let fp = eventPath ev
ef' <- runLogger LogDefault (runExceptT (readExternFile fp))
case ef' of
Left _ -> pure ()
Right ef -> do
void $ atomically (insertExternsSTM ref ef *> populateStage3STM ref)
putStrLn ("Reloaded File at: " ++ fp)
watcher :: Bool -> TVar IdeState -> FilePath -> IO ()
watcher polling stateVar fp =
withManagerConf
(defaultConfig { confDebounce = NoDebounce
, confUsePolling = polling
}) $ \mgr -> do
_ <- watchTree mgr fp
(\ev -> takeFileName (eventPath ev) == "externs.json")
(reloadFile stateVar)
forever (threadDelay 100000)