@@ -1,5 +1,6 @@
11{-# LANGUAGE ScopedTypeVariables #-}
22{-# LANGUAGE OverloadedStrings #-}
3+{-# LANGUAGE TemplateHaskellQuotes #-}
34{- |
45 Module : Text.Pandoc.Emoji.TH
56 Copyright : Copyright (C) 2019 John MacFarlane
@@ -24,12 +25,11 @@ genEmojis fp = do
2425 bs <- runIO $ B.readFile fp
2526 case eitherDecode bs of
2627 Left e -> error e
27− Right (emoji :: [Emoji]) ->
28− return $ ListE
29− [TupE [ LitE (StringL alias),
30− LitE (StringL txt) ]
31− | Emoji txt aliases <- emoji
32− , alias <- aliases]
28+ Right (emoji :: [Emoji]) -> [| emojis |]
29+ where emojis = [ (alias, txt)
30+ | Emoji txt aliases <- emoji
31+ , alias <- aliases
32+ ]
3333
3434data Emoji = Emoji String [String]
3535 deriving Show