module Data.GI.GIR.Allocation
( AllocationInfo(..)
, AllocationOp(..)
, unknownAllocationInfo
) where
import Data.Text (Text)
data AllocationInfo = AllocationInfo {
allocCalloc :: AllocationOp
, allocCopy :: AllocationOp
, allocFree :: AllocationOp
} deriving (Show)
data AllocationOp = AllocationOpUnknown
| AllocationOp Text
deriving (Show, Eq)
unknownAllocationInfo :: AllocationInfo
unknownAllocationInfo = AllocationInfo {
allocCalloc = AllocationOpUnknown
, allocCopy = AllocationOpUnknown
, allocFree = AllocationOpUnknown
}