Commit 297bd572 authored by Isaac Dupree's avatar Isaac Dupree
Browse files

remove gratuitous usage of Double in favor of Rational

parent 01ecefa4
......@@ -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 == '.'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment