From 8223bac632c3be67018ae6b29ceab89167dcffa5 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Tue, 11 Jul 2000 20:45:29 +0000
Subject: [PATCH] [project @ 2000-07-11 20:45:29 by panne] Hash MachLabel, too

---
 ghc/compiler/basicTypes/Literal.lhs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/basicTypes/Literal.lhs b/ghc/compiler/basicTypes/Literal.lhs
index 54af4732d8f4..b3037d1a1bff 100644
--- a/ghc/compiler/basicTypes/Literal.lhs
+++ b/ghc/compiler/basicTypes/Literal.lhs
@@ -340,6 +340,7 @@ hashLiteral (MachWord i)   	= hashInteger i
 hashLiteral (MachWord64 i) 	= hashInteger i
 hashLiteral (MachFloat r)   	= hashRational r
 hashLiteral (MachDouble r)  	= hashRational r
+hashLiteral (MachLabel s)       = hashFS s
 hashLiteral (MachLitLit s _)    = hashFS s
 
 hashRational :: Rational -> Int
-- 
GitLab