diff options
Diffstat (limited to 'hadrian/src/Rules/Documentation.hs')
| -rw-r--r-- | hadrian/src/Rules/Documentation.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hadrian/src/Rules/Documentation.hs b/hadrian/src/Rules/Documentation.hs index 6898fd12e5..0e72c064c3 100644 --- a/hadrian/src/Rules/Documentation.hs +++ b/hadrian/src/Rules/Documentation.hs @@ -276,11 +276,11 @@ parsePkgDocTarget root = do _ <- Parsec.string root *> Parsec.optional (Parsec.char '/') _ <- Parsec.string (htmlRoot ++ "/") _ <- Parsec.string "libraries/" - pkgname <- Parsec.manyTill Parsec.anyChar (Parsec.char '/') + (pkgname, _) <- parsePkgId <* Parsec.char '/' Parsec.choice [ Parsec.try (Parsec.string "haddock-prologue.txt") *> pure (HaddockPrologue pkgname) - , Parsec.string (pkgname <.> "haddock") + , Parsec.string (pkgname <.> "haddock") -- Same as before *> pure (DotHaddock pkgname) ] |