Show
Ignore:
Timestamp:
07/29/05 18:47:27 (3 years ago)
Author:
bsmith
svk:copy_cache_prev:
7758
Message:

Added parseNatOrRat function to Pugs.Parser.Number.
Added module exports to Pugs.Parser so only it needs to be imported.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/AST/Internals.hs

    r5881 r5892  
    7171import Pugs.Internals 
    7272import Pugs.Context 
    73 import Pugs.Rule 
    7473import Pugs.Types 
    7574import Pugs.Cont hiding (shiftT, resetT) 
    … …  
    408407        return str 
    409408    doCast (VStr s)     = return $ 
    410         case ( runParser naturalOrRat () "" s ) of 
     409        case ( parseNatOrRat s ) of 
    411410            Left _   -> 0 % 1 
    412411            Right rv -> case rv of 
    … …  
    432431    doCast (VStr "NaN") = return $ 0/0 
    433432    doCast (VStr s)     = return $ 
    434         case ( runParser naturalOrRat () "" s ) of 
     433        case ( parseNatOrRat s ) of 
    435434            Left _   -> 0 
    436435            Right rv -> case rv of