diff options
author | stuebinm | 2021-12-24 16:28:07 +0100 |
---|---|---|
committer | stuebinm | 2021-12-24 16:29:36 +0100 |
commit | 2f52b9bba0bb7e5a7ab88d6cbafccda2193211a0 (patch) | |
tree | 7eb3bea9c38b34fc0925bcbc3403c2bc6f5668d3 | |
parent | 78e6f6928db911e6c4eb769016a91832d27ae5bd (diff) |
smaller changes
-rw-r--r-- | lib/CheckMap.hs | 5 | ||||
-rw-r--r-- | lib/LintWriter.hs | 2 | ||||
-rw-r--r-- | 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) |