From 2b77d448accb401fbd42b64a11ffd34e720f6d41 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 3 Jun 2018 02:41:49 +0200 Subject: [PATCH] use strict state monads --- src/Affection.hs | 2 +- src/Affection/Types.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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)