summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2021-12-24 16:28:07 +0100
committerstuebinm2021-12-24 16:29:36 +0100
commit2f52b9bba0bb7e5a7ab88d6cbafccda2193211a0 (patch)
tree7eb3bea9c38b34fc0925bcbc3403c2bc6f5668d3
parent78e6f6928db911e6c4eb769016a91832d27ae5bd (diff)
smaller changes
-rw-r--r--lib/CheckMap.hs5
-rw-r--r--lib/LintWriter.hs2
-rw-r--r--lib/Properties.hs2
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)