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
86e6f2af
Verified
Commit
86e6f2af
authored
Dec 29, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add strictness annotations
parent
5b9c4f06
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
6 additions
and
6 deletions
+6
-6
Cloogle/API.dcl
Cloogle/API.dcl
+1
-1
Cloogle/API.icl
Cloogle/API.icl
+1
-1
Cloogle/Client.dcl
Cloogle/Client.dcl
+2
-2
Cloogle/Client.icl
Cloogle/Client.icl
+2
-2
No files found.
Cloogle/API.dcl
View file @
86e6f2af
...
...
@@ -320,7 +320,7 @@ instance < Result
instance
==
FunctionKind
getBasicResult
::
Result
->
Maybe
BasicResult
getBasicResult
::
!
Result
->
Maybe
BasicResult
toSingleLine
::
!
Request
->
Maybe
String
parseSingleLineRequest
::
!
String
->
MaybeErrorString
Request
Cloogle/API.icl
View file @
86e6f2af
...
...
@@ -160,7 +160,7 @@ where
instance
==
FunctionKind
where
==
a
b
=
a
===
b
getBasicResult
::
Result
->
Maybe
BasicResult
getBasicResult
::
!
Result
->
Maybe
BasicResult
getBasicResult
(
FunctionResult
(
br
,_))
=
Just
br
getBasicResult
(
TypeResult
(
br
,_))
=
Just
br
getBasicResult
(
ClassResult
(
br
,_))
=
Just
br
...
...
Cloogle/Client.dcl
View file @
86e6f2af
...
...
@@ -5,6 +5,6 @@ from Internet.HTTP import :: HTTPRequest
import
Cloogle
.
API
toHTTPRequest
::
Request
->
HTTPRequest
toHTTPRequest
::
!
Request
->
HTTPRequest
request
::
Request
*
World
->
*(
MaybeErrorString
Response
,
*
World
)
request
::
!
Request
!
*
World
->
*(
MaybeErrorString
Response
,
*
World
)
Cloogle/Client.icl
View file @
86e6f2af
...
...
@@ -15,7 +15,7 @@ import Text.GenJSON
import
Cloogle
.
API
toHTTPRequest
::
Request
->
HTTPRequest
toHTTPRequest
::
!
Request
->
HTTPRequest
toHTTPRequest
req
=
{
newHTTPRequest
&
req_method
=
HTTP_GET
...
...
@@ -35,7 +35,7 @@ where
]
where
printBool
b
=
if
b
"true"
"false"
request
::
Request
*
World
->
*(
MaybeErrorString
Response
,
*
World
)
request
::
!
Request
!
*
World
->
*(
MaybeErrorString
Response
,
*
World
)
request
req
w
=
appFst
((=<<)
parseResponse
)
$
doHTTPRequest
(
toHTTPRequest
req
)
10000
w
where
parseResponse
::
HTTPResponse
->
MaybeErrorString
Response
...
...
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