Use strict state monad everywhere we use a state monad

src/Brick/Main.hs

@@ -53,7 +53,7 @@ where
 
 import qualified Control.Exception as E
 import Lens.Micro ((^.), (&), (.~), (%~), _1, _2)
-import Control.Monad.State
+import Control.Monad.State.Strict
 import Control.Monad.Reader
 import Control.Concurrent (forkIO, killThread)
 import qualified Data.Foldable as F

src/Brick/Types.hs

@@ -109,7 +109,7 @@ import Control.Monad.Catch (MonadThrow, MonadCatch, MonadMask)
 #if !MIN_VERSION_base(4,13,0)
 import Control.Monad.Fail (MonadFail)
 #endif
-import Control.Monad.State.Lazy
+import Control.Monad.State.Strict
 import Control.Monad.Reader
 import Graphics.Vty (Attr)
 

src/Brick/Types/Internal.hs

@@ -83,7 +83,7 @@ module Brick.Types.Internal
 where
 
 import Control.Monad.Reader
-import Control.Monad.State.Lazy
+import Control.Monad.State.Strict
 import Lens.Micro (_1, _2, Lens')
 import Lens.Micro.Mtl (use)
 import Lens.Micro.TH (makeLenses)

src/Brick/Widgets/Core.hs

@@ -121,7 +121,7 @@ import Data.Monoid ((<>))
 
 import Lens.Micro ((^.), (.~), (&), (%~), to, _1, _2, each, to, Lens')
 import Lens.Micro.Mtl (use, (%=))
-import Control.Monad.State.Lazy
+import Control.Monad.State.Strict
 import Control.Monad.Reader
 import qualified Data.Foldable as F
 import qualified Data.Text as T

src/Brick/Widgets/Internal.hs

@@ -10,7 +10,7 @@ where
 
 import Lens.Micro ((^.), (&), (%~))
 import Lens.Micro.Mtl ((%=))
-import Control.Monad.State.Lazy
+import Control.Monad.State.Strict
 import Control.Monad.Reader
 import Data.Maybe (fromMaybe)
 import qualified Data.Map as M