aboutsummaryrefslogtreecommitdiff
path: root/haddock-library/src
diff options
context:
space:
mode:
authoralexbiehl <alexbiehl@gmail.com>2021-02-07 17:46:25 +0100
committeralexbiehl <alexbiehl@gmail.com>2021-02-07 17:46:25 +0100
commit2f34d120c6da996d23518c3fa9065ccf0e05a551 (patch)
treecf1aa4083e73df02b0bdc95e0ae3ed370e46349a /haddock-library/src
parent9dab3bdc9f31c0389e69f21c2199f874d151ccb7 (diff)
Remove dubious parseModLink
Instead construct the ModLink value directly when parsing.
Diffstat (limited to 'haddock-library/src')
-rw-r--r--haddock-library/src/Documentation/Haddock/Parser.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Parser.hs b/haddock-library/src/Documentation/Haddock/Parser.hs
index bb8745a5..de336d45 100644
--- a/haddock-library/src/Documentation/Haddock/Parser.hs
+++ b/haddock-library/src/Documentation/Haddock/Parser.hs
@@ -18,7 +18,6 @@
module Documentation.Haddock.Parser (
parseString,
parseParas,
- parseModLink,
overIdentifier,
toRegular,
Identifier
@@ -137,9 +136,6 @@ parseString = parseText . T.pack
parseText :: Text -> DocH mod Identifier
parseText = parseParagraph . T.dropWhile isSpace . T.filter (/= '\r')
-parseModLink :: String -> DocH mod id
-parseModLink s = snd $ parse moduleName (T.pack s)
-
parseParagraph :: Text -> DocH mod Identifier
parseParagraph = snd . parse p
where