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"