revert Element parsing

tracsis · Dec 12, 2023 · 3516aa7 · 3516aa7
1 parent 955bc2a
commit 3516aa7
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/src/Test/WebDriver/Commands/Internal.hs b/src/Test/WebDriver/Commands/Internal.hs
@@ -41,13 +41,7 @@ newtype Element = Element Text
                   deriving (Eq, Ord, Show, Read)
 
 instance FromJSON Element where
-  parseJSON (Object o) =
-    Element <$> do
-      e  <- o .:? "ELEMENT"
-      eG <- o .:? "element-6066-11e4-a52e-4f735466cecf"
-      case e <|> eG of
-        Just e' -> return e'
-        Nothing -> throw . BadJSON $ "ELEMENT or element-6066-11e4-a52e-4f735466cecf required"
+  parseJSON (Object o) = Element <$> (o .: "ELEMENT" <|> o .: "element-6066-11e4-a52e-4f735466cecf")
   parseJSON v = typeMismatch "Element" v
 
 instance ToJSON Element where