🔥 a pointless shared binding.

Author: robrix

semantic-analysis/src/Analysis/Module.hs

@@ -24,4 +24,4 @@ instance Semigroup (ModuleSet a) where
 link :: ModuleSet a -> Module a -> Module a
 link (ModuleSet ms) m = Module body' (imports m Set.\\ Map.keysSet ms) (exports m) unknown' where
   (unknown', body') = foldl' (uncurry resolve) (unknown m, body m) (Map.restrictKeys ms (imports m))
-  resolve unknown body m = let exports' = exports m in (unknown Set.\\ Map.keysSet exports', body . mappend (Map.restrictKeys exports' unknown))
+  resolve unknown body m = (unknown Set.\\ Map.keysSet (exports m), body . mappend (Map.restrictKeys (exports m) unknown))