From 9e2f1e76f2c8df01ed7687d934c3210fcf676bd6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 16 Jun 2022 00:48:19 -0400
Subject: De-sigil-ification: suffix : [Part 13]

---
 stdlib/source/program/aedifex/parser.lux | 54 ++++++++++++++++----------------
 1 file changed, 27 insertions(+), 27 deletions(-)

(limited to 'stdlib/source/program/aedifex/parser.lux')

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)
-- 
cgit v1.2.3