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)
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)