From 0624f27805fa902da84debb690be9284c7135a9f Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 13 Oct 2008 12:13:39 +0000 Subject: [PATCH] Fix #2685: two Bool arguments to tidyTypeEnv were the wrong way around So -XTemplateHaskell was behaving like -fomit-interface-file-pragmas, and vice versa. --- compiler/main/TidyPgm.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs index 16f1402..01d47e6 100644 --- a/compiler/main/TidyPgm.lhs +++ b/compiler/main/TidyPgm.lhs @@ -353,7 +353,7 @@ tidyTypeEnv :: Bool -- Compiling without -O, so omit prags -- This truncates the type environment to include only the -- exported Ids and things needed from them, which saves space -tidyTypeEnv th omit_prags exports type_env final_ids +tidyTypeEnv omit_prags th exports type_env final_ids = let type_env1 = filterNameEnv keep_it type_env type_env2 = extendTypeEnvWithIds type_env1 final_ids type_env3 | omit_prags = mapNameEnv (trimThing th exports) type_env2 -- 1.7.10.4