Metadata.hs

{-# LANGUAGE GADTs #-}
{-# OPTIONS_HADDOCK hide #-}
-- |
-- Module      : LLVM.AST.Type.Metadata
-- Copyright   : [2015..2017] Trevor L. McDonell
-- License     : BSD3
--
-- Maintainer  : Trevor L. McDonell <tmcdonell@cse.unsw.edu.au>
-- Stability   : experimental
-- Portability : non-portable (GHC extensions)
--

module LLVM.AST.Type.Metadata
  where

import LLVM.AST.Type.Operand
import qualified LLVM.AST.Operand                         as LLVM


-- | <http://llvm.org/docs/LangRef.html#metadata>
--
-- Metadata does not have a type, and is not a value.
--
data MetadataNode
  = MetadataNode [Maybe Metadata]
  | MetadataNodeReference LLVM.MetadataNodeID

data Metadata where
  MetadataStringOperand :: String -> Metadata
  MetadataOperand       :: Operand a -> Metadata
  MetadataNodeOperand   :: MetadataNode -> Metadata