From 6eabba5d8f8912450b264e2fc345493791e0b2d8 Mon Sep 17 00:00:00 2001 From: Krzysztof Kosciuszkiewicz Date: Tue, 10 Jul 2007 16:14:06 +0200 Subject: Fix takeDigits so it doesn't use read. darcs-hash:20070710141406-ba08c-d44de14cd4aba85d042f5b7cd3be22469d994353.gz --- Monitors/Common.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Monitors') diff --git a/Monitors/Common.hs b/Monitors/Common.hs index 9706eac..390f383 100644 --- a/Monitors/Common.hs +++ b/Monitors/Common.hs @@ -288,7 +288,8 @@ type Pos = (Int, Int) takeDigits :: Int -> Float -> Float takeDigits d n = - read $ showFFloat (Just d) n "" + fromIntegral ((round (n * fact)) :: Int) / fact + where fact = 10 ^ d floatToPercent :: Float -> String floatToPercent n = -- cgit v1.2.3