diff options
author | stuebinm | 2021-09-20 23:03:56 +0200 |
---|---|---|
committer | stuebinm | 2021-09-20 23:06:56 +0200 |
commit | c6be6366d6411d7b0b53fd8879537a33fefd5a88 (patch) | |
tree | efceb26894fc455c85d7ccfd436a415d8ee69985 /lib/Properties.hs | |
parent | 42df3cf0eb0c5877ac3320994cadec07619bcd6b (diff) |
use PrettyPrinter more
Diffstat (limited to 'lib/Properties.hs')
-rw-r--r-- | lib/Properties.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 818378a..011b5ca 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -13,8 +13,8 @@ import Tiled2 (Layer (..), Property (..), PropertyValue (..), import Util (layerIsEmpty, prettyprint) import LintWriter (LintWriter, askContext, askFileDepth, complain, - dependsOn, forbid, info, suggest, warn) -import Paths + dependsOn, forbid, suggest, warn) +import Paths (RelPath (..), parsePath) import Types (Dep (Link, Local, LocalMap, MapLink)) @@ -88,8 +88,7 @@ checkLayerProperty :: Property -> LintWriter Layer checkLayerProperty p@(Property name _value) = case name of "jitsiRoom" -> do uselessEmptyLayer - unwrapString p $ \val -> do - info $ "found jitsi room: " <> prettyprint val + unwrapString p $ \_val -> do suggestProperty $ Property "jitsiTrigger" (StrProp "onaction") "jitsiTrigger" -> do isString p |