Unpack exports in resolve.

Author: robrix

semantic-analysis/src/Analysis/Module.hs

@@ -23,5 +23,5 @@ 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' (\ (unknown', body') -> resolve unknown' body' . exports) (unknown m, body m) (Map.restrictKeys ms (imports m))
-  resolve unknown body exports = (unknown Set.\\ Map.keysSet exports, body . mappend (Map.restrictKeys exports unknown))
+  (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))