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