diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-08-30 16:03:01 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-08-30 16:03:01 +0300 |
| commit | cc8e115b7245361d024377ef9a068d612ad29643 (patch) | |
| tree | 99899a36e6d637ed3e63217e1a02701960fc024c /src/Text/Pandoc | |
| parent | d74c63d6d3d8e0a1647ccb1447ff141e0dd1fe33 (diff) | |
| download | pandoc-cc8e115b7245361d024377ef9a068d612ad29643.tar.gz | |
Muse reader: hlint
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 01f9be41f..2c21d377e 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -964,11 +964,11 @@ explicitLink = try $ do image :: PandocMonad m => MuseParser m (F Inlines) image = try $ do string "[[" - (url, (ext, width, align)) <- manyUntil (noneOf "]") $ (imageExtensionAndOptions <* char ']') + (url, (ext, width, align)) <- manyUntil (noneOf "]") (imageExtensionAndOptions <* char ']') content <- optionMaybe linkContent char ']' let widthAttr = case align of - Just 'f' -> [("width", (fromMaybe "100" width) ++ "%"), ("height", "75%")] + Just 'f' -> [("width", fromMaybe "100" width ++ "%"), ("height", "75%")] _ -> maybeToList (("width",) . (++ "%") <$> width) let alignClass = case align of Just 'r' -> ["align-right"] |