Revision a1d137f6

b/htools/Ganeti/Query/Language.hs
357 357
-- with the string component.
358 358
instance JSON FilterRegex where
359 359
  showJSON (FilterRegex re _) = showJSON re
360
  readJSON s = do
361
    re <- readJSON s
362
    mkRegex re
360
  readJSON s = readJSON s >>= mkRegex
363 361

  
364 362
-- | Name of a field.
365 363
type FieldName = String

Also available in: Unified diff