Commit 7967fced authored by sof's avatar sof
Browse files

[project @ 2002-04-13 05:09:52 by sof]

Test -Infinity also
parent 6e0b3d48
......@@ -2,4 +2,4 @@ main = do
print (map read strange_nums :: [Float])
print (map read strange_nums :: [Double])
where
strange_nums = ["Infinity","NaN"]
strange_nums = ["Infinity","NaN", "-Infinity"]
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