diff options
| author | askeblad <74082607+askeblad@users.noreply.github.com> | 2022-04-06 10:47:57 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-06 17:47:57 +0200 |
| commit | a127bb256ec411b2e78edba21299c5dabba3b847 (patch) | |
| tree | 835521eb575bbaba2ca89e542fd4a3f12b577468 /haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs | |
| parent | d8dbbdad173baafe73acc98e6427c468fd3e13cc (diff) | |
spelling errors (#1471)
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs b/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs index bf29a7b4..02d6dafd 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -46,7 +46,7 @@ parHtmlMarkup qual insertAnchors ppId = Markup { markupIdentifierUnchecked = thecode . ppUncheckedLink qual, markupModule = \(ModLink m lbl) -> let (mdl,ref) = break (=='#') m - -- Accomodate for old style + -- Accommodate for old style -- foo\#bar anchors mdl' = case reverse mdl of '\\':_ -> init mdl |