PuzzleActor.purs

module App.Drawer.PuzzleActor where

import Prelude

import App.EaselJS.Container (Container)
import App.EaselJS.Container as Container
import App.EaselJS.Shape (Shape)
import App.EaselJS.Shape as Shape
import App.Model.Puzzle (Puzzle)
import Effect (Effect)


type PuzzleActor =
  { body :: Puzzle
  , shape :: Shape
  , container :: Container
  }

create :: Puzzle -> Effect PuzzleActor
create body = do
  shape <- Shape.create
  container <- Container.create
  Container.addShape shape container
  pure { body, shape, container }