From 297bd57250cd9d2132bc5378a94681f34723d17f Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Tue, 7 Aug 2007 12:22:34 +0000 Subject: [PATCH] remove gratuitous usage of Double in favor of Rational --- compiler/main/StaticFlags.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index 9c4427c..f9312a2 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -412,7 +412,7 @@ decodeSize str | c == "G" || c == "g" = truncate (n * 1000 * 1000 * 1000) | otherwise = throwDyn (CmdLineError ("can't decode size: " ++ str)) where (m, c) = span pred str - n = read m :: Double + n = readRational m pred c = isDigit c || c == '.' -- 1.7.10.4