@@ -964,11 +964,11 @@ explicitLink = try $ do
964image :: PandocMonad m => MuseParser m (F Inlines)
964image :: PandocMonad m => MuseParser m (F Inlines)
965image = try $ do
965image = try $ do
966 string "[["
966 string "[["
967− (url, (ext, width, align)) <- manyUntil (noneOf "]") $ (imageExtensionAndOptions <* char ']')
967+ (url, (ext, width, align)) <- manyUntil (noneOf "]") (imageExtensionAndOptions <* char ']')
968 content <- optionMaybe linkContent
968 content <- optionMaybe linkContent
970 let widthAttr = case align of
970 let widthAttr = case align of
971− Just 'f' -> [("width", (fromMaybe "100" width) ++ "%"), ("height", "75%")]
971+ Just 'f' -> [("width", fromMaybe "100" width ++ "%"), ("height", "75%")]
972 _ -> maybeToList (("width",) . (++ "%") <$> width)
972 _ -> maybeToList (("width",) . (++ "%") <$> width)
973 let alignClass = case align of
973 let alignClass = case align of
974 Just 'r' -> ["align-right"]
974 Just 'r' -> ["align-right"]