Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
e6355b60
Commit
e6355b60
authored
Mar 06, 2020
by
John van Groningen
Browse files
remove () around ~ in instance member definitions in StdIOCommon for ObjecIO
parent
b222b9ca
Changes
1
Hide whitespace changes
Inline
Side-by-side
Libraries/ObjectIO/ObjectIO/StdIOCommon.icl
View file @
e6355b60
...
...
@@ -15,8 +15,8 @@ instance == SelectState where
(==)
Able
select
=
enabled
select
(==)
Unable
select
=
not
(
enabled
select
)
instance
~
SelectState
where
(~)
Able
=
Unable
(~)
Unable
=
Able
~
Able
=
Unable
~
Unable
=
Able
instance
toString
SelectState
where
toString
Able
=
"Able"
toString
Unable
=
"Unable"
...
...
@@ -35,8 +35,8 @@ instance == MarkState where
(==)
Mark
mark
=
marked
mark
(==)
NoMark
mark
=
not
(
marked
mark
)
instance
~
MarkState
where
(~)
Mark
=
NoMark
(~)
_
=
Mark
~
Mark
=
NoMark
~
_
=
Mark
instance
toString
MarkState
where
toString
Mark
=
"Mark"
toString
NoMark
=
"NoMark"
...
...
@@ -596,11 +596,9 @@ instance == ErrorReport where
(==)
ErrorUnknownObject
error
=
case
error
of
ErrorUnknownObject
->
True
_
->
False
// MW11..
(==)
ErrorNotifierOpen
error
=
case
error
of
ErrorNotifierOpen
->
True
_
->
False
// ..MW11
(==)
(
OtherError
e1
)
error
=
case
error
of
OtherError
e2
->
e1
==
e2
_
->
False
...
...
@@ -630,7 +628,5 @@ where
itemsList
_
_
=
""
// MW11..
::
OkBool
// iff True, the operation was successful
:==
Bool
// ..MW11
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