mirror of
https://github.com/fjvallarino/monomer.git
synced 2024-09-21 00:38:01 +03:00
32 lines
619 B
Haskell
32 lines
619 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Types where
|
|
|
|
import Lens.Micro.TH (makeLenses)
|
|
|
|
import Data.Default
|
|
import Data.Text (Text)
|
|
|
|
data App = App {
|
|
_clickCount :: !Int,
|
|
_msgCount :: !Int,
|
|
_textField1 :: Text,
|
|
_textField2 :: Text,
|
|
_textField3 :: Text,
|
|
_dropdown1 :: Text
|
|
} deriving (Show, Eq)
|
|
|
|
instance Default App where
|
|
def = App 0 0 "" "" "" ""
|
|
|
|
makeLenses ''App
|
|
|
|
data AppEvent = InitApp
|
|
| RunShortTask
|
|
| RunLongTask
|
|
| PrintTextFields
|
|
| AppButton
|
|
| IncreaseMessage
|
|
| UpdateText Text
|
|
deriving (Show, Eq)
|