X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=misc%2Fghc-6.5-patch;fp=misc%2Fghc-6.5-patch;h=c1b70076a9e3052cd4c0403b21ec2498b3693181;hp=0000000000000000000000000000000000000000;hb=d2fc6f76cce121e8f6c35af5c733c4269829f82c;hpb=85016412a8eb6bfd0a4bd57a01a966ca9c5302f7

diff --git a/misc/ghc-6.5-patch b/misc/ghc-6.5-patch
new file mode 100644
index 0000000..c1b7007
--- /dev/null
+++ b/misc/ghc-6.5-patch
@@ -0,0 +1,51 @@
+--- Haskell/Makefile.am	2006-09-02 23:50:38.000000000 -0700
++++ Haskell/Makefile.am	2003-11-03 12:49:54.000000000 -0800
+@@ -3,7 +3,8 @@
+ 
+ JVMFILE			= $(datadir)/current.jvm
+ 
++#HCPACKAGES		= -package lang -package concurrent
++HCPACKAGES		= -package rts
+-HCPACKAGES		= -package lang -package concurrent
+ HCIMPORTDIRS	= -i.
+ HCCOPTS			= -I$(includedir_FIX) $${JVM_INCLUDES}
+ HCHOPTS			= -fglasgow-exts -fallow-undecidable-instances -package-name $(GHCPACKAGENAME)
+diff -u ./MonadException.hs ../../haskell-jvm-bridge-0.3.RC1/Haskell/MonadException.hs
+--- Haskell/MonadException.hs	2006-09-02 23:42:19.000000000 -0700
++++ Haskell/MonadException.hs	2002-01-28 18:21:35.000000000 -0800
+@@ -20,7 +20,7 @@
+ 
+ module MonadException where
+ 	{
++	import Control.Exception as Exception;
+-	import Exception;
+ 	
+ 	-- much like MonadError, but without the fundep
+ 	class (Monad m) => MonadException ex m where
+diff -u ./TypedCallback.hs ../../haskell-jvm-bridge-0.3.RC1/Haskell/TypedCallback.hs
+--- Haskell/TypedCallback.hs	2006-09-02 23:43:13.000000000 -0700
++++ Haskell/TypedCallback.hs	2002-08-05 17:27:04.000000000 -0700
+@@ -33,8 +33,8 @@
+ 	import VMLayer;
+ 	import JavaLayer;
+ 	import BasicLayer;
++	import Control.Concurrent as Concurrent;
++	import Control.Exception as Exception;
+-	import Concurrent;
+-	import Exception;
+ 
+ {--
+ 	data CallbackClass t = MkCallbackClass JClass;
+diff -u ./TypedLayer.hs ../../haskell-jvm-bridge-0.3.RC1/Haskell/TypedLayer.hs
+--- Haskell/TypedLayer.hs	2006-09-02 23:44:06.000000000 -0700
++++ Haskell/TypedLayer.hs	2002-01-28 18:21:35.000000000 -0800
+@@ -60,7 +60,7 @@
+ 	import VMLayer;
+ 	import JavaLayer;
+ 	import BasicLayer;
++	import Control.Monad.Error;
+-	import MonadError;
+ 
+ 	runJavaClass :: (IsJVMMonad m) => ClassName -> [JString] -> m ();
+ 	runJavaClass className args = do
+