Control.Moffy.Samples.Handle.Area
handle :: TVar (Map Int (Point, Point)) -> Handle' IO (SetArea :- Singleton GetArea) Source #
handleSetArea :: TVar (Map Int (Point, Point)) -> Handle' IO (Singleton SetArea) Source #
handleGetArea :: TVar (Map Int (Point, Point)) -> Handle' IO (Singleton GetArea) Source #