Typo
[packages/base.git] / tests / readDouble001.hs
1
2 main :: IO ()
3 main = do f "Infinity"
4 f "-Infinity"
5 f " - Infinity "
6 f "NaN"
7 f "-NaN"
8 f " - NaN "
9
10 f :: String -> IO ()
11 f str = print (reads str :: [(Double, String)])