diff options
Diffstat (limited to 'stdlib/source/lux/data/format/xml.lux')
-rw-r--r-- | stdlib/source/lux/data/format/xml.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/data/format/xml.lux b/stdlib/source/lux/data/format/xml.lux index 2494fa1b8..db68fbf29 100644 --- a/stdlib/source/lux/data/format/xml.lux +++ b/stdlib/source/lux/data/format/xml.lux @@ -7,7 +7,7 @@ text/format (text ["l" lexer "lex/" Monad<Lexer>]) [number] - error + ["R" result] [char "c/" Eq<Char>] [product] [maybe "m/" Monad<Maybe>] @@ -180,16 +180,16 @@ (l;after (l;opt xml-header^)))) (def: #export (read-xml input) - (-> Text (Error XML)) + (-> Text (R;Result XML)) (case (l;run' input xml^) - (#;Right ["" output]) - (#;Right output) + (#R;Success ["" output]) + (#R;Success output) (#;Some [input-left output]) - (#;Left (format "Unconsumed input: " (%t input-left))) + (#R;Error (format "Unconsumed input: " (%t input-left))) - (#;Left error) - (#;Left error))) + (#R;Error error) + (#R;Error error))) ## [Generation] (def: (sanitize-value input) |