toProps
  :: (ToJSON a)
  => a -> Maybe [PropertyOrHandler handler]
toProps j =
  case toJSON j of
    Object o -> Just . map (\(k, v) -> toKey k &= v) . HashMap.toList $ o
    _ -> Nothing
toProps
  :: (ToJSON a)
  => a -> Maybe [PropertyOrHandler handler]
toProps j =
  case toJSON j of
    Object o -> Just . map (\(k, v) -> toKey k &= v) . HashMap.toList $ o
    _ -> Nothing
toProps j =
  case toJSON j of
    Object o -> Just . map (\(k, v) -> toKey k &= v) . HashMap.toList $ o
    _ -> Nothing