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:
@ -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 )
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
module API where
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
|
||||
data TestIO = TestIO {
|
||||
field :: IO String
|
||||
|
@ -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 :)
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
module API where
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
|
||||
data Interface = Interface {
|
||||
equals :: forall t. Eq t => t -> t -> Bool
|
||||
|
@ -2,7 +2,7 @@
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData.Dynamic
|
||||
import Data.Dynamic
|
||||
|
||||
v :: Int
|
||||
v = 0xdeadbeef
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
module API where
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
|
@ -5,7 +5,7 @@
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData.Dynamic
|
||||
import Data.Dynamic
|
||||
|
||||
v :: Int -> Int
|
||||
v = \x -> 0xdeadbeef
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
module API where
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
|
@ -9,7 +9,7 @@
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
import GHC.Base
|
||||
|
||||
v :: Int
|
||||
|
@ -3,7 +3,7 @@
|
||||
module Plugin ( resource_dyn ) where
|
||||
|
||||
import API
|
||||
import AltData.Dynamic
|
||||
import Data.Dynamic
|
||||
|
||||
resource = plugin
|
||||
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
module API where
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
import GHC.Base
|
||||
|
||||
data Interface = Interface {
|
||||
|
@ -9,7 +9,7 @@ module Plugin where
|
||||
|
||||
import API
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
import GHC.Base
|
||||
|
||||
v :: Int
|
||||
|
@ -3,7 +3,7 @@
|
||||
module Plugin ( resource_dyn ) where
|
||||
|
||||
import API
|
||||
import AltData.Dynamic
|
||||
import Data.Dynamic
|
||||
|
||||
resource = plugin
|
||||
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
module API where
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
import GHC.Base
|
||||
|
||||
data Interface = Interface {
|
||||
|
@ -2,7 +2,7 @@
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData.Dynamic
|
||||
import Data.Dynamic
|
||||
|
||||
my_fun = plugin { function = "plugin says \"hello\"" }
|
||||
|
||||
|
@ -2,7 +2,7 @@
|
||||
|
||||
module API where
|
||||
|
||||
import AltData.Typeable
|
||||
import Data.Typeable
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
|
Reference in New Issue
Block a user