Use T.P.XML lookupEntity in Jira reader.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Readers/Jira.hs b/src/Text/Pandoc/Readers/Jira.hs
index 74918130d..aa18a80d2 100644
--- a/src/Text/Pandoc/Readers/Jira.hs
+++ b/src/Text/Pandoc/Readers/Jira.hs
@@ -13,7 +13,7 @@ module Text.Pandoc.Readers.Jira ( readJira ) where
 
 import Control.Monad.Except (throwError)
 import Data.Text (Text, append, pack, singleton, unpack)
-import Text.HTML.TagSoup.Entity (lookupEntity)
+import Text.Pandoc.XML (lookupEntity)
 import Text.Jira.Parser (parse)
 import Text.Pandoc.Class.PandocMonad (PandocMonad (..))
 import Text.Pandoc.Builder hiding (cell)
@@ -137,9 +137,9 @@ jiraToPandocInlines = \case
   Jira.Styled style inlns -> fromStyle style $ fromInlines inlns
   where
     fromInlines  = foldMap jiraToPandocInlines
-    fromEntity e = case lookupEntity (unpack e ++ ";") of
+    fromEntity e = case lookupEntity (e <> ";") of
                      Nothing -> "&" `append` e `append` ";"
-                     Just cs -> pack cs
+                     Just t ->t
 
     fromStyle = \case
       Jira.Emphasis    -> emph