Simplify a bit the FilterRegex JSON instance

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>

diff --git a/htools/Ganeti/Query/Language.hs b/htools/Ganeti/Query/Language.hs
index f074439..6987c7d 100644 (file)
--- a/htools/Ganeti/Query/Language.hs
+++ b/htools/Ganeti/Query/Language.hs
@@ -357,9 +357,7 @@ instance Eq FilterRegex where
 -- with the string component.
 instance JSON FilterRegex where
   showJSON (FilterRegex re _) = showJSON re
-  readJSON s = do
-    re <- readJSON s
-    mkRegex re
+  readJSON s = readJSON s >>= mkRegex
 
 -- | Name of a field.
 type FieldName = String