From 4c895b81c885e59e3486a3ccda0a2d78ab0a9572 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 25 Dec 2021 15:09:09 +0100
Subject: apply some hlint hints

---
 lib/Properties.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib')

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
-- 
cgit v1.2.3