freetype2-0.2.0: FreeType/Error/Enumerations.hsc

{- | Please refer to the
     [Error Codes > Error Enumerations](https://www.freetype.org/freetype2/docs/reference/ft2-error_enumerations.html)
     chapter of the reference.

     Internal: "FreeType.Error.Enumerations.Internal".
 -}

module FreeType.Error.Enumerations
  ( -- ** FT_Error_String
    ft_Error_String
  ) where

import           FreeType.Core.Types.Types
import           FreeType.Error.Enumerations.Internal

import           Foreign.C.String
import           Foreign.Ptr
import           System.IO.Unsafe



-- | Always returns @Nothing@.
--
--   If you need this function working, you can fork the repository and uncomment
--   @#define FT_CONFIG_OPTION_ERROR_STRINGS@ in
--   @/freetype2/include/freetype/config/ftoption.h@
ft_Error_String
  :: FT_Error     -- ^ error_code
  -> Maybe String
ft_Error_String err =
  unsafePerformIO $ do
    ptr <- ft_Error_String' err
    if ptr == nullPtr
      then return Nothing
      else Just <$> peekCString (castPtr ptr)