{-# 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