diff options
Diffstat (limited to 'compiler/main/HscMain.hs')
| -rw-r--r-- | compiler/main/HscMain.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index d778b1d5d7..355c60e740 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -209,8 +209,8 @@ allKnownKeyNames -- where templateHaskellNames are defined all_names = knownKeyNames ++ templateHaskellNames - namesEnv = foldl (\m n -> extendNameEnv_Acc (:) singleton m n n) - emptyUFM all_names + namesEnv = foldl' (\m n -> extendNameEnv_Acc (:) singleton m n n) + emptyUFM all_names badNamesEnv = filterNameEnv (\ns -> length ns > 1) namesEnv badNamesPairs = nameEnvUniqueElts badNamesEnv badNamesStrs = map pairToStr badNamesPairs |