hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Browse] Use '--' as parent separator

Browse Source
This commit is contained in:
Nikolay Yakimov 2016-05-11 16:53:42 +03:00
parent 8e33dbd88d
commit 32b18d915b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/Browse.hs
View File

@ -107,7 +107,7 @@ showExport opt minfo e = do
(" :: " ++ typeName) `justIf` optBrowseDetailed opt (" :: " ++ typeName) `justIf` optBrowseDetailed opt
let parent = do let parent = do
thing <- fmap getOccString $ tyResult >>= tyThingParent_maybe thing <- fmap getOccString $ tyResult >>= tyThingParent_maybe
(" ; " ++ thing) `justIf` optBrowseParents opt (" -- " ++ thing) `justIf` optBrowseParents opt
return $ case concat $ catMaybes [sig, parent] of return $ case concat $ catMaybes [sig, parent] of
[] -> Nothing [] -> Nothing
x -> Just x x -> Just x