@@ -37,7 +37,6 @@ 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
4140import Data.ByteString (ByteString)
4241import qualified Data.ByteString.Char8 as C8
4342import Data.Monoid
@@ -132,7 +131,7 @@ instance StackValue MetaValue where
132131-- | Convert Pandoc to custom markup.
133132writeCustom :: FilePath -> WriterOptions -> Pandoc -> IO String
134133writeCustom luaFile opts doc = do
135− luaScript <- UTF8.readFile luaFile
134+ luaScript <- C8.unpack `fmap` C8.readFile luaFile
136135 lua <- Lua.newstate
137136 Lua.openlibs lua
138137 Lua.loadstring lua luaScript "custom"