The experiment has succeeded

[Rakka.git] / Rakka / Wiki / Interpreter / Image.hs

diff --git a/Rakka/Wiki/Interpreter/Image.hs b/Rakka/Wiki/Interpreter/Image.hs
index 7f64de00af6c655167def262fb45be3cd61f8912..f01c2de4f5fac8f8e7976d3cb8531128e7b58b3c 100644 (file)
--- a/Rakka/Wiki/Interpreter/Image.hs
+++ b/Rakka/Wiki/Interpreter/Image.hs
@@ -27,7 +27,7 @@ imageInterp
         iciName      = "img"
       , iciInterpret
           = \ ctx (InlineCommand _ attrs inside) ->
-            do BaseURI baseURI <- getSysConf (ctxSysConf ctx) (BaseURI undefined)
+            do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
 
                let pageName = lookup "src" attrs
                when (pageName == Nothing)
@@ -67,7 +67,7 @@ imgFrameInterp
         bciName      = "imgframe"
       , bciInterpret
           = \ ctx (BlockCommand _ attrs inside) ->
-            do BaseURI baseURI <- getSysConf (ctxSysConf ctx) (BaseURI undefined)
+            do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
 
                let pageName = lookup "src" attrs
                when (pageName == Nothing)