Add Eq and Ord instances (#25)

Author: garyb

src/DOM/HTML/Indexed/ButtonType.purs

@@ -1,10 +1,15 @@
 module DOM.HTML.Indexed.ButtonType where
 
+import Prelude
+
 data ButtonType
   = ButtonButton
   | ButtonSubmit
   | ButtonReset
 
+derive instance eqButtonType :: Eq ButtonType
+derive instance ordButtonType :: Ord ButtonType
+
 renderButtonType :: ButtonType -> String
 renderButtonType = case _ of
   ButtonButton -> "button"

src/DOM/HTML/Indexed/CrossOriginValue.purs

@@ -1,9 +1,14 @@
 module DOM.HTML.Indexed.CrossOriginValue where
 
+import Prelude
+
 data CrossOriginValue
   = Anonymous
   | UseCredentials
 
+derive instance eqCrossOriginValue :: Eq CrossOriginValue
+derive instance ordCrossOriginValue :: Ord CrossOriginValue
+
 renderCrossOriginValue :: CrossOriginValue -> String
 renderCrossOriginValue = case _ of
   Anonymous -> "anonymous"

src/DOM/HTML/Indexed/DirValue.purs

@@ -1,10 +1,15 @@
 module DOM.HTML.Indexed.DirValue where
 
+import Prelude
+
 data DirValue
   = DirLTR
   | DirRTL
   | DirAuto
 
+derive instance eqDirValue :: Eq DirValue
+derive instance ordDirValue :: Ord DirValue
+
 renderDirValue :: DirValue -> String
 renderDirValue = case _ of
   DirLTR -> "ltr"

src/DOM/HTML/Indexed/FormMethod.purs

@@ -1,9 +1,14 @@
 module DOM.HTML.Indexed.FormMethod where
 
+import Prelude
+
 data FormMethod
   = POST
   | GET
 
+derive instance eqFormMethod :: Eq FormMethod
+derive instance ordFormMethod :: Ord FormMethod
+
 renderFormMethod :: FormMethod -> String
 renderFormMethod = case _ of
   POST -> "post"

src/DOM/HTML/Indexed/InputAcceptType.purs

@@ -7,6 +7,9 @@ import Data.String as String
 
 newtype InputAcceptType = InputAcceptType (Array InputAcceptTypeAtom)
 
+derive instance eqInputAcceptType :: Eq InputAcceptType
+derive instance ordInputAcceptType :: Ord InputAcceptType
+
 instance semigroupInputAcceptType :: Semigroup InputAcceptType where
   append (InputAcceptType a) (InputAcceptType b) = InputAcceptType (a <> b)
 
@@ -20,6 +23,9 @@ data InputAcceptTypeAtom
   = AcceptMediaType MediaType
   | AcceptFileExtension String
 
+derive instance eqInputAcceptTypeAtom :: Eq InputAcceptTypeAtom
+derive instance ordInputAcceptTypeAtom :: Ord InputAcceptTypeAtom
+
 renderInputAcceptType :: InputAcceptType -> String
 renderInputAcceptType (InputAcceptType atoms) =
   String.joinWith "," (map renderInputAcceptTypeAtom atoms)

src/DOM/HTML/Indexed/InputType.purs

@@ -1,5 +1,7 @@
 module DOM.HTML.Indexed.InputType where
 
+import Prelude
+
 data InputType
   = InputButton
   | InputCheckbox
@@ -24,6 +26,9 @@ data InputType
   | InputUrl
   | InputWeek
 
+derive instance eqInputType :: Eq InputType
+derive instance ordInputType :: Ord InputType
+
 renderInputType :: InputType -> String
 renderInputType = case _ of
   InputButton -> "button"

src/DOM/HTML/Indexed/KindValue.purs

@@ -1,12 +1,17 @@
 module DOM.HTML.Indexed.KindValue where
 
+import Prelude
+
 data KindValue
   = KindSubtitles
   | KindCaptions
   | KindDescriptions
   | KindChapters
   | KindMetadata
 
+derive instance eqKindValue :: Eq KindValue
+derive instance ordKindValue :: Ord KindValue
+
 renderKindValue :: KindValue -> String
 renderKindValue = case _ of
   KindSubtitles -> "subtitles"

src/DOM/HTML/Indexed/MenuType.purs

@@ -1,10 +1,15 @@
 module DOM.HTML.Indexed.MenuType where
 
+import Prelude
+
 data MenuType
   = MenuList
   | MenuContext
   | MenuToolbar
 
+derive instance eqMenuType :: Eq MenuType
+derive instance ordMenuType :: Ord MenuType
+
 renderMenuType :: MenuType -> String
 renderMenuType = case _ of
   MenuList -> "list"

src/DOM/HTML/Indexed/MenuitemType.purs

@@ -1,10 +1,15 @@
 module DOM.HTML.Indexed.MenuitemType where
 
+import Prelude
+
 data MenuitemType
   = MenuitemCommand
   | MenuitemCheckbox
   | MenuitemRadio
 
+derive instance eqMenuitemType :: Eq MenuitemType
+derive instance ordMenuitemType :: Ord MenuitemType
+
 renderMenuitemType :: MenuitemType -> String
 renderMenuitemType = case _ of
   MenuitemCommand -> "command"

src/DOM/HTML/Indexed/OnOff.purs

@@ -1,9 +1,14 @@
 module DOM.HTML.Indexed.OnOff where
 
+import Prelude
+
 data OnOff
   = On
   | Off
 
+derive instance eqOnOff :: Eq OnOff
+derive instance ordOnOff :: Ord OnOff
+
 renderOnOff :: OnOff -> String
 renderOnOff = case _ of
   On -> "on"