haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix ambiguous get/put issue

Browse Source
This commit is contained in:
Asad Saeeduddin 2020-11-13 14:01:25 -05:00
parent 210c992601
commit 7695803af5
No known key found for this signature in database
GPG Key ID: 91597F004D956406
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-test/Yesod/Test.hs
View File

@ -245,7 +245,7 @@ import Network.Wai.Test hiding (assertHeader, assertNoHeader, request)
import Control.Monad.Trans.Reader (ReaderT (..)) import Control.Monad.Trans.Reader (ReaderT (..))
import Conduit (MonadThrow) import Conduit (MonadThrow)
import Control.Monad.IO.Class import Control.Monad.IO.Class
import Control.Monad.State.Class import qualified Control.Monad.State.Class as MS
import System.IO import System.IO
import Yesod.Core.Unsafe (runFakeHandler) import Yesod.Core.Unsafe (runFakeHandler)
import Yesod.Test.TransversingCSS 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) newtype SIO s a = SIO (ReaderT (IORef s) IO a)
deriving (Functor, Applicative, Monad, MonadIO, MonadThrow, MonadUnliftIO) deriving (Functor, Applicative, Monad, MonadIO, MonadThrow, MonadUnliftIO)
instance MonadState s (SIO s) instance MS.MonadState s (SIO s)
where where
get = getSIO get = getSIO
put = putSIO put = putSIO