[Browse] Use '--' as parent separator
This commit is contained in:
parent
8e33dbd88d
commit
32b18d915b
@ -107,7 +107,7 @@ showExport opt minfo e = do
|
||||
(" :: " ++ typeName) `justIf` optBrowseDetailed opt
|
||||
let parent = do
|
||||
thing <- fmap getOccString $ tyResult >>= tyThingParent_maybe
|
||||
(" ; " ++ thing) `justIf` optBrowseParents opt
|
||||
(" -- " ++ thing) `justIf` optBrowseParents opt
|
||||
return $ case concat $ catMaybes [sig, parent] of
|
||||
[] -> Nothing
|
||||
x -> Just x
|
||||
|
Loading…
Reference in New Issue
Block a user