noteboard/app/State.hs

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