diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-09-14 17:52:19 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-09-14 18:54:30 +1000 |
| commit | 0c8f8722d01ecbd5a5b1f33d8446b3eed46d2b26 (patch) | |
| tree | 0362bee125b69e004ea30cf737f98d68b7385ac5 /haddock-api | |
| parent | bcf7e7e7fd7ef236a88ad1dcad6692a340e34687 (diff) | |
changing to multiple files model
all files under the same dir
Diffstat (limited to 'haddock-api')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Org.hs | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/haddock-api/src/Haddock/Backends/Org.hs b/haddock-api/src/Haddock/Backends/Org.hs index 11be4338..f56e90b8 100644 --- a/haddock-api/src/Haddock/Backends/Org.hs +++ b/haddock-api/src/Haddock/Backends/Org.hs @@ -113,7 +113,6 @@ import GHC.Unit.Types ( GenModule(..) import GHC.Utils.Outputable ( showPprUnsafe ) import qualified GHC.Utils.Ppr as Pretty import GHC.Utils.Ppr ( (<+>) - , (<>) , comma , hsep , punctuate @@ -469,20 +468,20 @@ parensIfMany xs org = if length xs > 1 then orgParens org else org valOrTyp :: HasOccName n => n -> String valOrTyp name = if isValOcc (occName name) then "v" else "t" -idPath :: ModPath -> DocName -> String -idPath (pkg, mdl) name = - intercalate idPathSep [pkg, mdl, valOrTyp name, docNameToString name] - -idPath' :: Module -> DocName -> String -idPath' mdl name = - idPath (cleanPkgStr $ unitString $ moduleUnit mdl, moduleString mdl) name +idPathTarget :: Module -> DocName -> String +idPathTarget mdl name = + "file:" + ++ (cleanPkgStr $ unitString $ moduleUnit mdl) + ++ ".org::#" + ++ intercalate idPathSep + [moduleString mdl, valOrTyp name, docNameToString name] idPathNoPkg :: HasOccName n => String -> n -> String idPathNoPkg mdl name = intercalate idPathSep [mdl, valOrTyp name, occNameString (occName name)] cIdPaths :: ModPath -> DocName -> Properties -cIdPaths path@(_, mdl) name = cIdsProp [idPath path name, idPathNoPkg mdl name] +cIdPaths (_, mdl) name = cIdsProp [idPathNoPkg mdl name] ppTyClDecl :: TyClDecl DocNameI @@ -944,7 +943,7 @@ ppPromoted flag = case flag of ppDocName :: DocName -> [OrgInline] ppDocName docName@(Documented _ mdl) = - [Link (text "#" <> text (idPath' mdl docName)) [Plain $ docNameToDoc docName]] + [Link (text (idPathTarget mdl docName)) [Plain $ docNameToDoc docName]] ppDocName docName@(Undocumented name) = case nameModule_maybe name of Nothing -> [Plain $ docNameToDoc docName] Just mdl -> ppDocName (Documented name mdl) |