X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FLinker.lhs;h=4ebbc8b9561d5db0edd74a60cd190c43cbd5856a;hb=70960d2ef24add2911e5613ca25cf1d226b2e082;hp=4ee87cde92dfd38146f8bee89f337d542d2e9776;hpb=03dc2dd3dd814ad85cc4c45e9cafc7b73163c8be;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index 4ee87cd..4ebbc8b 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -215,8 +215,8 @@ reallyInitDynLinker dflags
 
 	   	-- (e) Link any MacOS frameworks
 #ifdef darwin_TARGET_OS	
-	; framework_paths <- readIORef v_Framework_paths
-	; frameworks      <- readIORef v_Cmdline_frameworks
+	; let framework_paths = frameworkPaths dflags
+	; let frameworks      = cmdlineFrameworks dflags
 #else
 	; let frameworks      = []
 	; let framework_paths = []