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
I
iTasks-SDK
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
73
Issues
73
List
Boards
Labels
Service Desk
Milestones
Merge Requests
6
Merge Requests
6
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
72eb235a
Commit
72eb235a
authored
Jul 09, 2018
by
Haye Böhm
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix compiling
parent
7d8986f8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
2 deletions
+2
-2
Libraries/iTasks/SDS/Definition.dcl
Libraries/iTasks/SDS/Definition.dcl
+1
-1
Libraries/iTasks/SDS/Sources/Core.icl
Libraries/iTasks/SDS/Sources/Core.icl
+1
-1
No files found.
Libraries/iTasks/SDS/Definition.dcl
View file @
72eb235a
...
...
@@ -107,7 +107,7 @@ instance toString (WebServiceShareOptions r)
::
SDSNotifyPred
p
:==
Timespec
p
->
Bool
//Sources provide direct access to a data source
::
SDSSource
p
r
w
=
SDSSource
(
SDSSourceOptions
p
r
w
)
&
JSONEncode
{|*|}
w
::
SDSSource
p
r
w
=
SDSSource
(
SDSSourceOptions
p
r
w
)
// Allows for some keeping of local state. Writing to a SDS may require reading from that SDS.
// In the case that this reading is asynchronous, writing could also be asynchronous. This
...
...
Libraries/iTasks/SDS/Sources/Core.icl
View file @
72eb235a
...
...
@@ -15,7 +15,7 @@ from iTasks.Internal.Task import exception
constShare
::
!
a
->
SDSSource
p
a
()
constShare
v
=
createReadOnlySDS
(\_
env
->
(
v
,
env
))
nullShare
::
SDSSource
p
()
a
|
JSONEncode
{|*|}
a
nullShare
::
SDSSource
p
()
a
nullShare
=
createReadWriteSDS
"_core_"
"nullShare"
(\_
env
->
(
Ok
(),
env
))
(\_
_
env
->
(
Ok
(
const
(
const
False
)),
env
))
unitShare
::
SDSSource
()
()
()
...
...
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