Runner: Guess Targets after setting dynflags

src/Seminal/Compiler/Runner.hs

@@ -26,8 +26,6 @@ runCompiler filePaths action = do
         Right r -> Right r
     where
         session = runGhc (Just libdir) $ do
-            targets <- guessTargets filePaths
-            setTargets targets
             flags <- getSessionDynFlags
             setSessionDynFlags (flags {
                 mainFunIs = Just "undefined",
@@ -37,6 +35,8 @@ runCompiler filePaths action = do
                 maxErrors = Just 0,
                 extensionFlags = insert PartialTypeSignatures (extensionFlags flags)
                 })
+            targets <- guessTargets filePaths
+            setTargets targets
             _ <- load LoadAllTargets
             modGraph <- depanal [] True
             parseResults <- mapM (\f -> (f,) <$> getModule modGraph f) filePaths

stack.yaml

@@ -50,7 +50,7 @@ packages:
 # extra-package-dbs: []
 
 # Control whether we use the GHC we find on the path
-system-ghc: true
+system-ghc: false
 #
 # Require a specific version of Stack, using version ranges
 # require-stack-version: -any # Default

test/TestCompiler/Parser.hs

@@ -7,6 +7,7 @@ import Test.Framework.Providers.HUnit (testCase)
 import GHC (moduleNameString, moduleName, ms_mod, pm_mod_summary, ParsedModule)
 import System.Directory (getPermissions, setOwnerReadable, setPermissions)
 import Data.List (isPrefixOf, isSuffixOf, isInfixOf)
+import GHC.SysTools.Tasks(isContainedIn)
 
 runParser :: [FilePath] -> IO (Either String [(FilePath, ParsedModule)])
 runParser files = runCompiler files return
@@ -26,7 +27,7 @@ testSuite = testGroup "Compiler's Parser" [
     buildTest $ do
         res <- runParser ["test/assets/invalid/syntax-error.hs"]
         return $ testCase "Invalid Parsing (Syntax Error)" $ case res of
-            Left errMsg -> assertBool "" $ "parse error" `isPrefixOf` errMsg
+            Left errMsg -> assertBool errMsg $ "parse error" `isContainedIn` errMsg
             _ -> assertFailure "Parsing should have failed",
     buildTest $ do
         res <- runParser ["idonotexist"]