module CabalGild.Extra.SectionArg where import qualified Distribution.Fields as Fields annotation :: Fields.SectionArg a -> a annotation :: forall a. SectionArg a -> a annotation SectionArg a sa = case SectionArg a sa of Fields.SecArgName a x ByteString _ -> a x Fields.SecArgStr a x ByteString _ -> a x Fields.SecArgOther a x ByteString _ -> a x