{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.CrWlID where

import Control.Lens
import Data.Aeson
import Data.Aeson.TH

data CrWlID = CrID Int | WlID Int | NothingID -- TODO rewrite/remove this
    deriving (Eq, Ord, Show, Read)

makeLenses ''CrWlID
deriveJSON defaultOptions ''CrWlID