18 lines
506 B
Haskell
18 lines
506 B
Haskell
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
module Area.NaturalElements (
|
||
|
NaturalElements(..)
|
||
|
) where
|
||
|
|
||
|
import Data.Aeson (ToJSON(..), FromJSON(..), genericToEncoding, genericParseJSON, defaultOptions)
|
||
|
import GHC.Generics (Generic)
|
||
|
|
||
|
data NaturalElements = NaturalElements {
|
||
|
name :: String
|
||
|
, skin :: FilePath
|
||
|
} deriving (Generic)
|
||
|
|
||
|
instance ToJSON NaturalElements where
|
||
|
toEncoding = genericToEncoding defaultOptions
|
||
|
instance FromJSON NaturalElements where
|
||
|
parseJSON = genericParseJSON defaultOptions
|