1 files changed, 5 insertions, 0 deletions
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