aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2025-08-30 10:58:19 +0200
committerJohn MacFarlane <[email protected]>2025-08-30 10:58:19 +0200
commit8d7aed2355bc12ec0946669edd44c0c5227f7bd8 (patch)
tree701a6fea0398e9148db4cebce414e60654555446 /src
parentf865b3bc4bc6fb29fdfb1b44778952b5efb578ab (diff)
Typst reader: fix addition of image path prefix to use posix separator.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Typst.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Typst.hs b/src/Text/Pandoc/Readers/Typst.hs
index d6ea1b036..cf869bd73 100644
--- a/src/Text/Pandoc/Readers/Typst.hs
+++ b/src/Text/Pandoc/Readers/Typst.hs
@@ -50,7 +50,7 @@ import Text.Pandoc.Readers.Typst.Parsing (pTok, ignored, getField, P,
import Typst.Methods (formatNumber, applyPureFunction)
import Typst.Types
import qualified Data.Vector as V
-import System.FilePath (takeDirectory, (</>))
+import System.FilePath (takeDirectory)
import qualified System.FilePath.Windows as Windows
import qualified System.FilePath.Posix as Posix
@@ -502,7 +502,7 @@ inlineHandlers = M.fromList
let path' = T.pack $
if isAbsolutePath path || basedir == "."
then path
- else basedir </> path
+ else basedir Posix.</> path
(mbwidth :: Maybe Text) <-
fmap (renderLength False) <$> getField "width" fields
(mbheight :: Maybe Text) <-