From 4c895b81c885e59e3486a3ccda0a2d78ab0a9572 Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Sat, 25 Dec 2021 15:09:09 +0100
Subject: [PATCH] apply some hlint hints
---
lib/Properties.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/Properties.hs b/lib/Properties.hs
index 341426d..aafe61c 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -292,7 +292,7 @@ checkObjectProperty p@(Property name _) = do
$ complain "property \"soundRadius\" can only be set on objects with \
\either property \"bell\" or \"door\" also set."
- _ | name `elem` [ "default", "persist" ] -> do
+ _ | name `elem` [ "default", "persist" ] ->
suggestPropertyName' "door"
-- extended API for doors and bells
| name `elem` [ "openLayer", "closeLayer" ] -> do
@@ -329,7 +329,7 @@ checkObjectProperty p@(Property name _) = do
-- | Checks a single (custom) property of an objectgroup layer
checkObjectGroupProperty :: Property -> LintWriter Layer
checkObjectGroupProperty (Property name _) = case name of
- "getBadge" -> warn $ "the property \"getBadge\" must be set on individual objects, \
+ "getBadge" -> warn "the property \"getBadge\" must be set on individual objects, \
\not the object layer."
_ -> warn $ "unknown property " <> prettyprint name <> " for objectgroup layers"
@@ -593,7 +593,7 @@ whenLayerCollisions layers f andthen = do
-- | this property is forbidden and should not be used
forbidProperty :: HasProperties a => Text -> LintWriter a
-forbidProperty name = do
+forbidProperty name =
forbid $ "property " <> prettyprint name <> " is disallowed."
propertyRequiredBy :: HasProperties a => Text -> Text -> LintWriter a
--
GitLab