summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Properties.hs2
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)