diff options
| -rw-r--r-- | lib/Properties.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 16c8c63..e746401 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -309,7 +309,7 @@ checkObjectProperty p@(Property name _) = do when (null (objectName obj) || objectName obj == Just mempty) $ complain $ "Objects with the property "<>prettyprint name<>" set must \ \be named." - | name `elem` [ "openSound", "closeSound", "bellSound" ] -> do + | name `elem` [ "openSound", "closeSound", "bellSound", "loadSound" ] -> do isString p unwrapURI (Proxy @"audio") p (dependsOn . Link) |