module CabalGild.Extra.SectionArg where

import qualified Distribution.Fields as Fields

annotation :: Fields.SectionArg a -> a
annotation :: forall a. SectionArg a -> a
annotation SectionArg a
sa = case SectionArg a
sa of
  Fields.SecArgName a
x ByteString
_ -> a
x
  Fields.SecArgStr a
x ByteString
_ -> a
x
  Fields.SecArgOther a
x ByteString
_ -> a
x