Adapt to work with GHC 6.12

- Adapted the package to work with GHC 6.12
- Plugins that depend on the old base3 are currently
  not correctly loaded as the plugin loaded misses
  the dependence on syb (leading to unresolved symbols)
- Cleaned up most of the testsuite (there are still
  some outstanding failures, of which only one
  demonstrates a bug in the plugins library as far
  as I can see — see previous bullet point)
- Cleaned out a little cruft (but more could be done)
This commit is contained in:
Manuel M T Chakravarty
2010-09-22 05:10:19 +00:00
parent 67635f72b8
commit 838f8c0aca
34 changed files with 89 additions and 96 deletions

View File

@ -7,7 +7,7 @@
module TestIO ( resource_dyn ) where
import API
import AltData.Dynamic
import Data.Dynamic
import System.IO
import System.Posix.Types ( ProcessID, Fd )

View File

@ -2,7 +2,7 @@
module API where
import AltData.Typeable
import Data.Typeable
data TestIO = TestIO {
field :: IO String

View File

@ -1,7 +1,7 @@
module Plugin where
import API
import AltData.Dynamic
import Data.Dynamic
my_fun = plugin {
equals = \x y -> (x /= y) -- a strange equals function :)

View File

@ -2,7 +2,7 @@
module API where
import AltData.Typeable
import Data.Typeable
data Interface = Interface {
equals :: forall t. Eq t => t -> t -> Bool

View File

@ -2,7 +2,7 @@
module Plugin where
import API
import AltData.Dynamic
import Data.Dynamic
v :: Int
v = 0xdeadbeef

View File

@ -2,7 +2,7 @@
module API where
import AltData.Typeable
import Data.Typeable
data Interface = Interface {
function :: String

View File

@ -5,7 +5,7 @@
module Plugin where
import API
import AltData.Dynamic
import Data.Dynamic
v :: Int -> Int
v = \x -> 0xdeadbeef

View File

@ -2,7 +2,7 @@
module API where
import AltData.Typeable
import Data.Typeable
data Interface = Interface {
function :: String

View File

@ -9,7 +9,7 @@
module Plugin where
import API
import AltData.Typeable
import Data.Typeable
import GHC.Base
v :: Int

View File

@ -3,7 +3,7 @@
module Plugin ( resource_dyn ) where
import API
import AltData.Dynamic
import Data.Dynamic
resource = plugin

View File

@ -2,7 +2,7 @@
module API where
import AltData.Typeable
import Data.Typeable
import GHC.Base
data Interface = Interface {

View File

@ -9,7 +9,7 @@ module Plugin where
import API
import AltData.Typeable
import Data.Typeable
import GHC.Base
v :: Int

View File

@ -3,7 +3,7 @@
module Plugin ( resource_dyn ) where
import API
import AltData.Dynamic
import Data.Dynamic
resource = plugin

View File

@ -2,7 +2,7 @@
module API where
import AltData.Typeable
import Data.Typeable
import GHC.Base
data Interface = Interface {

View File

@ -2,7 +2,7 @@
module Plugin where
import API
import AltData.Dynamic
import Data.Dynamic
my_fun = plugin { function = "plugin says \"hello\"" }

View File

@ -2,7 +2,7 @@
module API where
import AltData.Typeable
import Data.Typeable
data Interface = Interface {
function :: String