diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-10-18 15:05:16 -0400 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-10-18 15:05:52 -0400 |
| commit | 7129861397f8e1ea9dbe299708633d118a3085fa (patch) | |
| tree | 7f453ee1d136eec31d6d387de5cee63bef94408a | |
| parent | 46f5f0284aa2cbe2e57716e1a4df5cb15037082f (diff) | |
| download | haskell-7129861397f8e1ea9dbe299708633d118a3085fa.tar.gz | |
DynamicLoading: Replace map + zip with zipWith
| -rw-r--r-- | compiler/main/DynamicLoading.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/DynamicLoading.hs b/compiler/main/DynamicLoading.hs index 2b2365f87f..5658f2feb2 100644 --- a/compiler/main/DynamicLoading.hs +++ b/compiler/main/DynamicLoading.hs @@ -71,12 +71,12 @@ import Data.List ( intercalate ) loadPlugins :: HscEnv -> IO [(ModuleName, Plugin, [CommandLineOption])] loadPlugins hsc_env = do { plugins <- mapM (loadPlugin hsc_env) to_load - ; return $ map attachOptions $ to_load `zip` plugins } + ; return $ zipWith attachOptions to_load plugins } where dflags = hsc_dflags hsc_env to_load = pluginModNames dflags - attachOptions (mod_nm, plug) = (mod_nm, plug, options) + attachOptions mod_nm plug = (mod_nm, plug, options) where options = [ option | (opt_mod_nm, option) <- pluginModNameOpts dflags , opt_mod_nm == mod_nm ] |