Record before an experiment

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

diff --git a/Rakka/Wiki/Interpreter/Base/Image.hs b/Rakka/Wiki/Interpreter/Base/Image.hs
index d23ec78ded73dcf5f1ee2d19da339d7d443d6e7f..f73b205454604d055b96f873047c636eac093105 100644 (file)
--- a/Rakka/Wiki/Interpreter/Base/Image.hs
+++ b/Rakka/Wiki/Interpreter/Base/Image.hs
@@ -21,8 +21,8 @@ imageInterp
     = InlineCommandInterpreter {
         iciName      = "img"
       , iciInterpret
-          = \ (InlineCommand _ attrs inside) _ _ sysConf ->
-            do BaseURI baseURI <- getSysConf sysConf (BaseURI undefined)
+          = \ ctx (InlineCommand _ attrs inside) ->
+            do BaseURI baseURI <- getSysConf (ctxSysConf ctx) (BaseURI undefined)
 
                let pageName = lookup "src" attrs
                when (pageName == Nothing)
@@ -61,8 +61,8 @@ imgFrameInterp
     = BlockCommandInterpreter {
         bciName      = "imgframe"
       , bciInterpret
-          = \ (BlockCommand _ attrs inside) _ _ sysConf ->
-            do BaseURI baseURI <- getSysConf sysConf (BaseURI undefined)
+          = \ ctx (BlockCommand _ attrs inside) ->
+            do BaseURI baseURI <- getSysConf (ctxSysConf ctx) (BaseURI undefined)
 
                let pageName = lookup "src" attrs
                when (pageName == Nothing)