From 6a7f4042bb71bc5eff550b7d6bdf79883997110c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 25 Jul 1997 23:25:40 +0000
Subject: [PATCH] [project @ 1997-07-25 23:25:40 by sof] wibble

---
 ghc/compiler/nativeGen/MachCode.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 128eeb6..96a148c 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -150,7 +150,7 @@ mangleIndexTree (StIndex pk base off)
 		   StPrim SllOp [off, StInt s]
     ]
   where
-    shift DoubleRep 	= 3
+    shift DoubleRep 	= 3::Integer
     shift _ 	       	= IF_ARCH_alpha(3,2)
 \end{code}
 
-- 
1.7.10.4