diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-11-30 10:03:40 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2018-01-18 14:10:26 +0100 |
| commit | 3325e37439aed70ad5b0bd23d5a1e098d4a6ca7f (patch) | |
| tree | 4e17930c0220d65dfbb6b2144d9066b977df6f73 | |
| parent | 47a3f8640538f38484ee1aabb2af9a9487a796f6 (diff) | |
Disambiguate liftIO for GHC 7.4
| -rw-r--r-- | tests/GhcSession.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index b30d2c7..c05ba3c 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -133,7 +133,11 @@ compileModule ep opts = do ChSetupEntrypoint -> map (IIModule . mkModuleName) ["Main"] +#if __GLASGOW_HASKELL__ <= 704 + GhcMonad.liftIO $ print ExitSuccess +#else liftIO $ print ExitSuccess +#endif return True unChModuleName :: ChModuleName -> String |