diff --git a/src/Affection.hs b/src/Affection.hs index c948832..37cd4bd 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -14,7 +14,7 @@ import qualified SDL import System.Clock import Control.Monad.Loops -import Control.Monad.State +import Control.Monad.State.Strict import Control.Monad.IO.Class (liftIO) import Foreign.C.Types (CInt(..)) diff --git a/src/Affection/Types.hs b/src/Affection/Types.hs index 350c285..ec83dee 100644 --- a/src/Affection/Types.hs +++ b/src/Affection/Types.hs @@ -40,7 +40,7 @@ import Data.Map.Strict as M -- import qualified BABL as B import Control.Monad.IO.Class -import Control.Monad.State +import Control.Monad.State.Strict import qualified Control.Monad.Parallel as MP import System.Clock (TimeSpec)