dev-lang/ghc/files/ghc-6.4.1-openal.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

diff -urwpN ghc-6.4.1-orig/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs ghc-6.4.1/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs
--- ghc-6.4.1-orig/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs	2006-02-11 22:28:57.000000000 +0100
+++ ghc-6.4.1/libraries/OpenAL/Sound/OpenAL/ALC/Context.hs	2006-02-11 22:31:39.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.