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
libcloogle
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
libcloogle
Commits
a19e2a1a
Verified
Commit
a19e2a1a
authored
May 20, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Export strictness information
parent
1c6953e7
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
4 deletions
+4
-4
Cloogle/API.dcl
Cloogle/API.dcl
+2
-2
Cloogle/API.icl
Cloogle/API.icl
+2
-2
No files found.
Cloogle/API.dcl
View file @
a19e2a1a
...
...
@@ -314,5 +314,5 @@ instance < Result
instance
==
FunctionKind
toSingleLine
::
Request
->
Maybe
String
parseSingleLineRequest
::
String
->
MaybeErrorString
Request
toSingleLine
::
!
Request
->
Maybe
String
parseSingleLineRequest
::
!
String
->
MaybeErrorString
Request
Cloogle/API.icl
View file @
a19e2a1a
...
...
@@ -135,14 +135,14 @@ where
instance
==
FunctionKind
where
==
a
b
=
a
===
b
parseSingleLineRequest
::
String
->
MaybeErrorString
Request
parseSingleLineRequest
::
!
String
->
MaybeErrorString
Request
parseSingleLineRequest
s
=
case
split
"::"
s
of
[
""
,
type
]
->
Ok
{
zero
&
unify
=
Just
$
trim
type
}
[
name
,
type
]
->
Ok
{
zero
&
name
=
Just
$
trim
name
,
unify
=
Just
$
trim
type
}
[
name
]
->
Ok
{
Request
|
zero
&
name
=
Just
$
trim
name
}
_
->
Error
"Multiple ::s found"
toSingleLine
::
Request
->
Maybe
String
toSingleLine
::
!
Request
->
Maybe
String
toSingleLine
req
|
isJust
req
.
typeName
&&
isJust
req
.
className
=
Nothing
|
isJust
req
.
typeName
=
req
.
typeName
...
...
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