Fix cardinality of BinaryType and ReadyState

garyb · garyb · commit f22cf4ebe149 · 2017-04-17T21:03:50.000+01:00
diff --git 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
@@ -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
 
