From 7d22905b1deb6a5064fb236c469809aaf895e823 Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 10 Jul 2003 08:12:04 +0000 Subject: [PATCH] [project @ 2003-07-10 08:12:04 by simonpj] External Core was ignore sign on rational --- ghc/compiler/parser/LexCore.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/parser/LexCore.hs b/ghc/compiler/parser/LexCore.hs index d634acd..1a545a3 100644 --- a/ghc/compiler/parser/LexCore.hs +++ b/ghc/compiler/parser/LexCore.hs @@ -66,7 +66,7 @@ lexNum cont cs = where f sgn cs = case span isDigit cs of (digits,'.':c:rest) - | isDigit c -> cont (TKrational r) rest' + | isDigit c -> cont (TKrational (fromInteger sgn * r)) rest' where ((r,rest'):_) = readFloat (digits ++ ('.':c:rest)) -- When reading a floating-point number, which is -- a bit complicated, use the Haskell 98 library function -- 1.7.10.4