Re: [Gtk2hs-devel] System.Glib.Flags.toFlags

[Peter G. <pg...@gm...>]

On 11/5/07, Peter Gavin <pg...@gm...> wrote:
> toFlags' :: Flags a => Int -> [a]
> toFlags' n = catMaybes [ if n .&. fromEnum flag /= 0
>                             then Just flag
>                             else Nothing
>                        | flag <- [ minBound .. maxBound ] ]

I realized this isn't exactly right... this would be better:

toFlags' n = catMaybes [ if n .&. fromEnum flag == fromEnum flag
                            then Just flag
                            else Nothing
                       | flag <- [ minBound .. maxBound ] ]

I've attached an amended patch.

Pete