diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-07-24 22:36:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-07-24 22:36:24 +0000 |
| commit | 1971591f865ac0806802c476f23792ae2c89411a (patch) | |
| tree | ebe4268d4706cb9d16774b3491e263e4eef84dd6 /compiler/main/HeaderInfo.hs | |
| parent | 1f4bc1f36380776c68431dbc3b5fa41dd6d2182e (diff) | |
| download | haskell-1971591f865ac0806802c476f23792ae2c89411a.tar.gz | |
Rename "language" varibles etc to "extension", and add --supported-extensions
Diffstat (limited to 'compiler/main/HeaderInfo.hs')
| -rw-r--r-- | compiler/main/HeaderInfo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index cf61b8c0d6..4c664bdc04 100644 --- a/compiler/main/HeaderInfo.hs +++ b/compiler/main/HeaderInfo.hs @@ -266,7 +266,7 @@ checkExtension (L l ext) -- Checks if a given extension is valid, and if so returns -- its corresponding flag. Otherwise it throws an exception. = let ext' = unpackFS ext in - if ext' `elem` supportedLanguages + if ext' `elem` supportedExtensions then L l ("-X"++ext') else unsupportedExtnError l ext' @@ -285,7 +285,7 @@ unsupportedExtnError loc unsup = mkPlainErrMsg loc $ text "Unsupported extension: " <> text unsup $$ if null suggestions then empty else text "Perhaps you meant" <+> quotedListWithOr (map text suggestions) - where suggestions = fuzzyMatch unsup supportedLanguages + where suggestions = fuzzyMatch unsup supportedExtensions optionsErrorMsgs :: [String] -> [Located String] -> FilePath -> Messages |