git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Merge pull request #2071 from kRITZCREEK/psc-ide-watcher-improvements
dd9ebefPhil Freeman
src/Language/PureScript/Ide/Watcher.hs+18−25
compare with golang
unifiedsplit
@@ -12,44 +12,37 @@
12-- File watcher for externs files
12-- File watcher for externs files
13-----------------------------------------------------------------------------
13-----------------------------------------------------------------------------
14
14
15−{-# LANGUAGE RecordWildCards #-}
16−
17module Language.PureScript.Ide.Watcher where
15module Language.PureScript.Ide.Watcher where
18
16
19−import Prelude ()
20−import Prelude.Compat
21−
22import Control.Concurrent (threadDelay)
17import Control.Concurrent (threadDelay)
23import Control.Concurrent.STM
18import Control.Concurrent.STM
24import Control.Monad
19import Control.Monad
25import Control.Monad.Trans.Except
20import Control.Monad.Trans.Except
26−import qualified Data.Map as M
27−import Data.Maybe (isJust)
28−import Language.PureScript.Externs
29import Language.PureScript.Ide.Externs
21import Language.PureScript.Ide.Externs
30import Language.PureScript.Ide.State
22import Language.PureScript.Ide.State
31import Language.PureScript.Ide.Types
23import Language.PureScript.Ide.Types
24+import Prelude
32import System.FilePath
25import System.FilePath
33import System.FSNotify
26import System.FSNotify
34
27
28+-- | Reloads an ExternsFile from Disc. If the Event indicates the ExternsFile
29+-- was deleted we don't do anything.
30+reloadFile :: TVar PscIdeState -> Event -> IO ()
31+reloadFile _ Removed{} = pure ()
32+reloadFile stateVar ev = do
33+ let fp = eventPath ev
34+ ef' <- runExceptT (readExternFile fp)
35+ case ef' of
36+ Left _ -> pure ()
37+ Right ef -> do
38+ atomically (insertModule' stateVar ef)
39+ putStrLn ("Reloaded File at: " ++ fp)
35
40
36−reloadFile :: TVar PscIdeState -> FilePath -> IO ()
41+-- | Installs filewatchers for the given directory and reloads ExternsFiles when
37−reloadFile stateVar fp = do
42+-- they change on disc
38− (Right ef@ExternsFile{..}) <- runExceptT $ readExternFile fp
39− reloaded <- atomically $ do
40− st <- readTVar stateVar
41− if isLoaded efModuleName st
42− then
43− insertModule' stateVar ef *> pure True
44− else
45− pure False
46− when reloaded $ putStrLn $ "Reloaded File at: " ++ fp
47− where
48− isLoaded name st = isJust (M.lookup name (externsFiles st))
49−
50watcher :: TVar PscIdeState -> FilePath -> IO ()
43watcher :: TVar PscIdeState -> FilePath -> IO ()
51−watcher stateVar fp = withManager $ \mgr -> do
44+watcher stateVar fp = withManagerConf (defaultConfig { confDebounce = NoDebounce }) $ \mgr -> do
52 _ <- watchTree mgr fp
45 _ <- watchTree mgr fp
53 (\ev -> takeFileName (eventPath ev) == "externs.json")
46 (\ev -> takeFileName (eventPath ev) == "externs.json")
54− (reloadFile stateVar . eventPath)
47+ (reloadFile stateVar)
55− forever (threadDelay 10000)
48+ forever (threadDelay 100000)