Import hs-plugins cvs

examples/dynload/should_fail/prog/Main.hs

@@ -0,0 +1,14 @@
+
+import Plugins
+import API
+
+main = do 
+    m_v   <- dynload "../Plugin.o" 
+                     ["../api"] 
+                     ["../../../../plugins.conf.inplace"] 
+                     "resource_dyn"
+
+    case m_v of
+        LoadFailure _    -> putStrLn "didn't compile"
+        LoadSuccess _ v  -> putStrLn $ function v
+

examples/dynload/should_fail/prog/expected

@@ -0,0 +1,4 @@
+Couldn't match `API.Interface' against `Int'
+	Expected type: API.Interface
+	Inferred type: Int
+didn't compile