performAction :: Action -> Status -> Status
performAction = \case
  Toggle  -> not
  TurnOn  -> const True
  TurnOff -> const False

-- Part 2
performAction :: Action -> Status -> Status
performAction = \case
  Toggle  -> not
  TurnOn  -> const True
  TurnOff -> const False

-- Part 2
performAction = \case
  Toggle  -> not
  TurnOn  -> const True
  TurnOff -> const False

-- Part 2