Commit a1d137f6 authored by Iustin Pop's avatar Iustin Pop
Browse files

Simplify a bit the FilterRegex JSON instance


Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarHelga Velroyen <helgav@google.com>
parent ad1c1e41
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment