Update examples to use new module names

This commit is contained in:
Don Stewart
2005-05-15 06:03:55 +00:00
parent cfae954a22
commit 63717dc07c
94 changed files with 97 additions and 109 deletions

View File

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

View File

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

View File

@ -1,5 +1,5 @@
import Plugins
import System.Plugins
import API
main = do

View File

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

View File

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

View File

@ -2,7 +2,7 @@
#include "../../../../config.h"
import Plugins
import System.Plugins
import API
main = do

View File

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

View File

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

View File

@ -1,5 +1,5 @@
import Plugins
import System.Plugins
import API
main = do

View File

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

View File

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

View File

@ -1,5 +1,5 @@
import Plugins
import System.Plugins
import API
main = do

View File

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

View File

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

View File

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

View File

@ -1,5 +1,5 @@
import Plugins
import System.Plugins
import API
conf = "../Plugin.in"

View File

@ -1,5 +1,5 @@
../Plugin.in:18:15:
../Plugin.in:13:15:
Couldn't match `Dynamic' against `(a, b)'
Expected type: Dynamic
Inferred type: (a, b)

View File

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

View File

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

View File

@ -1,5 +1,5 @@
import Plugins
import System.Plugins
import API
conf = "../Plugin.in"

View File

@ -1,5 +1,5 @@
../Plugin.in:18:15:
../Plugin.in:12:15:
Couldn't match `Dynamic' against `(a, b)'
Expected type: Dynamic
Inferred type: (a, b)

View File

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

View File

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

View File

@ -2,7 +2,7 @@
#include "../../../../config.h"
import Plugins
import System.Plugins
import API
main = do