chiasma-0.12.2.0: lib/Chiasma/Ui/Data/ViewState.hs

module Chiasma.Ui.Data.ViewState where

import Data.Data (Data)

newtype ViewState =
  ViewState {
    minimized :: Bool
  }
  deriving stock (Eq, Show, Data, Generic)

instance Default ViewState where
  def = ViewState False