sdl2-2.4.0: src/Data/Bitmask.hs

module Data.Bitmask (foldFlags) where

import Prelude hiding (foldl)

import Data.Bits
import Data.Foldable

foldFlags :: (Bits b, Foldable f, Num b) => (flag -> b) -> f flag -> b
foldFlags f = foldl (\a b -> a .|. f b) 0