diff options
author | Eduardo Julian | 2018-05-10 20:16:56 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-05-10 20:16:56 -0400 |
commit | 0594525aea5a62355838116a1408f7ce7a7ba0b4 (patch) | |
tree | 3c00ce0edbadc3eb1566e825579e51f24bd5eb88 /new-luxc/source/luxc/cache/description.lux | |
parent | 022ada35548ef5e0e3b9614f9bb96de9d2137ced (diff) |
- Adjusted new-luxc to latest changes.
Diffstat (limited to 'new-luxc/source/luxc/cache/description.lux')
-rw-r--r-- | new-luxc/source/luxc/cache/description.lux | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/new-luxc/source/luxc/cache/description.lux b/new-luxc/source/luxc/cache/description.lux index 467fed765..9ee07c7ad 100644 --- a/new-luxc/source/luxc/cache/description.lux +++ b/new-luxc/source/luxc/cache/description.lux @@ -12,8 +12,9 @@ ["s" syntax #+ Syntax])) [///lang]) -(exception: #export (Invalid-Lux-Version {message Text}) - message) +(exception: #export (invalid-lux-version {version Text}) + (format "Expected: " ///lang.version "\n" + " Actual: " version "\n")) (def: (write-type type) (-> Type Code) @@ -121,9 +122,7 @@ (<| (s.run (list description)) (s.record (do p.Monad<Parser> [lux-version (p.after (s.this (` "lux version")) s.text) - _ (p.assert (Invalid-Lux-Version - (format "Expected: " ///lang.version "\n" - " Actual: " lux-version "\n")) + _ (p.assert (ex.construct invalid-lux-version lux-version) (text/= ///lang.version lux-version))] ($_ p.seq (p.after (s.this (` "lux file")) s.text) |