From: Peter g. <pg...@co...> - 2009-04-24 15:23:53
|
Fri Apr 24 11:21:36 EDT 2009 pg...@gm... * gtk: allow zero as argument to toResponse in G.U.G.General.Structs Ignore-this: 922761ff9383f47f6efc030377241316 hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 565 -toResponse i | i > 0 = ResponseUser $ fromIntegral i +toResponse i | i >= 0 = ResponseUser $ fromIntegral i |