[Gtk2hs-commit] (main branch): gtk/Graphics/UI/Gtk/General/Structs.hsc: Accept responses 0 and smaller than -11.

[Axel S. <si...@co...>]

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