module CabalGild.Unstable.Extra.Field where

import qualified Distribution.Fields as Fields

-- | Extracts the name of a 'Fields.Field'.
name :: Fields.Field a -> Fields.Name a
name :: forall a. Field a -> Name a
name Field a
f = case Field a
f of
  Fields.Field Name a
n [FieldLine a]
_ -> Name a
n
  Fields.Section Name a
n [SectionArg a]
_ [Field a]
_ -> Name a
n