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 /lib | |
| parent | 78e6f6928db911e6c4eb769016a91832d27ae5bd (diff) | |
smaller changes
Diffstat (limited to '')
| -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)  | 
