@@ -110,7 +110,7 @@ makePDF "pdfroff" writer opts verbosity _mediabag doc = liftIO $ do
110 source <- runIOorExplode $ do
110 source <- runIOorExplode $ do
111 setVerbosity verbosity
111 setVerbosity verbosity
112 writer opts doc
112 writer opts doc
113− let args = ["-ms", "-e", "-k", "-i"]
113+ let args = ["-ms", "-e", "-t", "-k", "-KUTF-8", "-i"]
114 ms2pdf verbosity args source
114 ms2pdf verbosity args source
115makePDF program writer opts verbosity mediabag doc = do
115makePDF program writer opts verbosity mediabag doc = do
116 let withTemp = if takeBaseName program == "context"
116 let withTemp = if takeBaseName program == "context"