simpleParseFloat :: (RealFrac a) => String -> Maybe a
simpleParseFloat = fmap fst . listToMaybe . filter ((== "") . snd) . readFloat
simpleParseFloat = fmap fst . listToMaybe . filter ((== "") . snd) . readFloat