GitAuthors.hs

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -Wall #-}

{- | The name @gitAuthors@, targeting @['String']@: the authors of every commit to change a file, as @Name \<email\>@, most recent first.

Any value of the target type has the name, as the identity.

@since 0.2.0.0
-}
module Document.Build.Name.GitAuthors (
  GitAuthorsLike (..),
) where

import Control.Lens (Optic)

{- | A field or a constructor named @gitAuthors@.

@since 0.2.0.0
-}
class GitAuthorsLike p f x x' where
  gitAuthors ::
    Optic p f x x' [String] [String]

{- | Identity

@since 0.2.0.0
-}
instance (x' ~ [String]) => GitAuthorsLike p f [String] x' where
  gitAuthors =
    id
  {-# INLINE gitAuthors #-}