Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
f5674347
Commit
f5674347
authored
Jun 30, 2018
by
Camil Staps
🐟
Committed by
Haye Böhm
Sep 03, 2018
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Adapt to removal of splitWith from platform
parent
fc8b18f5
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
4 deletions
+4
-4
Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.icl
...pplications/ShipAdventure/C2/Framework/MapEnvironment.icl
+2
-2
Libraries/iTasks/Extensions/Database/StoreDatabase.icl
Libraries/iTasks/Extensions/Database/StoreDatabase.icl
+1
-1
Libraries/iTasks/UI/Layout/Common.icl
Libraries/iTasks/UI/Layout/Common.icl
+1
-1
No files found.
Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.icl
View file @
f5674347
...
...
@@ -657,7 +657,7 @@ toggleDoor roomNo=:(floorIdx, c2d) exit
where
newLocks
::
!
Dir
![
Dir
]
->
[
Dir
]
newLocks
dir
locks
#!
(
lockedDirs
,
rest
)
=
splitWith
(\
l
->
l
===
dir
)
locks
#!
(
lockedDirs
,
rest
)
=
partition
(\
l
->
l
===
dir
)
locks
|
isEmpty
lockedDirs
=
[
dir
:
rest
]
|
otherwise
=
rest
...
...
@@ -672,7 +672,7 @@ toggleHop fromRoom toRoom
where
newLocks
::
!
Coord3D
![
Coord3D
]
->
[
Coord3D
]
newLocks
c3d
locks
#!
(
lockedDirs
,
rest
)
=
splitWith
(\
l
->
l
===
c3d
)
locks
#!
(
lockedDirs
,
rest
)
=
partition
(\
l
->
l
===
c3d
)
locks
|
isEmpty
lockedDirs
=
[
c3d
:
rest
]
|
otherwise
=
rest
...
...
Libraries/iTasks/Extensions/Database/StoreDatabase.icl
View file @
f5674347
...
...
@@ -41,7 +41,7 @@ dbUpdateItem new
dbDeleteItem
::
!(
DBRef
a
)
->
Task
(
Maybe
a
)
|
iTask
,
DB
a
dbDeleteItem
itemid
=
get
databaseId
>>=
\
items
->
let
(
match
,
nomatch
)
=
splitWith
(\
i
->
getItemId
i
==
itemid
)
items
in
let
(
match
,
nomatch
)
=
partition
(\
i
->
getItemId
i
==
itemid
)
items
in
dbWriteAll
nomatch
>>|
case
match
of
[]
=
return
Nothing
[
item
:_]
=
return
(
Just
item
)
...
...
Libraries/iTasks/UI/Layout/Common.icl
View file @
f5674347
...
...
@@ -115,7 +115,7 @@ where
}
apply
ui
=:(
UI
t
attr
cs
)
#
(
actions
,
others
)
=
splitWith
(\
s
->
s
=:(
UI
UIAction
_
_))
cs
#
(
actions
,
others
)
=
partition
(\
s
->
s
=:(
UI
UIAction
_
_))
cs
=
(
ReplaceUI
(
UI
t
attr
(
mkmenu
actions
++
others
)),
LSType
ui
)
adjust
(
NoChange
,
s
)
=
(
NoChange
,
s
)
...
...
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