@@ -37,6 +37,7 @@ import Data.Char ( toLower )
37import Scripting.Lua (LuaState, StackValue, callfunc)
37import Scripting.Lua (LuaState, StackValue, callfunc)
38import qualified Scripting.Lua as Lua
38import qualified Scripting.Lua as Lua
39import Text.Pandoc.UTF8 (fromString, toString)
39import Text.Pandoc.UTF8 (fromString, toString)
40+import qualified Text.Pandoc.UTF8 as UTF8
40import Data.ByteString (ByteString)
41import Data.ByteString (ByteString)
41import qualified Data.ByteString.Char8 as C8
42import qualified Data.ByteString.Char8 as C8
42import Data.Monoid
43import Data.Monoid
@@ -131,7 +132,7 @@ instance StackValue MetaValue where
131-- | Convert Pandoc to custom markup.
132-- | Convert Pandoc to custom markup.
132writeCustom :: FilePath -> WriterOptions -> Pandoc -> IO String
133writeCustom :: FilePath -> WriterOptions -> Pandoc -> IO String
133writeCustom luaFile opts doc = do
134writeCustom luaFile opts doc = do
134− luaScript <- readFile luaFile
135+ luaScript <- UTF8.readFile luaFile
135 lua <- Lua.newstate
136 lua <- Lua.newstate
136 Lua.openlibs lua
137 Lua.openlibs lua
137 Lua.loadstring lua luaScript "custom"
138 Lua.loadstring lua luaScript "custom"