use strict state monad

MercuryTechnologies · Sep 26, 2023 · b2b3ea6 · b2b3ea6
1 parent 13d834d
commit b2b3ea6
Show file tree

Hide file tree

Showing 9 changed files with 9 additions and 15 deletions.
diff --git a/daemon/app/ghc-specter-daemon/Handler.hs b/daemon/app/ghc-specter-daemon/Handler.hs
@@ -19,7 +19,7 @@ import Control.Monad (when)
 import Control.Monad.IO.Class (liftIO)
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Reader (ask)
-import Control.Monad.Trans.State (get)
+import Control.Monad.Trans.State.Strict (get)
 import Data.Bits ((.|.))
 import Data.Text (Text)
 import Foreign.Marshal.Utils (toBool)

diff --git a/daemon/app/ghc-specter-daemon/Render.hs b/daemon/app/ghc-specter-daemon/Render.hs
@@ -13,7 +13,7 @@ import Control.Concurrent.STM
 import Control.Monad (when)
 import Control.Monad.Extra (loopM, whenM)
 import Control.Monad.IO.Class (MonadIO (..))
-import Control.Monad.Trans.State (StateT, execStateT, get, modify', put)
+import Control.Monad.Trans.State.Strict (StateT, execStateT, get, modify', put)
 import Data.Bits ((.|.))
 import Data.List.NonEmpty (NonEmpty)
 import Data.Maybe (isNothing)

diff --git a/daemon/app/ghc-specter-daemon/Render/BlockerView.hs b/daemon/app/ghc-specter-daemon/Render/BlockerView.hs
@@ -8,7 +8,7 @@ where
 
 import Control.Monad.Extra (whenM)
 import Control.Monad.IO.Class (liftIO)
-import Control.Monad.Trans.State (StateT, get)
+import Control.Monad.Trans.State.Strict (StateT, get)
 import Data.Foldable (for_, traverse_)
 import Data.List qualified as L
 import Data.Maybe (fromMaybe)

diff --git a/daemon/app/ghc-specter-daemon/Render/Console.hs b/daemon/app/ghc-specter-daemon/Render/Console.hs
@@ -7,11 +7,10 @@ module Render.Console
   )
 where
 
-import Control.Concurrent.STM (atomically, readTVar, writeTVar)
 import Control.Monad (when)
 import Control.Monad.Extra (whenM)
 import Control.Monad.IO.Class (liftIO)
-import Control.Monad.Trans.State (StateT, get, modify')
+import Control.Monad.Trans.State.Strict (StateT, get, modify')
 import Data.Bits ((.|.))
 import Data.Foldable (traverse_)
 import Data.String (fromString)

diff --git a/daemon/app/ghc-specter-daemon/Render/ModuleGraph.hs b/daemon/app/ghc-specter-daemon/Render/ModuleGraph.hs
@@ -10,7 +10,7 @@ where
 import Control.Error.Util (note)
 import Control.Monad.Extra (whenM)
 import Control.Monad.IO.Class (liftIO)
-import Control.Monad.Trans.State (StateT, get)
+import Control.Monad.Trans.State.Strict (StateT, get)
 import Data.Bits ((.|.))
 import Data.Foldable (for_)
 import Data.List qualified as L

diff --git a/daemon/app/ghc-specter-daemon/Render/Session.hs b/daemon/app/ghc-specter-daemon/Render/Session.hs
@@ -9,7 +9,7 @@ where
 
 import Control.Monad.Extra (whenM)
 import Control.Monad.IO.Class (liftIO)
-import Control.Monad.Trans.State (StateT, get)
+import Control.Monad.Trans.State.Strict (StateT, get)
 import Data.List (partition)
 import Data.Maybe (isJust)
 import Data.Text.Foreign qualified as T

diff --git a/daemon/app/ghc-specter-daemon/Render/SourceView.hs b/daemon/app/ghc-specter-daemon/Render/SourceView.hs
@@ -6,15 +6,10 @@ module Render.SourceView
   )
 where
 
-import Control.Concurrent.STM
-  ( TVar,
-    atomically,
-    readTVar,
-  )
 import Control.Monad (when)
 import Control.Monad.Extra (whenM)
 import Control.Monad.IO.Class (liftIO)
-import Control.Monad.Trans.State (StateT, get)
+import Control.Monad.Trans.State.Strict (StateT, get)
 import Data.Foldable (for_)
 import Data.List qualified as L
 import Data.Map qualified as M

diff --git a/daemon/app/ghc-specter-daemon/Render/TimingView.hs b/daemon/app/ghc-specter-daemon/Render/TimingView.hs
@@ -8,7 +8,7 @@ where
 
 import Control.Monad.Extra (whenM)
 import Control.Monad.IO.Class (liftIO)
-import Control.Monad.Trans.State (StateT, get)
+import Control.Monad.Trans.State.Strict (StateT, get)
 import Data.Foldable (for_)
 import Data.List qualified as L
 import Data.Maybe (fromMaybe, isNothing)

diff --git a/daemon/app/ghc-specter-daemon/Util/Render.hs b/daemon/app/ghc-specter-daemon/Util/Render.hs
@@ -52,7 +52,7 @@ import Control.Monad.IO.Class (MonadIO (liftIO))
 import Control.Monad.Reader (MonadReader (..))
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Reader (ReaderT (..))
-import Control.Monad.Trans.State (StateT (..), get, modify')
+import Control.Monad.Trans.State.Strict (StateT (..), get, modify')
 import Data.ByteString (useAsCString)
 import Data.Foldable (for_, traverse_)
 import Data.List.NonEmpty (NonEmpty (..))