-instance Zone FunctionalZone where
- zoneName = fzName
- getRecordNames = return . fzRecordNames
- getRecordsForName = (return .) . fzRecordsForName
+instance Zone DynamicZone where
+ zoneName = dzName
+ getRecordNames = liftM M.keys . dzRecords
+ getRecordsForName = flip (fmap . (fromMaybe [] .) . M.lookup) . dzRecords