tiles can also have properties like tile layers

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/Util.hs b/lib/Util.hs
index a6c8354..d760fc2 100644
--- a/lib/Util.hs
+++ b/lib/Util.hs
@@ -15,6 +15,7 @@ import qualified Data.Text  as T
 import           Tiled      (Layer (layerData), PropertyValue (..),
                              Tileset (tilesetName), layerName, mkTiledId)
 
+
 -- | helper function to create proxies
 mkProxy :: a -> Proxy a
 mkProxy = const Proxy
@@ -65,10 +66,9 @@ printPretty :: PrettyPrint a => a -> IO ()
 printPretty = putStr . T.unpack . prettyprint
 
 
-layerIsEmpty :: Layer -> Bool
-layerIsEmpty layer = case layerData layer of
-  Nothing -> True
-  Just d  -> all ((==) $ mkTiledId 0) d
+
+
+
 
 -- | naive escaping of html sequences, just to be sure that
 -- | workadventure won't mess things up again …