ImageColourspace.hs

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

{- | The name @imageColourspace@, targeting 'String': the colourspace of an image, such as @sRGB@.

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

@since 0.2.0.0
-}
module Document.Build.Name.ImageColourspace (
  ImageColourspaceLike (..),
) where

import Control.Lens (Optic)

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

@since 0.2.0.0
-}
class ImageColourspaceLike p f x x' where
  imageColourspace ::
    Optic p f x x' String String

{- | Identity

@since 0.2.0.0
-}
instance (x' ~ String) => ImageColourspaceLike p f String x' where
  imageColourspace =
    id
  {-# INLINE imageColourspace #-}