Logging parser now parses the timestamps

2008-02-10 20:32:10 -06:00 · 2008-02-10 20:32:10 -06:00 · a228072862
parent 27773588d3
commit a228072862
1 changed files with 4 additions and 2 deletions
--- a/extra/logging/parser/parser.factor
+++ b/extra/logging/parser/parser.factor
@ -11,8 +11,10 @@ IN: logging.parser
 SYMBOL: multiline

 : 'date'
-    multiline-header token [ drop multiline ] <@
-    [ CHAR: ] eq? not ] string-of [ rfc3339>timestamp ] <@ <|>
+    [ "]" member? not ] string-of [
+        dup multiline-header =
+        [ drop multiline ] [ rfc3339>timestamp ] if
+    ] <@
    "[" "]" surrounded-by ;

 : 'log-level'