Revision a1d137f6 htools/Ganeti/Query/Language.hs
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