Add a patch to fix building of the OpenAL bindings. (thanks to kolmodin)

Package-Manager: portage-2.1_pre4-r1

1 files changed, 29 insertions, 0 deletions

diff --git a/dev-lang/hugs98/files/hugs98-2005.3-openal.patch b/dev-lang/hugs98/files/hugs98-2005.3-openal.patch
new file mode 100644
index 000000000000..ddf4160db1b8
--- /dev/null
+++ b/dev-lang/hugs98/files/hugs98-2005.3-openal.patch
@@ -0,0 +1,29 @@
+diff -urwpN hugs98-Mar2005-orig/fptools/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs hugs98-Mar2005/fptools/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs
+--- hugs98-Mar2005-orig/fptools/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs	2006-02-16 07:42:41.000000000 +0100
++++ hugs98-Mar2005/fptools/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs	2006-02-16 07:45:53.000000000 +0100
+@@ -66,10 +66,10 @@ foreign import CALLCONV unsafe "alcCreat
+ -- | Destroys the given context.
+ 
+ destroyContext :: Context -> IO ()
+-destroyContext = ignore . alcDestroyContext
++destroyContext = alcDestroyContext
+ 
+ foreign import CALLCONV unsafe "alcDestroyContext"
+-   alcDestroyContext :: Context -> IO ALCenum
++   alcDestroyContext :: Context -> IO () 
+ 
+ --------------------------------------------------------------------------------
+ 
+@@ -102,10 +102,10 @@ foreign import CALLCONV unsafe "alcMakeC
+ -- | Performs processing on a synced context, nop on an asynchronous context.
+ 
+ processContext :: Context -> IO ()
+-processContext = ignore . alcProcessContext
++processContext = alcProcessContext
+ 
+ foreign import CALLCONV unsafe "alcProcessContext"
+-   alcProcessContext :: Context -> IO Context
++   alcProcessContext :: Context -> IO ()
+ 
+ -- | Suspends processing on an asynchronous context. This is a legal nop on a
+ -- synced context.