{-# LANGUAGE NamedFieldPuns, OverloadedStrings #-}

module MusicPad.Controller where

import MusicPad.Env
import MusicPad.Model as Model
import Prelude ()
import qualified Prelude as P

touch_note :: Game State -> Int -> Int -> IO ()
touch_note = Model.touch_note_only


set_active_track :: Game State -> Int ->  IO ()
set_active_track = Model.set_active_track_only