aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/parser.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/parser.lux')
-rw-r--r--stdlib/source/program/aedifex/parser.lux54
1 files changed, 27 insertions, 27 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux
index 7fa14fb60..435e0fb79 100644
--- a/stdlib/source/program/aedifex/parser.lux
+++ b/stdlib/source/program/aedifex/parser.lux
@@ -34,49 +34,49 @@
["[1][0]" artifact (.only Artifact)
["[1]/[0]" type]]])
-(def: (singular input tag parser)
+(def (singular input tag parser)
(All (_ a) (-> (Dictionary Text Code) Text (Parser a) (Parser a)))
(<code>.locally (maybe.list (dictionary.value tag input))
parser))
-(def: (plural input tag parser)
+(def (plural input tag parser)
(All (_ a) (-> (Dictionary Text Code) Text (Parser a) (Parser (List a))))
(<code>.locally (maybe.list (dictionary.value tag input))
(<code>.tuple (<>.some parser))))
-(def: group
+(def group
(Parser //artifact.Group)
<code>.text)
-(def: name
+(def name
(Parser //artifact.Name)
<code>.text)
-(def: version
+(def version
(Parser //artifact.Version)
<code>.text)
-(def: artifact'
+(def artifact'
(Parser //artifact.Artifact)
(all <>.and ..group ..name ..version))
-(def: artifact
+(def artifact
(Parser //artifact.Artifact)
(<code>.tuple ..artifact'))
-(def: url
+(def url
(Parser URL)
<code>.text)
-(def: scm
+(def scm
(Parser /.SCM)
..url)
-(def: description
+(def description
(Parser Text)
<code>.text)
-(def: license
+(def license
(Parser /.License)
(do [! <>.monad]
[input (at ! each
@@ -91,7 +91,7 @@
(<>.or (<code>.this (' "repo"))
(<code>.this (' "manual"))))))))
-(def: organization
+(def organization
(Parser /.Organization)
(do [! <>.monad]
[input (at ! each
@@ -102,7 +102,7 @@
(..singular input "name" ..name)
(..singular input "url" ..url))))
-(def: developer
+(def developer
(Parser /.Developer)
(do [! <>.monad]
[input (at ! each
@@ -115,11 +115,11 @@
(<>.maybe (..singular input "organization" ..organization))
)))
-(def: contributor
+(def contributor
(Parser /.Contributor)
..developer)
-(def: info
+(def info
(Parser /.Info)
(do [! <>.monad]
[input (at ! each
@@ -137,15 +137,15 @@
(<>.else (list) (..plural input "contributors" ..contributor))
)))
-(def: repository
+(def repository
(Parser //repository.Address)
..url)
-(def: type
+(def type
(Parser //artifact/type.Type)
<code>.text)
-(def: dependency
+(def dependency
(Parser //dependency.Dependency)
(<code>.tuple
(all <>.and
@@ -153,7 +153,7 @@
(<>.else //artifact/type.lux_library ..type)
)))
-(def: compiler
+(def compiler
(Parser Compiler)
(<code>.tuple
(all <>.and
@@ -161,29 +161,29 @@
(<>.some <code>.text)
)))
-(def: source
+(def source
(Parser /.Source)
<code>.text)
-(def: target
+(def target
(Parser /.Target)
<code>.text)
-(def: module
+(def module
(Parser Module)
<code>.text)
-(def: deploy_repository
+(def deploy_repository
(Parser [Text //repository.Address])
(<>.and <code>.text
..repository))
-(def: configuration/1
+(def configuration/1
(Parser [Text Text])
(<>.and <code>.text
<code>.text))
-(def: runtime
+(def runtime
(Parser Runtime)
(let [environment (<>#each (dictionary.of_list text.hash)
(<>.some (<code>.tuple (<>.and <code>.text <code>.text))))]
@@ -193,7 +193,7 @@
<code>.text
(<>.some <code>.text)))))
-(def: profile
+(def profile
(Parser /.Profile)
(do [! <>.monad]
[input (at ! each
@@ -281,7 +281,7 @@
^ruby
)))
-(def: .public project
+(def .public project
(Parser Project)
(at <>.monad each
(dictionary.of_list text.hash)