diff options
Diffstat (limited to 'lib/Properties.hs')
| -rw-r--r-- | lib/Properties.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index f48d62e..7d6fc4a 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -5,13 +5,14 @@ module Properties (checkProperty) where -import Control.Monad (unless) -import Data.Text (Text) -import Tiled2 (Layer (layerProperties), Property, propertyName, propertyValue) -import Util (prettyprint) +import Control.Monad (unless) +import Data.Text (Text) +import Tiled2 (Layer (layerProperties), Property, propertyName, + propertyValue) +import Util (prettyprint) -import LintWriter (LintWriter, complain, forbid, info, - suggest, warn, Dep(..), require) +import LintWriter (LintWriter, complain, forbid, info, require, + suggest, warn) -- | the point of this module -- @@ -45,6 +46,7 @@ checkProperty layer prop = case propName of requireProperty "playAudio" "openWebsite" -> do suggestPropertyValue "openWebsiteTrigger" "onaction" + require $ propertyValue prop "openWebsiteTrigger" -> requireProperty "openWebsite" "openWebsitePolicy" -> |