module Model.Config
  ( Config(..)
  , otherConfig
  ) where

type Config =
  White
  | Black

otherConfig : Config -> Config
otherConfig config =
  case config of
    White -> Black
    Black -> White