diff options
Diffstat (limited to 'src/Text/Pandoc/Emoji')
-rw-r--r-- | src/Text/Pandoc/Emoji/TH.hs | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/src/Text/Pandoc/Emoji/TH.hs b/src/Text/Pandoc/Emoji/TH.hs deleted file mode 100644 index bf3ed0c16..000000000 --- a/src/Text/Pandoc/Emoji/TH.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TemplateHaskellQuotes #-} -{- | - Module : Text.Pandoc.Emoji.TH - Copyright : Copyright (C) 2019 John MacFarlane - License : GNU GPL, version 2 or above - - Maintainer : John MacFarlane <jgm@berkeley.edu> - Stability : alpha - Portability : portable - -Code generation for emoji list in Text.Pandoc.Emoji. --} -module Text.Pandoc.Emoji.TH ( genEmojis ) where -import Prelude -import Data.Aeson -import qualified Data.ByteString.Lazy as B -import Language.Haskell.TH -import Language.Haskell.TH.Syntax (addDependentFile) - -genEmojis :: FilePath -> Q Exp -genEmojis fp = do - addDependentFile fp - bs <- runIO $ B.readFile fp - case eitherDecode bs of - Left e -> error e - Right (emoji :: [Emoji]) -> [| emojis |] - where emojis = [ (alias, txt) - | Emoji txt aliases <- emoji - , alias <- aliases - ] - -data Emoji = Emoji String [String] - deriving Show - -instance FromJSON Emoji where - parseJSON = withObject "Emoji" $ \v -> Emoji - <$> v .: "emoji" - <*> v .: "aliases" |