summaryrefslogtreecommitdiff
path: root/lib/Util.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Util.hs')
-rw-r--r--lib/Util.hs8
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 …