From 2f52b9bba0bb7e5a7ab88d6cbafccda2193211a0 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 24 Dec 2021 16:28:07 +0100
Subject: smaller changes

---
 lib/CheckMap.hs   | 5 ++---
 lib/LintWriter.hs | 2 +-
 lib/Properties.hs | 2 +-
 3 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index 63b264a..51b4496 100644
--- a/lib/CheckMap.hs
+++ b/lib/CheckMap.hs
@@ -155,11 +155,10 @@ checkLayerRec config depth layers =
 
         -- Lintresults for sublayers and subsublayers etc.
         subresults' =
-          checkLayerRec config depth
-          $ sublayers
+          checkLayerRec config depth sublayers
 
         -- lintresult for the parent layer
-        parentResult = runLintWriter config parentAdjusted depth (checkLayer)
+        parentResult = runLintWriter config parentAdjusted depth checkLayer
 
         -- the parent layer with adjusted sublayers
         parentAdjusted =
diff --git a/lib/LintWriter.hs b/lib/LintWriter.hs
index 5a6fc7d..eb7d138 100644
--- a/lib/LintWriter.hs
+++ b/lib/LintWriter.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE DeriveAnyClass    #-}
+{-# LANGUAGE DeriveFunctor     #-}
 {-# LANGUAGE DeriveGeneric     #-}
 {-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE FlexibleInstances #-}
@@ -7,7 +8,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RankNTypes        #-}
 {-# LANGUAGE TupleSections     #-}
-{-# LANGUAGE DeriveFunctor     #-}
 {-# OPTIONS_GHC -Wno-missing-signatures #-}
 
 -- | a monad that collects warnings, outputs, etc,
diff --git a/lib/Properties.hs b/lib/Properties.hs
index cf63e12..66cedd9 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -160,7 +160,7 @@ checkTileset = do
   tileset <- askContext
   case tilesetImage tileset of
     Just str -> unwrapPath str (dependsOn . Local)
-    Nothing -> complain "Tileset does not refer to an image."
+    Nothing  -> complain "Tileset does not refer to an image."
 
   refuseDoubledNames (getProperties tileset)
 
-- 
cgit v1.2.3