src/Model/Config.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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

type Config =
  White
  | Black

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