module CabalGild.Extra.Field where

import qualified Distribution.Fields as Fields

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