@@ -533,7 +533,7 @@ imageICML opts style attr _ (src, _) = do
533 hw = showFl $ ow / 2
533 hw = showFl $ ow / 2
534 hh = showFl $ oh / 2
534 hh = showFl $ oh / 2
535 scale = showFl (imgWidth / ow) ++ " 0 0 " ++ showFl (imgHeight / oh)
535 scale = showFl (imgWidth / ow) ++ " 0 0 " ++ showFl (imgHeight / oh)
536− src' = if isURI src then src else "file://." ++ pathSeparator : src
536+ src' = if isURI src then src else "file:" ++ src
537 (stlStr, attrs) = styleToStrAttr style
537 (stlStr, attrs) = styleToStrAttr style
538 props = inTags True "Properties" [] $ inTags True "PathGeometry" []
538 props = inTags True "Properties" [] $ inTags True "PathGeometry" []
539 $ inTags True "GeometryPathType" [("PathOpen","false")]
539 $ inTags True "GeometryPathType" [("PathOpen","false")]