checkRecognizesFloat :: Double -> Bool
checkRecognizesFloat f = parse float "" (show f) == Right (EDNFloat f)
checkRecognizesFloat :: Double -> Bool
checkRecognizesFloat f = parse float "" (show f) == Right (EDNFloat f)
checkRecognizesFloat f = parse float "" (show f) == Right (EDNFloat f)