We planned to upgrade GitLab and Mattermost to the latest version this Friday morning (early). You may experience some downtime!

Commit e6355b60 authored by John van Groningen's avatar John van Groningen

remove () around ~ in instance member definitions in StdIOCommon for ObjecIO

parent b222b9ca
...@@ -15,8 +15,8 @@ instance == SelectState where ...@@ -15,8 +15,8 @@ instance == SelectState where
(==) Able select = enabled select (==) Able select = enabled select
(==) Unable select = not (enabled select) (==) Unable select = not (enabled select)
instance ~ SelectState where instance ~ SelectState where
(~) Able = Unable ~ Able = Unable
(~) Unable = Able ~ Unable = Able
instance toString SelectState where instance toString SelectState where
toString Able = "Able" toString Able = "Able"
toString Unable = "Unable" toString Unable = "Unable"
...@@ -35,8 +35,8 @@ instance == MarkState where ...@@ -35,8 +35,8 @@ instance == MarkState where
(==) Mark mark = marked mark (==) Mark mark = marked mark
(==) NoMark mark = not (marked mark) (==) NoMark mark = not (marked mark)
instance ~ MarkState where instance ~ MarkState where
(~) Mark = NoMark ~ Mark = NoMark
(~) _ = Mark ~ _ = Mark
instance toString MarkState where instance toString MarkState where
toString Mark = "Mark" toString Mark = "Mark"
toString NoMark = "NoMark" toString NoMark = "NoMark"
...@@ -596,11 +596,9 @@ instance == ErrorReport where ...@@ -596,11 +596,9 @@ instance == ErrorReport where
(==) ErrorUnknownObject error = case error of (==) ErrorUnknownObject error = case error of
ErrorUnknownObject -> True ErrorUnknownObject -> True
_ -> False _ -> False
// MW11..
(==) ErrorNotifierOpen error = case error of (==) ErrorNotifierOpen error = case error of
ErrorNotifierOpen -> True ErrorNotifierOpen -> True
_ -> False _ -> False
// ..MW11
(==) (OtherError e1) error = case error of (==) (OtherError e1) error = case error of
OtherError e2 -> e1==e2 OtherError e2 -> e1==e2
_ -> False _ -> False
...@@ -630,7 +628,5 @@ where ...@@ -630,7 +628,5 @@ where
itemsList _ _ itemsList _ _
= "" = ""
// MW11..
:: OkBool // iff True, the operation was successful :: OkBool // iff True, the operation was successful
:== Bool :== Bool
// ..MW11
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment