Accept latin1
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 19:34:59 +0000 (21:34 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 19:34:59 +0000 (21:34 +0200)
src/Lseed/Grammar/Parse.hs

index 00ba8a4..4883ef9 100644 (file)
@@ -167,4 +167,4 @@ pFloat = do value <- try (do
                     )  <|> float
            (deg >> return (value / 180 * pi)) <|> return value
 
-deg = reservedOp "\194\176"
+deg = reservedOp "\194\176" <|> reservedOp "\176"