cabal-gild-0.3.0.1: source/library/CabalGild/Extra/Field.hs

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 f = case f of
  Fields.Field n _ -> n
  Fields.Section n _ _ -> n