Import hs-plugins cvs

examples/dynload/poly/Plugin.hs

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