Record before chucking Data.Generics. It's way too slow.

[Rakka.git] / Rakka / Wiki / Formatter.hs

diff --git a/Rakka/Wiki/Formatter.hs b/Rakka/Wiki/Formatter.hs
index 969c228a756ad93d269ff8d69d219466ece5bd99..4b483db37dba260310b2263ea644db9085684b3c 100644 (file)
--- a/Rakka/Wiki/Formatter.hs
+++ b/Rakka/Wiki/Formatter.hs
@@ -241,7 +241,9 @@ formatPageLink
 
 formatImage :: (ArrowXml a) => a (URI, InlineElement) XmlTree
 formatImage = proc (baseURI, Image src alt)
-            -> let uri  = mkObjectURI baseURI src
+            -> let uri  = case src of
+                            Left  uri  -> uri
+                            Right name -> mkObjectURI baseURI name
                    href = uriToString id uri ""
                in
                  ( eelem "img"