{-# LANGUAGE DeriveGeneric #-}
--{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.Material where

import Data.Aeson
import Data.Aeson.TH

data Material = Wood | Dirt | Stone | Glass | Metal | Crystal | Flesh | Electronics
    deriving (Eq, Ord, Show, Bounded, Enum, Read) --Generic, Flat)

deriveJSON defaultOptions ''Material