module CabalGild.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