From: Max Bolingbroke <batterseapower@hotmail.com>
Date: Thu, 31 Jul 2008 01:23:32 +0000 (+0000)
Subject: Make Module Uniquable
X-Git-Tag: 2008-09-12~316
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d2c660b0c60ae721143922869a940696185c5ee3;p=ghc-hetmet.git

Make Module Uniquable
---

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