haskell-gi-0.8: src/GI/GIR/Flags.hs

-- | Parsing of bitfields, a.k.a. flags. They are represented in the
-- same way as enums, so this is a thin wrapper over that code.
module GI.GIR.Flags
    ( Flags(..)
    , parseFlags
    ) where

import GI.GIR.Enum (Enumeration, parseEnum)
import GI.GIR.Parser

data Flags = Flags Enumeration
    deriving Show

parseFlags :: Parser (Name, Flags)
parseFlags = do
  (n, enum) <- parseEnum
  return (n, Flags enum)