haskell/haskell-ide-engine
1
1
Fork 0
mirror of https://github.com/haskell/haskell-ide-engine.git synced 2024-09-11 02:55:39 +03:00
Code Issues Projects Releases Wiki Activity

Haddock source file names may use either dot or dash as separator

Browse Source
This commit is contained in:
Zubin Duggal 2020-04-06 16:00:54 +05:30
parent b7fd5fb04b
commit d9697bd9f4
No known key found for this signature in database
GPG Key ID: 7CCFC277A14C97A7
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Haskell/Ide/Engine/Plugin/Haddock.hs
View File

@ -63,14 +63,15 @@ lookupSrcHtmlForModule =
lookupHtmlForModule :: (FilePath -> FilePath -> FilePath) -> DynFlags -> Module -> IO (Maybe FilePath)
lookupHtmlForModule mkDocPath df m = do
let mfp = go <$> (listToMaybe =<< lookupHtmls df ui)
exists <- maybe (pure False) doesFileExist mfp
return $ if exists then mfp else Nothing
let mfs = go <$> (listToMaybe =<< lookupHtmls df ui)
htmls <- filterM doesFileExist (concat . maybeToList $ mfs)
return $ listToMaybe htmls
where
go pkgDocDir = mkDocPath pkgDocDir mn
-- The file might use "." or "-" as separator
go pkgDocDir = [mkDocPath pkgDocDir mn | mn <- [mndot,mndash]]
ui = moduleUnitId m
mn = map (\x -> if x == '.' then '-' else x) mns
mns = moduleNameString $ moduleName m
mndash = map (\x -> if x == '.' then '-' else x) mndot
mndot = moduleNameString $ moduleName m
nameCacheFromGhcMonad :: GhcMonad m => NameCacheAccessor m
nameCacheFromGhcMonad = ( read_from_session , write_to_session )