MkIface: Turn a foldr into a foldl'
authorBen Gamari <ben@smart-cactus.org>
Tue, 23 Aug 2016 03:18:02 +0000 (23:18 -0400)
committerBen Gamari <ben@smart-cactus.org>
Fri, 14 Oct 2016 02:57:25 +0000 (22:57 -0400)
There is no reason why this should be a foldr considering we are
building a map.

compiler/iface/MkIface.hs

index 12980e4..1a191db 100644 (file)
@@ -467,8 +467,8 @@ addFingerprints hsc_env mb_old_fingerprint iface0 new_decls
         -- e.g. a reference to a constructor must be turned into a reference
         -- to the TyCon for the purposes of calculating dependencies.
        parent_map :: OccEnv OccName
-       parent_map = foldr extend emptyOccEnv new_decls
-          where extend d env =
+       parent_map = foldl' extend emptyOccEnv new_decls
+          where extend env d =
                   extendOccEnvList env [ (b,n) | b <- ifaceDeclImplicitBndrs d ]
                   where n = getOccName d