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"

src/DOM/HTML/Indexed/OrderedListType.purs

@@ -1,17 +1,28 @@
 module DOM.HTML.Indexed.OrderedListType where
 
+import Prelude
+
 data CaseType
   = Uppercase
   | Lowercase
 
+derive instance eqCaseType :: Eq CaseType
+derive instance ordCaseType :: Ord CaseType
+
 data NumeralType
   = NumeralDecimal
   | NumeralRoman CaseType
 
+derive instance eqNumeralType :: Eq NumeralType
+derive instance ordNumeralType :: Ord NumeralType
+
 data OrderedListType
   = OrderedListNumeric NumeralType
   | OrderedListAlphabetic CaseType
 
+derive instance eqOrderedListType :: Eq OrderedListType
+derive instance ordOrderedListType :: Ord OrderedListType
+
 renderOrderedListType :: OrderedListType -> String
 renderOrderedListType = case _ of
   OrderedListNumeric NumeralDecimal -> "1"

src/DOM/HTML/Indexed/PreloadValue.purs

@@ -1,10 +1,15 @@
 module DOM.HTML.Indexed.PreloadValue where
 
+import Prelude
+
 data PreloadValue
   = PreloadNone
   | PreloadAuto
   | PreloadMetadata
 
+derive instance eqPreloadValue :: Eq PreloadValue
+derive instance ordPreloadValue :: Ord PreloadValue
+
 renderPreloadValue :: PreloadValue -> String
 renderPreloadValue = case _ of
   PreloadNone -> "none"

src/DOM/HTML/Indexed/ScopeValue.purs

@@ -1,12 +1,17 @@
 module DOM.HTML.Indexed.ScopeValue where
 
+import Prelude
+
 data ScopeValue
   = ScopeRow
   | ScopeCol
   | ScopeRowGroup
   | ScopeColGroup
   | ScopeAuto
 
+derive instance eqScopeValue :: Eq ScopeValue
+derive instance ordScopeValue :: Ord ScopeValue
+
 renderScopeValue :: ScopeValue -> String
 renderScopeValue = case _ of
   ScopeRow -> "row"

src/DOM/HTML/Indexed/StepValue.purs

@@ -1,11 +1,14 @@
 module DOM.HTML.Indexed.StepValue where
 
-import Prelude (show)
+import Prelude
 
 data StepValue
   = Any
   | Step Number
 
+derive instance eqStepValue :: Eq StepValue
+derive instance ordStepValue :: Ord StepValue
+
 renderStepValue :: StepValue -> String
 renderStepValue = case _ of
   Any -> "any"

src/DOM/HTML/Indexed/WrapValue.purs

@@ -1,9 +1,14 @@
 module DOM.HTML.Indexed.WrapValue where
 
+import Prelude
+
 data WrapValue
   = Hard
   | Soft
 
+derive instance eqWrapValue :: Eq WrapValue
+derive instance ordWrapValue :: Ord WrapValue
+
 renderWrapValue :: WrapValue -> String
 renderWrapValue = case _ of
   Hard -> "hard"