src/Text/Emoji/Text.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-|
  Module:      Text.Emoji.Text
  Description: Emoji utilities for Text
-}


module Text.Emoji.Text where

import qualified Text.Emoji.String as S
import           Text.Emoji.Types

import           Data.Text         (Text (), pack)

-- | Ouputs the given Emoji into Text.
-- Uses the implementation of Text.Emoji.String
-- since Text uses Chars, too.
fromEmoji :: Emoji -> Text
fromEmoji = pack . S.fromEmoji