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 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