hilnts

Author: pepeiborra

ghcide/.hlint.yaml

@@ -77,7 +77,6 @@
   - {name: GeneralizedNewtypeDeriving, within: []}
   - {name: LambdaCase, within: []}
   - {name: NamedFieldPuns, within: []}
-  - {name: PackageImports, within: []}
   - {name: RecordWildCards, within: []}
   - {name: ScopedTypeVariables, within: []}
   - {name: StandaloneDeriving, within: []}

ghcide/src/Development/IDE/Core/ProgressReporting.hs

@@ -15,7 +15,8 @@ module Development.IDE.Core.ProgressReporting
 
 import           Control.Concurrent.Async
 import           Control.Concurrent.STM         (TVar, atomically, newTVarIO,
-                                                 readTVar, writeTVar)
+                                                 readTVar, readTVarIO,
+                                                 writeTVar)
 import           Control.Concurrent.Strict
 import           Control.Monad.Extra
 import           Control.Monad.IO.Class
@@ -156,8 +157,8 @@ delayedProgressReporting before after lspEnv optProgressStyle = do
                 loop _ _ | optProgressStyle == NoProgress =
                     forever $ liftIO $ threadDelay maxBound
                 loop id prev = do
-                    done <- liftIO $ atomically $ readTVar doneVar
-                    todo <- liftIO $ atomically $ readTVar todoVar
+                    done <- liftIO $ readTVarIO doneVar
+                    todo <- liftIO $ readTVarIO todoVar
                     liftIO $ sleep after
                     if todo == 0 then loop id 0 else do
                         let next = 100 * fromIntegral done / fromIntegral todo