@@ -964,11 +964,11 @@ explicitLink = try $ do
964964image :: PandocMonad m => MuseParser m (F Inlines)
965965image = try $ do
966966 string "[["
967− (url, (ext, width, align)) <- manyUntil (noneOf "]") $ (imageExtensionAndOptions <* char ']')
967+ (url, (ext, width, align)) <- manyUntil (noneOf "]") (imageExtensionAndOptions <* char ']')
968968 content <- optionMaybe linkContent
969969 char ']'
970970 let widthAttr = case align of
971− Just 'f' -> [("width", (fromMaybe "100" width) ++ "%"), ("height", "75%")]
971+ Just 'f' -> [("width", fromMaybe "100" width ++ "%"), ("height", "75%")]
972972 _ -> maybeToList (("width",) . (++ "%") <$> width)
973973 let alignClass = case align of
974974 Just 'r' -> ["align-right"]