You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
473 B
16 lines
473 B
module State where
|
|
|
|
import Board
|
|
|
|
data Action = ActionDraw { act'currentPath :: Path }
|
|
| ActionErase
|
|
| ActionSave
|
|
deriving Show
|
|
|
|
data AppState = AppState { state'action :: Action
|
|
, state'board :: Board
|
|
, state'path :: String
|
|
, state'offset :: Point
|
|
, state'zoom :: Float
|
|
}
|
|
deriving Show
|