[Browse] Add 'from:' to parents

2016-05-11 16:58:46 +03:00 · 2016-05-11 16:58:46 +03:00 · 5a02721fc8
commit 5a02721fc8
parent 32b18d915b
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
+                    (" -- from:" ++ thing) `justIf` optBrowseParents opt
        return $ case concat $ catMaybes [sig, parent] of
                    [] -> Nothing
                    x  -> Just x