[Browse] Use '--' as parent separator

2016-05-11 16:53:42 +03:00 · 2016-05-11 16:53:42 +03:00 · 32b18d915b
commit 32b18d915b
parent 8e33dbd88d
1 changed files with 1 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Browse.hs
+++ b/Language/Haskell/GhcMod/Browse.hs
@ -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