module CabalGild.Extra.Name where import qualified Distribution.Fields as Fields annotation :: Fields.Name a -> a annotation :: forall a. Name a -> a annotation (Fields.Name a x FieldName _) = a x value :: Fields.Name a -> Fields.FieldName value :: forall a. Name a -> FieldName value (Fields.Name a _ FieldName x) = FieldName x