    {-# OPTIONS_GHC -Wunused-imports #-}

    -- |
    -- Agda strings uses Data.Text [1], which can only represent unicode scalar values [2], excluding
    -- the surrogate code points [3] (@U+D800..U+DFFF@). To allow @primStringFromList@ to be injective
    -- we make sure character values also exclude surrogate code points, mapping them to the replacement
    -- character @U+FFFD@.
    --
    -- See #4999 for more information.
    --
    -- [1] https://hackage.haskell.org/package/text-1.2.4.0/docs/Data-Text.html#g:2
    -- [2] https://www.unicode.org/glossary/#unicode_scalar_value
    -- [3] https://www.unicode.org/glossary/#surrogate_code_point

    module Agda.Utils.Char where

    import Data.Char

    -- | The unicode replacement character � .
    replacementChar :: Char
    replacementChar :: Char
    replacementChar = Char
    '\xFFFD'

    -- | Is a character a surrogate code point.
    isSurrogateCodePoint :: Char -> Bool
    isSurrogateCodePoint :: Char -> Bool
    isSurrogateCodePoint Char
    c = Char -> GeneralCategory
    generalCategory Char
    c GeneralCategory -> GeneralCategory -> Bool
    forall a. Eq a => a -> a -> Bool
    == GeneralCategory
    Surrogate

    -- | Map surrogate code points to the unicode replacement character.
    replaceSurrogateCodePoint :: Char -> Char
    replaceSurrogateCodePoint :: Char -> Char
    replaceSurrogateCodePoint Char
    c
      | Char -> Bool
    isSurrogateCodePoint Char
    c = Char
    replacementChar
      | Bool
    otherwise              = Char
    c

    -- | Total function to convert an integer to a character. Maps surrogate code points
    --   to the replacement character @U+FFFD@.
    integerToChar :: Integer -> Char
    integerToChar :: Integer -> Char
    integerToChar = Char -> Char
    replaceSurrogateCodePoint (Char -> Char) -> (Integer -> Char) -> Integer -> Char
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . Int -> Char
    forall a. Enum a => Int -> a
    toEnum (Int -> Char) -> (Integer -> Int) -> Integer -> Char
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . Integer -> Int
    forall a b. (Integral a, Num b) => a -> b
    fromIntegral (Integer -> Int) -> (Integer -> Integer) -> Integer -> Int
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . (Integer -> Integer -> Integer
    forall a. Integral a => a -> a -> a
    `mod` Integer
    0x110000)