Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Cloogle
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Cloogle
Cloogle
Commits
c513a021
Verified
Commit
c513a021
authored
Jul 11, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix parentheses in functions generated for infix constructors
parent
616ad975
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
Cloogle/DB/Factory.icl
Cloogle/DB/Factory.icl
+4
-4
No files found.
Cloogle/DB/Factory.icl
View file @
c513a021
...
...
@@ -758,16 +758,16 @@ constructor_functions etd = [
&
fe_loc
='
CDB
'.
setName
c
etd
.
tde_loc
,
fe_kind
=
Constructor
,
fe_type
=
Just
f
,
fe_representation
=
Just
$
concat
$
[
c
]
++
print_prio
p
++
[
" :: "
]
++
print
False
f
,
fe_representation
=
Just
$
concat
$
print_prio
c
p
++
[
" :: "
]
++
print
False
f
,
fe_priority
=
p
,
fe_documentation
=
constructorToFunctionDoc
<$>
doc
}
\\
(
c
,
f
,
p
)
<-
'T'
.
constructorsToFunctions
('
CDB
'.
getTypeDef
etd
)
&
doc
<-
cons_doc
]
where
print_prio
::
(
Maybe
'T'
.
Priority
)
->
[
String
]
print_prio
Nothing
=
[
]
print_prio
(
Just
p
)
=
[
" "
]
++
print
False
p
print_prio
::
!
String
(
Maybe
'T'
.
Priority
)
->
[
String
]
print_prio
name
Nothing
=
[
name
]
print_prio
name
(
Just
p
)
=
[
"("
,
name
,
") "
:
print
False
p
]
cons_doc
=
fromMaybe
[]
(
docConstructors
=<<
'
CDB
'.
getTypeDefDoc
etd
)
++
repeat
Nothing
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment