diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-01-17 21:28:49 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-01-17 21:28:49 -0800 |
| commit | 2b19d2991034b7244f10a4a9ab42b50b4f76d39c (patch) | |
| tree | bb095cd2bc61408fd205ae376535016bc0595047 /src | |
| parent | e8e1b427e15e4fe010aa91f6e0eaae6dc38aa950 (diff) | |
Fix spacing errors.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/ChunkedHTML.hs | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 423758c60..eafaa8aa4 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -664,7 +664,7 @@ internalLink = try $ do -- [[Help:Contents|] -> "Contents" <|> return (B.text $ T.drop 1 $ T.dropWhile (/=':') pagename) ) sym "]]" - linktrail <- B.text <$> manyChar (satisfy (\c -> isAscii c && isLetter c)) + linktrail <- B.text <$> manyChar (satisfy (\c -> isAscii c && isLetter c)) let link = B.link (addUnderscores pagename) "wikilink" (label <> linktrail) if "Category:" `T.isPrefixOf` pagename then do diff --git a/src/Text/Pandoc/Writers/ChunkedHTML.hs b/src/Text/Pandoc/Writers/ChunkedHTML.hs index 61dcdbd80..9757cbe6e 100644 --- a/src/Text/Pandoc/Writers/ChunkedHTML.hs +++ b/src/Text/Pandoc/Writers/ChunkedHTML.hs @@ -163,4 +163,3 @@ addContextVars opts topChunk chunk context = formatHeading ch = SimpleVal . literal . either (const "") id . runPure $ writeHtml5String opts{ writerTemplate = Nothing } (Pandoc nullMeta [Plain $ chunkHeading ch]) - |