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

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

parent ebee4356
Pipeline #39830 passed with stage
in 1 minute and 42 seconds
......@@ -22,8 +22,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"
......@@ -42,8 +42,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"
......
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