@@ -37,6 +37,7 @@ import Data.Char ( toLower )
3737import Scripting.Lua (LuaState, StackValue, callfunc)
3838import qualified Scripting.Lua as Lua
3939import Text.Pandoc.UTF8 (fromString, toString)
40+import qualified Text.Pandoc.UTF8 as UTF8
4041import Data.ByteString (ByteString)
4142import qualified Data.ByteString.Char8 as C8
4243import Data.Monoid
@@ -131,7 +132,7 @@ instance StackValue MetaValue where
131132-- | Convert Pandoc to custom markup.
132133writeCustom :: FilePath -> WriterOptions -> Pandoc -> IO String
133134writeCustom luaFile opts doc = do
134− luaScript <- readFile luaFile
135+ luaScript <- UTF8.readFile luaFile
135136 lua <- Lua.newstate
136137 Lua.openlibs lua
137138 Lua.loadstring lua luaScript "custom"