diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-22 16:23:48 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-23 09:13:13 +0000 |
| commit | 128078e0dcfea03c3306f57a4ae7303ca8ff055b (patch) | |
| tree | dbe94f1968e2c3b940be047d8b63eda70db6f3e8 /compiler/iface/FlagChecker.hs | |
| parent | 122629e88fb00003f98d1e581c4150800d476131 (diff) | |
| download | haskell-128078e0dcfea03c3306f57a4ae7303ca8ff055b.tar.gz | |
Keep the flag lists as IntSets rather than lists
This improves compile times slightly.
Diffstat (limited to 'compiler/iface/FlagChecker.hs')
| -rw-r--r-- | compiler/iface/FlagChecker.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/FlagChecker.hs b/compiler/iface/FlagChecker.hs index f670437ffe..0ea1f3b0fc 100644 --- a/compiler/iface/FlagChecker.hs +++ b/compiler/iface/FlagChecker.hs @@ -14,7 +14,7 @@ import Name import Fingerprint -- import Outputable -import Data.List (sort) +import qualified Data.IntSet as IntSet import System.FilePath (normalise) -- | Produce a fingerprint of a @DynFlags@ value. We only base @@ -31,7 +31,7 @@ fingerprintDynFlags DynFlags{..} nameio = -- *all* the extension flags and the language lang = (fmap fromEnum language, - sort $ map fromEnum $ extensionFlags) + IntSet.toList $ extensionFlags) -- -I, -D and -U flags affect CPP cpp = (map normalise includePaths, sOpt_P settings) |