diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2017-08-05 12:02:16 -0400 |
|---|---|---|
| committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2017-08-05 12:02:16 -0400 |
| commit | 394c391a41539914dc445368854638f396c824f9 (patch) | |
| tree | 0544f81991868b3abecba7a87e532930adf385c9 /testsuite/tests/stranal | |
| parent | 884bd21a917f607b5a44e038e06f78d0b765ea63 (diff) | |
| download | haskell-394c391a41539914dc445368854638f396c824f9.tar.gz | |
Add MonadIO Q - by requiring MonadIO => Quasi
Summary: This is follow-up to https://ghc.haskell.org/trac/ghc/ticket/10773
Reviewers: austin, goldfire, bgamari, RyanGlScott
Reviewed By: RyanGlScott
Subscribers: RyanGlScott, rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3816
Diffstat (limited to 'testsuite/tests/stranal')
| -rw-r--r-- | testsuite/tests/stranal/should_compile/T9208.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/stranal/should_compile/T9208.hs b/testsuite/tests/stranal/should_compile/T9208.hs index b8ec6df6d1..5243445c96 100644 --- a/testsuite/tests/stranal/should_compile/T9208.hs +++ b/testsuite/tests/stranal/should_compile/T9208.hs @@ -25,6 +25,7 @@ import Control.Monad #if __GLASGOW_HASKELL__ >= 800 import Control.Monad.Fail (MonadFail(fail)) #endif +import Control.Monad.IO.Class (MonadIO (..)) import Data.Binary import Data.Binary.Get @@ -81,7 +82,8 @@ instance MonadFail GHCJSQ where fail = undefined #endif -instance TH.Quasi GHCJSQ where qRunIO m = GHCJSQ $ \s -> fmap (,s) m +instance MonadIO GHCJSQ where liftIO m = GHCJSQ $ \s -> fmap (,s) m +instance TH.Quasi GHCJSQ -- | the Template Haskell server runTHServer :: IO () |