diff options
Diffstat (limited to 'lib/Util.hs')
-rw-r--r-- | lib/Util.hs | 8 |
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 … |