diff options
author | stuebinm | 2022-10-11 13:39:16 +0200 |
---|---|---|
committer | stuebinm | 2022-10-11 13:39:16 +0200 |
commit | 4caded904c54d1cd85bf54239517e93650a404f5 (patch) | |
tree | ce150d3588aa766c12ee6bb3e3ed3aea73615d43 /tiled/Data/Tiled/Abstract.hs | |
parent | e4b0ae395f3207f4bbaebbf42a3d3a28a516489d (diff) |
use template haskell aeson, not generics
this has been bothering me for MONTHS, and it compiles faster now. also fixed some warnings
Diffstat (limited to '')
-rw-r--r-- | tiled/Data/Tiled/Abstract.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tiled/Data/Tiled/Abstract.hs b/tiled/Data/Tiled/Abstract.hs index 89c40b4..29e9022 100644 --- a/tiled/Data/Tiled/Abstract.hs +++ b/tiled/Data/Tiled/Abstract.hs @@ -4,9 +4,9 @@ module Data.Tiled.Abstract where import Universum -import Data.Tiled (GlobalId, Layer (..), Object (..), Property (..), +import Data.Tiled (GlobalId (..), Layer (..), Object (..), Property (..), PropertyValue (..), Tile (..), Tiledmap (..), - Tileset (..), mkTiledId) + Tileset (..)) import qualified Data.Vector as V class HasProperties a where @@ -81,4 +81,4 @@ instance IsProperty Text where layerIsEmpty :: HasData a => a -> Bool layerIsEmpty layer = case getData layer of Nothing -> True - Just d -> all ((==) $ mkTiledId 0) d + Just d -> all ((==) $ GlobalId 0) d |