[Haskell-cafe] Parsec float

[Bartosz Wójcik]

On Friday 29 May 2009 08:34:36 you wrote:
> myfloat = try (do{ symbol "-"; n <- float; return (negate n) }) <|>
>            try float <|>
>                do { i<-integer; return(fromIntegral i) }

Thank you, this is an easy and nice solution. I've made it a bit prettier 
optically:

myFloat = try (symbol "-" >> float >>= return . negate) 
     <|>  try float 
     <|>  (integer >>= return . fromIntegral)

Best regards,
Bartek