diff options
author | stuebinm | 2021-09-19 23:21:47 +0200 |
---|---|---|
committer | stuebinm | 2021-09-19 23:21:47 +0200 |
commit | 33d2b0c5da01c48c8106876665e646e1d2f560e9 (patch) | |
tree | 2415125337bf4dca8624607a1cf5ba6ea680d394 /lib/Tiled2.hs | |
parent | 70d37dcb8b381ba1b0b0d1f97d2fe99522f387a6 (diff) |
some properties require non-empty layers
Diffstat (limited to '')
-rw-r--r-- | lib/Tiled2.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Tiled2.hs b/lib/Tiled2.hs index c3bf401..8220bfb 100644 --- a/lib/Tiled2.hs +++ b/lib/Tiled2.hs @@ -1,6 +1,6 @@ -{-# LANGUAGE LambdaCase #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -- | This module provides Haskell types for Tiled's JSON exports, which you can @@ -18,6 +18,7 @@ import Data.Aeson hiding (Object) import qualified Data.Aeson as A import Data.Aeson.Types (Parser, typeMismatch) import qualified Data.ByteString.Lazy.Char8 as C8 +import Data.Functor ((<&>)) import Data.Map (Map) import qualified Data.Map as M import Data.Maybe (fromMaybe) @@ -25,13 +26,14 @@ import Data.Text (Text) import Data.Vector (Vector) import GHC.Exts (fromList, toList) import GHC.Generics (Generic) -import Data.Functor ((<&>)) -- | A globally indexed identifier. newtype GlobalId = GlobalId { unGlobalId :: Int } deriving (Ord, Eq, Enum, Num, Generic, Show, FromJSON, ToJSON, FromJSONKey, ToJSONKey) +mkTiledId :: Int -> GlobalId +mkTiledId i = GlobalId { unGlobalId = i } -- | A locally indexed identifier. newtype LocalId = LocalId { unLocalId :: Int } |