diff options
Diffstat (limited to 'licentia/source')
| -rw-r--r-- | licentia/source/program/licentia.lux | 4 | ||||
| -rw-r--r-- | licentia/source/program/licentia/license/black_list.lux | 3 | ||||
| -rw-r--r-- | licentia/source/program/licentia/output.lux | 3 | ||||
| -rw-r--r-- | licentia/source/test/licentia.lux | 4 |
4 files changed, 8 insertions, 6 deletions
diff --git a/licentia/source/program/licentia.lux b/licentia/source/program/licentia.lux index 69080caba..e421fe344 100644 --- a/licentia/source/program/licentia.lux +++ b/licentia/source/program/licentia.lux @@ -22,6 +22,7 @@ [control [remember (#+ to_do)] ["." io (#+ IO) ("#\." monad)] + ["." maybe] ["." try (#+ Try)] ["." parser ["<.>" cli] @@ -29,7 +30,6 @@ [security ["!" capability]]] [data - ["." maybe] ["." text ["%" format (#+ format)] [encoding @@ -72,7 +72,7 @@ java/lang/String::trim (\ json.codec decode))] (|> json - (<json>.run /input.license) + (<json>.result /input.license) (\ ! map /output.license))))] (\ file.default write (\ utf8.codec encode document) output)))] (wrap (debug.log! (case ?done diff --git a/licentia/source/program/licentia/license/black_list.lux b/licentia/source/program/licentia/license/black_list.lux index 99f85029e..96fafb6c7 100644 --- a/licentia/source/program/licentia/license/black_list.lux +++ b/licentia/source/program/licentia/license/black_list.lux @@ -1,8 +1,9 @@ (.module: [library [lux #* + [control + ["." maybe ("#\." functor)]] [data - ["." maybe ("#\." functor)] ["." text ["%" format (#+ format)]] [collection diff --git a/licentia/source/program/licentia/output.lux b/licentia/source/program/licentia/output.lux index 63a70e521..9b753b4c6 100644 --- a/licentia/source/program/licentia/output.lux +++ b/licentia/source/program/licentia/output.lux @@ -1,9 +1,10 @@ (.module: [library [lux (#- Definition) + [control + ["." maybe ("#\." functor)]] [data ["." bit] - ["." maybe ("#\." functor)] ["." text ["%" format (#+ format)]] [collection diff --git a/licentia/source/test/licentia.lux b/licentia/source/test/licentia.lux index 1ad1bb72d..b2302d8ef 100644 --- a/licentia/source/test/licentia.lux +++ b/licentia/source/test/licentia.lux @@ -6,10 +6,10 @@ [abstract [monad (#+ do)]] [control - ["." io]] + ["." io] + ["." maybe ("#\." functor)]] [data ["." bit ("#\." equivalence)] - ["." maybe ("#\." functor)] ["." text] [collection ["." list ("#\." functor)]]] |