X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FModule.lhs;fp=compiler%2FbasicTypes%2FModule.lhs;h=77c0a936c69a3d704e918699398ff59c21648083;hp=6b52b327e92525cad2166c4529655523370b9b43;hb=d2c660b0c60ae721143922869a940696185c5ee3;hpb=5660d1ddb2f991d57d75252e3ed14d80914b7615

diff --git a/compiler/basicTypes/Module.lhs b/compiler/basicTypes/Module.lhs
index 6b52b32..77c0a93 100644
--- a/compiler/basicTypes/Module.lhs
+++ b/compiler/basicTypes/Module.lhs
@@ -213,6 +213,9 @@ data Module = Module {
   }
   deriving (Eq, Ord)
 
+instance Uniquable Module where
+  getUnique (Module p n) = getUnique (packageIdFS p `appendFS` moduleNameFS n)
+
 instance Outputable Module where
   ppr = pprModule