Import hs-plugins cvs

examples/load/thiemann2/prog/A.hs

@@ -0,0 +1,8 @@
+module A where
+
+import API
+
+import qualified B
+
+resource = Test { field = B.resource }
+

examples/load/thiemann2/prog/B.hs

@@ -0,0 +1,3 @@
+module B where
+
+resource = "i'm in b"

examples/load/thiemann2/prog/Main.hs

@@ -0,0 +1,20 @@
+
+import Plugins
+import API
+
+import A
+
+main = do
+        -- compile C (A and B are already compiled)
+        status <- makeAll "../C.hs" ["-i../api"]
+        obj    <- case status of
+                    MakeSuccess _ o -> return o
+                    MakeFailure e   -> mapM_ putStrLn e >> error "failed"
+
+        -- should load C
+        m_v <- load_ obj ["../api","."] "resource"
+        v <- case m_v of
+                LoadFailure _   -> error "load failed"
+                LoadSuccess _ v -> return v
+        let s = field v
+        print s

examples/load/thiemann2/prog/expected

@@ -0,0 +1 @@
+"i'm in b"