Commit d2c660b0 authored by batterseapower's avatar batterseapower
Browse files

Make Module Uniquable

parent 5660d1dd
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment