From f22cf4ebe149b106fbac231231a2e5aebe4c9c53 Mon Sep 17 00:00:00 2001 From: Gary Burgess Date: Mon, 17 Apr 2017 21:03:50 +0100 Subject: [PATCH] Fix cardinality of BinaryType and ReadyState --- src/DOM/Websocket/BinaryType.purs | 2 +- src/DOM/Websocket/ReadyState.purs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/DOM/Websocket/BinaryType.purs b/src/DOM/Websocket/BinaryType.purs index 2651491..cd9ffbf 100644 --- a/src/DOM/Websocket/BinaryType.purs +++ b/src/DOM/Websocket/BinaryType.purs @@ -20,7 +20,7 @@ instance enumBinaryType :: Enum BinaryType where pred = defaultPred toEnumBinaryType fromEnumBinaryType instance boundedEnumBinaryType :: BoundedEnum BinaryType where - cardinality = Cardinality 3 + cardinality = Cardinality 2 toEnum = toEnumBinaryType fromEnum = fromEnumBinaryType diff --git a/src/DOM/Websocket/ReadyState.purs b/src/DOM/Websocket/ReadyState.purs index 1a06773..0baffff 100644 --- a/src/DOM/Websocket/ReadyState.purs +++ b/src/DOM/Websocket/ReadyState.purs @@ -22,7 +22,7 @@ instance enumReadyState :: Enum ReadyState where pred = defaultPred toEnumReadyState fromEnumReadyState instance boundedEnumReadyState :: BoundedEnum ReadyState where - cardinality = Cardinality 3 + cardinality = Cardinality 4 toEnum = toEnumReadyState fromEnum = fromEnumReadyState