gistfile1.fs

#light

namespace NParser    
    open System
    open Lexer   

    type NomosParser() = 
        static member Parse(stringToParse:string) = 
            let definitions = state {
                do! addDefinition "String"                     "[a-zA-Z]+"
            }    
            
            let tokens = Lexer.tokenize definitions stringToParse        
            
            stringToParse
        
    type ParsedEntry = { When : DateTime; Where : string; HowMuch : decimal }