From 7695803af59df1fb5dc3d48da014b47a4e2bac74 Mon Sep 17 00:00:00 2001 From: Asad Saeeduddin Date: Fri, 13 Nov 2020 14:01:25 -0500 Subject: [PATCH] Fix ambiguous `get`/`put` issue --- yesod-test/Yesod/Test.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs index a06f3957..f2285c0a 100644 --- a/yesod-test/Yesod/Test.hs +++ b/yesod-test/Yesod/Test.hs @@ -245,7 +245,7 @@ import Network.Wai.Test hiding (assertHeader, assertNoHeader, request) import Control.Monad.Trans.Reader (ReaderT (..)) import Conduit (MonadThrow) import Control.Monad.IO.Class -import Control.Monad.State.Class +import qualified Control.Monad.State.Class as MS import System.IO import Yesod.Core.Unsafe (runFakeHandler) import Yesod.Test.TransversingCSS @@ -1602,7 +1602,7 @@ instance YesodDispatch site => Hspec.Example (SIO (YesodExampleData site) a) whe newtype SIO s a = SIO (ReaderT (IORef s) IO a) deriving (Functor, Applicative, Monad, MonadIO, MonadThrow, MonadUnliftIO) -instance MonadState s (SIO s) +instance MS.MonadState s (SIO s) where get = getSIO put = putSIO