File: Flags.hs

package info (click to toggle)
haskell-haskell-gi 0.26.12-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 800 kB
  • sloc: haskell: 8,617; ansic: 74; makefile: 4
file content (17 lines) | stat: -rw-r--r-- 431 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
-- | 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 Data.GI.GIR.Flags
    ( Flags(..)
    , parseFlags
    ) where

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

data Flags = Flags Enumeration
    deriving Show

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