rediff patch

diff --git a/jira-wiki-markup-1.3.patch b/jira-wiki-markup-1.3.patch
index e572d8b2df5918ddad79bc88ee29139c6b901f5d..1ff40897714d72d4400e39d05aadbdd79ff56938 100644 (file)
--- a/jira-wiki-markup-1.3.patch
+++ b/jira-wiki-markup-1.3.patch
@@ -157,7 +157,7 @@ index d1a6566875..19db341374 100644
  import Text.Pandoc.Writers.Shared (defField, metaToContext)
 @@ -193,8 +194,7 @@ toJiraInlines inlines = do
          Emph xs            -> styled Jira.Emphasis xs
-         Image attr _ tgt   -> imageToJira attr (fst tgt) (snd tgt)
+         Image _ _ (src, _) -> pure . singleton $ Jira.Image [] (Jira.URL src)
          LineBreak          -> pure . singleton $ Jira.Linebreak
 -        Link _ xs (tgt, _) -> singleton . flip Jira.Link (Jira.URL tgt)
 -                              <$> toJiraInlines xs
@@ -166,8 +166,8 @@ index d1a6566875..19db341374 100644
          Note bs            -> registerNotes bs
          Quoted qt xs       -> quotedToJira qt xs
 @@ -242,6 +242,28 @@ imageToJira (_, classes, kvs) src title =
-                    else Jira.Parameter "title" title : imgParams
-   in pure . singleton $ Jira.Image imgParams' (Jira.URL src)
+   Right xs -> xs
+   Left _  -> singleton $ Jira.Str t
  
 +-- | Creates a Jira Link element.
 +toJiraLink :: PandocMonad m