Changeset 4 for src/Lexer.hs

Show
Ignore:
Timestamp:
02/06/05 20:01:10 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
1041
Message:

* This be 6.0.0.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Lexer.hs

    r3 r4  
    1111 
    1212module Lexer where 
    13 import Data.Char 
    14 import Debug.Trace 
    15 import Text.ParserCombinators.Parsec 
    16 import Text.ParserCombinators.Parsec.Expr 
    17 import Text.ParserCombinators.Parsec.Pos 
     13import Internals 
    1814import qualified Text.ParserCombinators.Parsec.Token as P 
    19 import Text.ParserCombinators.Parsec.Language 
    2015 
    2116perl6Def  = javaStyle 
    … …  
    8984 
    9085    fraction        = do{ char '.' 
    91                         ; digits <- many1 digit <?> "fraction" 
     86                        ; digits <- many digit <?> "fraction" 
    9287                        ; return (foldr op 0.0 digits) 
    9388                        } 
    … …  
    149144 
    150145quotedQuote = do 
    151     string "\\'" 
    152     return '\'' 
     146    char '\\' 
     147    anyChar 
    153148