diff options
Diffstat (limited to 'src/Text/Pandoc/Emoji.hs')
-rw-r--r-- | src/Text/Pandoc/Emoji.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Emoji.hs b/src/Text/Pandoc/Emoji.hs index 92a07b4c2..ec544e15d 100644 --- a/src/Text/Pandoc/Emoji.hs +++ b/src/Text/Pandoc/Emoji.hs @@ -1,4 +1,5 @@ {-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} {- | Module : Text.Pandoc.Emoji Copyright : Copyright (C) 2015 John MacFarlane @@ -13,9 +14,10 @@ Emoji symbol lookup from canonical string identifier. module Text.Pandoc.Emoji ( emojis, emojiToInline ) where import Prelude import qualified Data.Map as M +import qualified Data.Text as T import Text.Pandoc.Definition (Inline (Span, Str)) -emojis :: M.Map String String +emojis :: M.Map T.Text T.Text emojis = M.fromList [("+1","\128077") ,("-1","\128078") @@ -1810,6 +1812,6 @@ emojis = M.fromList ,("zzz","\128164") ] -emojiToInline :: String -> Maybe Inline +emojiToInline :: T.Text -> Maybe Inline emojiToInline emojikey = makeSpan <$> M.lookup emojikey emojis where makeSpan = Span ("", ["emoji"], [("data-emoji", emojikey)]) . (:[]) . Str |