diff options
| -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) |