From 52bf0fa6dace596a4bd5b4e4229fbb9704fbf443 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 18 Feb 2022 18:09:23 +0100
Subject: switch to universum prelude

also don't keep adjusted maps around if not necessary
---
 lib/TiledAbstract.hs | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

(limited to 'lib/TiledAbstract.hs')

diff --git a/lib/TiledAbstract.hs b/lib/TiledAbstract.hs
index 5589207..f55e75e 100644
--- a/lib/TiledAbstract.hs
+++ b/lib/TiledAbstract.hs
@@ -2,10 +2,8 @@
 
 module TiledAbstract where
 
-import           Data.Maybe  (fromMaybe)
-import           Data.Proxy  (Proxy)
-import           Data.Text   (Text)
-import           Data.Vector (Vector)
+import           Universum
+
 import qualified Data.Vector as V
 import           Tiled       (GlobalId, Layer (..), Object (..), Property (..),
                               PropertyValue (..), Tile (..), Tiledmap (..),
@@ -17,27 +15,27 @@ class HasProperties a where
   adjustProperties :: ([Property] -> Maybe [Property]) -> a -> a
 
 instance HasProperties Layer where
-  getProperties = fromMaybe mempty . layerProperties
+  getProperties = maybeToMonoid . layerProperties
   adjustProperties f layer = layer
     { layerProperties = f (getProperties layer) }
 
 instance HasProperties Tileset where
-  getProperties = fromMaybe mempty . tilesetProperties
+  getProperties = maybeToMonoid . tilesetProperties
   adjustProperties f tileset = tileset
     { tilesetProperties = f (getProperties tileset) }
 
 instance HasProperties Tile where
-  getProperties = V.toList . fromMaybe mempty . tileProperties
+  getProperties = V.toList . maybeToMonoid . tileProperties
   adjustProperties f tile = tile
     { tileProperties = (fmap V.fromList . f) (getProperties tile) }
 
 instance HasProperties Object where
-  getProperties = V.toList . fromMaybe mempty . objectProperties
+  getProperties = V.toList . maybeToMonoid . objectProperties
   adjustProperties f obj = obj
     { objectProperties = (fmap V.fromList . f) (getProperties obj) }
 
 instance HasProperties Tiledmap where
-  getProperties = fromMaybe mempty . tiledmapProperties
+  getProperties = maybeToMonoid . tiledmapProperties
   adjustProperties f tiledmap = tiledmap
     { tiledmapProperties = f (getProperties tiledmap) }
 
-- 
cgit v1.2.3