X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FStaticFlags.hs;h=f9312a2c659f06f04b8fd01d707992bb24793ef3;hb=eb4352ab0675309fe6cb1ad38cf070340a338e50;hp=9c4427c53a9ddb80dbbcabe4468fe45457a0d4ce;hpb=dc3926523e71b891fd827c4bed01eef02ab38103;p=ghc-hetmet.git

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 == '.'