Thu May 7 07:18:48 EDT 2009 Marco T[_\c3_][_\ba_]lio Gontijo e Silva <ma...@ho...>
* gtk/Graphics/UI/Gtk/General/Structs.hsc: Accept responses 0 and smaller than -11.
Ignore-this: f64b69b52a743ac54b404452178b29c0
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 551
-fromResponse (ResponseUser i) | i > 0 = fromIntegral i
+fromResponse (ResponseUser i) = fromIntegral i
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 565
-toResponse i | i >= 0 = ResponseUser $ fromIntegral i
+toResponse i = ResponseUser $ fromIntegral i
|
