-thisCompiler :: Compiler
-thisCompiler = Compiler {
- compilerFlavor = GHC,
- compilerId = PackageIdentifier {
- pkgName = "ghc",
- pkgVersion = v
- },
- compilerProg = panic "No compiler program yet",
- compilerPkgTool = panic "No package program yet",
- compilerLanguagesKnown = True,
- compilerLanguages = supportedLanguages
- }
- where v = case readVersion cProjectVersion of
- Just version -> version
- Nothing ->
- panic ("Can't parse version: " ++ show cProjectVersion)
+-----------------------------------------------------------------------------
+-- Complain about non-dynamic flags in OPTIONS pragmas
+
+checkProcessArgsResult :: [String] -> FilePath -> IO ()
+checkProcessArgsResult flags filename
+ = do when (notNull flags) (throwDyn (ProgramError (
+ showSDoc (hang (text filename <> char ':')
+ 4 (text "unknown flags in {-# OPTIONS #-} pragma:" <+>
+ hsep (map text flags)))
+ )))
+
+-----------------------------------------------------------------------------