From c61f8b2ac2ecf5ff96401e1a913d41a6d5a4a343 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 4 Dec 2021 03:01:37 +0100
Subject: refuse doubled names

---
 lib/Util.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/Util.hs')

diff --git a/lib/Util.hs b/lib/Util.hs
index 948b725..c082bfe 100644
--- a/lib/Util.hs
+++ b/lib/Util.hs
@@ -7,11 +7,16 @@
 module Util where
 
 import           Data.Aeson as Aeson
+import           Data.Proxy (Proxy (..))
 import           Data.Text  (Text)
 import qualified Data.Text  as T
 import           Tiled2     (Layer (layerData), PropertyValue (..),
                              Tileset (tilesetName), layerName, mkTiledId)
 
+-- | helper function to create proxies
+mkProxy :: a -> Proxy a
+mkProxy = const Proxy
+
 -- | haskell's many string types are FUN …
 showText :: Show a => a -> Text
 showText = T.pack . show
-- 
cgit v1.2.3