module Codec.Tiled.World.Map where
import Data.Aeson (FromJSON(..), ToJSON(..))
import GHC.Generics (Generic)
data Map = Map
{ Map -> FilePath
fileName :: FilePath
, Map -> Int
x :: Int
, Map -> Int
y :: Int
, Map -> Maybe Int
width :: Maybe Int
, Map -> Maybe Int
height :: Maybe Int
}
deriving (Map -> Map -> Bool
(Map -> Map -> Bool) -> (Map -> Map -> Bool) -> Eq Map
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Map -> Map -> Bool
$c/= :: Map -> Map -> Bool
== :: Map -> Map -> Bool
$c== :: Map -> Map -> Bool
Eq, Int -> Map -> ShowS
[Map] -> ShowS
Map -> FilePath
(Int -> Map -> ShowS)
-> (Map -> FilePath) -> ([Map] -> ShowS) -> Show Map
forall a.
(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
showList :: [Map] -> ShowS
$cshowList :: [Map] -> ShowS
show :: Map -> FilePath
$cshow :: Map -> FilePath
showsPrec :: Int -> Map -> ShowS
$cshowsPrec :: Int -> Map -> ShowS
Show, (forall x. Map -> Rep Map x)
-> (forall x. Rep Map x -> Map) -> Generic Map
forall x. Rep Map x -> Map
forall x. Map -> Rep Map x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Map x -> Map
$cfrom :: forall x. Map -> Rep Map x
Generic)
instance FromJSON Map
instance ToJSON Map