diff options
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) |