src/Text/Emoji/String.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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

module Text.Emoji.String where

import           Text.Emoji.Types

import           Codec.Binary.UTF8.Light (w2c)

-- | Outputs a String for the given Emoji.
fromEmoji :: Emoji -> String
fromEmoji e = map w2c $ _code e