{-# LANGUAGE CPP #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE Safe #-}
module Data.Char.Emoji.Core
(
withEmojiSuffix,
pattern EmojiSuffix,
)
where
#if __GLASGOW_HASKELL__ < 803
import Data.Semigroup(Semigroup((<>)))
#endif
import Data.String (IsString, fromString)
pattern EmojiSuffix :: Char
pattern $bEmojiSuffix :: Char
$mEmojiSuffix :: forall {r}. Char -> ((# #) -> r) -> ((# #) -> r) -> r
EmojiSuffix = '\xfe0f'
withEmojiSuffix ::
(Semigroup s, IsString s) =>
s ->
s
withEmojiSuffix :: forall s. (Semigroup s, IsString s) => s -> s
withEmojiSuffix = (forall a. Semigroup a => a -> a -> a
<> forall a. IsString a => String -> a
fromString [Char
EmojiSuffix])