13 lines
215 B
Haskell
Raw Normal View History

2005-04-24 08:51:33 +00:00
module Plugin where
import API
import AltData.Dynamic
2005-04-24 08:51:33 +00:00
my_fun = plugin {
equals = \x y -> (x /= y) -- a strange equals function :)
}
resource_dyn :: Dynamic
resource_dyn = toDyn my_fun