Enums don't need to shout

Author: garyb

src/Web/HTML/HTMLMediaElement/ReadyState.purs

@@ -5,18 +5,18 @@ import Data.Maybe (Maybe(..))
 import Data.Enum (class Enum, class BoundedEnum, Cardinality(..), defaultSucc, defaultPred)
 
 data ReadyState
-  = HAVE_NOTHING
-  | HAVE_METADATA
-  | HAVE_CURRENT_DATA
-  | HAVE_FUTURE_DATA
-  | HAVE_ENOUGH_DATA
+  = HaveNothing
+  | HaveMetadata
+  | HaveCurrentData
+  | HaveFutureData
+  | HaveEnoughData
 
 derive instance eqReadyState :: Eq ReadyState
 derive instance ordReadyState :: Ord ReadyState
 
 instance boundedReadyState :: Bounded ReadyState where
-  bottom = HAVE_NOTHING
-  top = HAVE_ENOUGH_DATA
+  bottom = HaveNothing
+  top = HaveEnoughData
 
 instance enumReadyState :: Enum ReadyState where
   succ = defaultSucc toEnumReadyState fromEnumReadyState
@@ -28,27 +28,27 @@ instance boundedEnumReadyState :: BoundedEnum ReadyState where
   fromEnum = fromEnumReadyState
 
 instance showReadyState :: Show ReadyState where
-  show HAVE_NOTHING = "HAVE_NOTHING"
-  show HAVE_METADATA = "HAVE_METADATA"
-  show HAVE_CURRENT_DATA = "HAVE_CURRENT_DATA"
-  show HAVE_FUTURE_DATA = "HAVE_FUTURE_DATA"
-  show HAVE_ENOUGH_DATA = "HAVE_ENOUGH_DATA"
+  show HaveNothing = "HaveNothing"
+  show HaveMetadata = "HaveMetadata"
+  show HaveCurrentData = "HaveCurrentData"
+  show HaveFutureData = "HaveFutureData"
+  show HaveEnoughData = "HaveEnoughData"
 
 toEnumReadyState :: Int -> Maybe ReadyState
 toEnumReadyState =
   case _ of
-    0 -> Just HAVE_NOTHING
-    1 -> Just HAVE_METADATA
-    2 -> Just HAVE_CURRENT_DATA
-    3 -> Just HAVE_FUTURE_DATA
-    4 -> Just HAVE_ENOUGH_DATA
+    0 -> Just HaveNothing
+    1 -> Just HaveMetadata
+    2 -> Just HaveCurrentData
+    3 -> Just HaveFutureData
+    4 -> Just HaveEnoughData
     _ -> Nothing
 
 fromEnumReadyState :: ReadyState -> Int
 fromEnumReadyState =
   case _ of
-    HAVE_NOTHING -> 0
-    HAVE_METADATA -> 1
-    HAVE_CURRENT_DATA -> 2
-    HAVE_FUTURE_DATA -> 3
-    HAVE_ENOUGH_DATA -> 4
+    HaveNothing -> 0
+    HaveMetadata -> 1
+    HaveCurrentData -> 2
+    HaveFutureData -> 3
+    HaveEnoughData -> 4

src/Web/HTML/HTMLTrackElement/ReadyState.purs

@@ -5,17 +5,17 @@ import Data.Maybe (Maybe(..))
 import Data.Enum (class Enum, class BoundedEnum, Cardinality(..), defaultSucc, defaultPred)
 
 data ReadyState
-  = NONE
-  | LOADING
-  | LOADED
-  | ERROR
+  = None
+  | Loading
+  | Loaded
+  | Error
 
 derive instance eqReadyState :: Eq ReadyState
 derive instance ordReadyState :: Ord ReadyState
 
 instance boundedReadyState :: Bounded ReadyState where
-  bottom = NONE
-  top = ERROR
+  bottom = None
+  top = Error
 
 instance enumReadyState :: Enum ReadyState where
   succ = defaultSucc toEnumReadyState fromEnumReadyState
@@ -27,24 +27,24 @@ instance boundedEnumReadyState :: BoundedEnum ReadyState where
   fromEnum = fromEnumReadyState
 
 instance showReadyState :: Show ReadyState where
-  show NONE = "NONE"
-  show LOADING = "LOADING"
-  show LOADED = "LOADED"
-  show ERROR = "ERROR"
+  show None = "None"
+  show Loading = "Loading"
+  show Loaded = "Loaded"
+  show Error = "Error"
 
 toEnumReadyState :: Int -> Maybe ReadyState
 toEnumReadyState =
   case _ of
-    0 -> Just NONE
-    1 -> Just LOADING
-    2 -> Just LOADED
-    3 -> Just ERROR
+    0 -> Just None
+    1 -> Just Loading
+    2 -> Just Loaded
+    3 -> Just Error
     _ -> Nothing
 
 fromEnumReadyState :: ReadyState -> Int
 fromEnumReadyState =
   case _ of
-    NONE -> 0
-    LOADING -> 1
-    LOADED -> 2
-    ERROR -> 3
+    None -> 0
+    Loading -> 1
+    Loaded -> 2
+    Error -> 3