diff options
author | stuebinm | 2021-12-04 03:01:37 +0100 |
---|---|---|
committer | stuebinm | 2021-12-04 03:01:37 +0100 |
commit | c61f8b2ac2ecf5ff96401e1a913d41a6d5a4a343 (patch) | |
tree | a16f484c98b13aa4acbba83de1a7d3986aedd83c /lib/Util.hs | |
parent | 79ec579b3295bf7bc24bfb878759e1ba906d2e98 (diff) |
refuse doubled names
Diffstat (limited to '')
-rw-r--r-- | lib/Util.hs | 5 |
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 |