@@ -50,8 +50,7 @@ import qualified Foreign.Lua.Module.Text as Lua
50-- initalization.
50-- initalization.
51runPandocLua :: Lua a -> PandocIO (Either LuaException a)
51runPandocLua :: Lua a -> PandocIO (Either LuaException a)
52runPandocLua luaOp = do
52runPandocLua luaOp = do
53− datadir <- getUserDataDir
54− luaPkgParams <- luaPackageParams datadir
53+ luaPkgParams <- luaPackageParams
55 enc <- liftIO $ getForeignEncoding <* setForeignEncoding utf8
54 enc <- liftIO $ getForeignEncoding <* setForeignEncoding utf8
56 res <- liftIO $ Lua.runLuaEither (initLuaState luaPkgParams *> luaOp)
55 res <- liftIO $ Lua.runLuaEither (initLuaState luaPkgParams *> luaOp)
57 liftIO $ setForeignEncoding enc
56 liftIO $ setForeignEncoding enc
@@ -60,9 +59,10 @@ runPandocLua luaOp = do
60 return res
59 return res
62-- | Generate parameters required to setup pandoc's lua environment.
61-- | Generate parameters required to setup pandoc's lua environment.
63−luaPackageParams :: Maybe FilePath -> PandocIO LuaPackageParams
62+luaPackageParams :: PandocIO LuaPackageParams
64−luaPackageParams datadir = do
63+luaPackageParams = do
65 commonState <- getCommonState
64 commonState <- getCommonState
65+ datadir <- getUserDataDir
66 mbRef <- liftIO . newIORef =<< getMediaBag
66 mbRef <- liftIO . newIORef =<< getMediaBag
67 return LuaPackageParams
67 return LuaPackageParams
68 { luaPkgCommonState = commonState
68 { luaPkgCommonState = commonState