From f851e7df80b784054f81a27b8d9223cd31e98288 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Fri, 24 Nov 2006 10:06:21 +0000
Subject: [PATCH] Add type signatures

---
 GHC/Float.lhs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/GHC/Float.lhs b/GHC/Float.lhs
index cac8c0a..47dd5d9 100644
--- a/GHC/Float.lhs
+++ b/GHC/Float.lhs
@@ -631,8 +631,10 @@ floatToDigits base x =
       (f*b*2, b^(-e+1)*2, b, 1)
     else
       (f*2, b^(-e)*2, 1, 1)
+  k :: Int
   k =
    let 
+    k0 :: Int
     k0 =
      if b == 2 && base == 10 then
         -- logBase 10 2 is slightly bigger than 3/10 so
-- 
1.7.10.4