From 2f52b9bba0bb7e5a7ab88d6cbafccda2193211a0 Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Fri, 24 Dec 2021 16:28:07 +0100
Subject: [PATCH] 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)
--
GitLab