使用具有lambda表达式的monadic IO来读取浮点数

Question

当我尝试输入Float数字时，这就是我得到的 错误消息＆＃34;例外：Prelude.read：没有解析＆＃34; 这是一个代码...

add2Nums = putStrLn " Enter number 1 " >> getLine >>= \a ->
        putStrLn " Enter number 2" >> getLine >>= 
        \b -> putStrLn (show((read a) + (read b)))