@@ -20,11 +20,11 @@ module Development.IDE.State.Service(
2020 ) where
2121
2222import Control.Concurrent.Extra
23−import Control.Concurrent.STM
2423import Control.Monad.Except
2524import Development.IDE.Functions.Compile (CompileOpts(..))
2625import Development.IDE.State.FileStore
2726import qualified Development.IDE.Logger as Logger
27+import Data.Maybe
2828import Data.Set (Set)
2929import qualified Data.Set as Set
3030import qualified Data.Text as T
@@ -71,13 +71,13 @@ unsafeClearDiagnostics = unsafeClearAllDiagnostics
7171
7272-- | Initialise the Compiler Service.
7373initialise :: Rules ()
74− -> Maybe (Event -> STM ())
74+ -> Maybe (Event -> IO ())
7575 -> Logger.Handle IO
7676 -> CompileOpts
7777 -> IO IdeState
7878initialise mainRule toDiags logger options =
7979 shakeOpen
80− (maybe (const $ pure ()) (atomically .) toDiags)
80+ (fromMaybe (const $ pure ()) toDiags)
8181 logger
8282 (setProfiling options $
8383 shakeOptions { shakeThreads = optThreads options