From 428bc7ee806bb4a1b29a487854d54bd6ff5a931e Mon Sep 17 00:00:00 2001
From: wolfgang <unknown>
Date: Sun, 6 Oct 2002 12:45:41 +0000
Subject: [PATCH] [project @ 2002-10-06 12:45:41 by wolfgang] Make it compile
 for Mac OS X again.

---
 ghc/compiler/ghci/Linker.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index eec2e65..2b45436 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -732,11 +732,13 @@ loadFramework extraPaths rootname
    = do	{ mb_fwk <- findFile mk_fwk (extraPaths ++ defaultFrameworkPaths)
 	; case mb_fwk of
 	    Just fwk_path -> loadDLL fwk_path
-	    Nothing	  -> return (Just "not found")
+	    Nothing	  -> return (Just "not found") }
  		-- Tried all our known library paths, but dlopen()
 		-- has no built-in paths for frameworks: give up
    where
      mk_fwk dir = dir ++ '/' : rootname ++ ".framework/" ++ rootname
+	-- sorry for the hardcoded paths, I hope they won't change anytime soon:
+     defaultFrameworkPaths = ["/Library/Frameworks", "/System/Library/Frameworks"]
 #endif
 \end{code}
 
-- 
1.7.10.4