Compiles on 7.8, but fails with errors

This commit is contained in:
Andrew Gibiansky 2014-06-08 11:15:55 -07:00
parent 9c6490bf9f
commit b748c5b7ca

View File

@ -926,7 +926,12 @@ doLoadModule name modName = do
flip gcatch (unload importedModules) $ do
-- Compile loaded modules.
flags <- getSessionDynFlags
#if MIN_VERSION_ghc(7,8,0)
let objTarget = defaultObjectTarget platform
platform = targetPlatform flags
#else
let objTarget = defaultObjectTarget
#endif
setSessionDynFlags flags{ hscTarget = objTarget }
-- Clear old targets to be sure.