From 0d04d5624139c4c166ef57c28c33fabca43fed5d Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Fri, 4 Nov 2011 16:20:41 +0000
Subject: [PATCH] qualified names in the tags file

---
 src/compiler/GFTags.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/GFTags.hs b/src/compiler/GFTags.hs
index fd75710e3..1fad82b99 100644
--- a/src/compiler/GFTags.hs
+++ b/src/compiler/GFTags.hs
@@ -17,7 +17,7 @@ mainTags opts files = do
   ioeIO (writeFile "tags" (unlines ((Set.toList . Set.fromList) tags)))
 
 getTags x (m,mi) = 
-  [showIdent i ++ "\t" ++ k ++ "\t" ++ l ++ "\t" ++ t 
+  [showIdent m ++ "." ++ showIdent i ++ "\t" ++ k ++ "\t" ++ l ++ "\t" ++ t 
        | (i,jment) <- Map.toList (jments mi),
          (k,l,t)   <- getLocations jment] ++ x
   where