Changeset 5892 for src/Pugs/Parser/Number.hs

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:

• src/Pugs/Parser/Number.hs (modified) (1 diff)

src/Pugs/Parser/Number.hs

@@ -2 +2 @@
 
 module Pugs.Parser.Number (
+    parseNatOrRat,
     naturalOrRat,
 ) where
 import Pugs.Internals
 import Pugs.Rule
+
+parseNatOrRat :: String -> Either ParseError (Either Integer (Ratio Integer))
+parseNatOrRat s = runParser naturalOrRat () "" s
 
 naturalOrRat :: GenParser Char st (Either Integer (Ratio Integer))