FontsDirectory.hs

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

{- | The name @fontsDirectory@, targeting @'Maybe' 'FilePath'@: the directory of fonts that LibreOffice uses during a build, if there is one.

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

@since 0.2.0.0
-}
module Document.Build.Name.FontsDirectory (
  FontsDirectoryLike (..),
) where

import Control.Lens (Optic)

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

@since 0.2.0.0
-}
class FontsDirectoryLike p f x x' where
  fontsDirectory ::
    Optic p f x x' (Maybe FilePath) (Maybe FilePath)

{- | Identity

@since 0.2.0.0
-}
instance (x' ~ Maybe FilePath) => FontsDirectoryLike p f (Maybe FilePath) x' where
  fontsDirectory =
    id
  {-# INLINE fontsDirectory #-}